Code löscht dateiinhalt anstatt nur zu ändern
16.08.2005 00:54:38
Reinhard
in A2 steht 1234567890123456 und in B2 C:\test
Nachfolgender Code soll in meinen Dateien da wo ..sess=abcdefghijklmnop... dies in ...sess=1234567890123456.. umwandeln, replace geht nicht da ich abcdefghijklmnop nicht kenne. nach Durchlauf waren in beiden Dateien nur nochca 170 zeilen mit jeweils einem leerzeichen o.ä vorhenden.
Wo ist nmein Fehler?
Gruß
Reinhard
Option Explicit
Sub tt()
Dim zei As Long, n As Long, Pfad As String, satz As String, pos As Integer
Pfad = Range("B2").Value
Close
Open Pfad & "\kilahu.html" For Input As #1
zei = 2
While Not EOF(1)
zei = zei + 1
Input #1, satz
Cells(zei, 1) = satz
Wend
Close #1
For n = 3 To zei
pos = InStr(Cells(n, 1), "sess")
If pos > 0 Then Cells(n, 1) = Left(Cells(n, 1), pos + 4) & Range("B2").Value & Mid(Cells(n, 1), pos + 21)
Next n
Open Pfad & "\kilahu.html" For Output As #1
For n = 3 To zei
Print #1, Cells(zei, 1)
Next n
Close #1
Range("A3:A" & zei).Clear
Open Pfad & "\eingabe.html" For Input As #1
zei = 2
While Not EOF(1)
zei = zei + 1
Input #1, satz
Cells(zei, 1) = satz
Wend
Close #1
For n = 3 To zei
pos = InStr(Cells(n, 1), "sess")
If pos > 0 Then Cells(n, 1) = Left(Cells(n, 1), pos + 4) & Range("B2").Value & Mid(Cells(n, 1), pos + 21)
Next n
Open Pfad & "\eingabe.html" For Output As #1
For n = 3 To zei
Print #1, Cells(zei, 1)
Next n
Close #1
Range("A3:A" & zei).Clear
Shell ("c:\programme\internet explorer\iexplore.exe " & Pfad & "\kilahu.html")
End Sub