In Text datei Zeile ersetzen

[Sascha321 12]

Hallo

 

Ich habe mir hie rein kleines script geschrieben,

komme aber jetzt nicht mehr weiter.

Ich möchte nach einem Wort suchen und dann

die komplette Zeile ersetzen, kann mir jemand

sagen wie ich das machen kann?

 

Sub OKbutton()

DateiPfad = "C:\test.txt"

Const ForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile(DateiPfad)
sText = File.ReadLine()

Do While Not File.AtEndOfStream
   sText = File.ReadLine()
  If InStr(sText, "geheim") Then



  End If

Loop

File.Close

Set fso = Nothing

End Sub

[Cybquest 36]

So in der Art z.B.

Set fso=CreateObject("Scripting.FileSystemObject") 
Set File=fso.OpenTextFile(DateiPfad) 
[color="Red"]Set outFile = fso.OpenTextFile("C:/Temp/Ausgabedatei.txt")[/color]
sText=File.ReadLine() 

Do While Not File.AtEndOfStream 
 sText=File.ReadLine() 
 If InStr(sText,"geheim") Then 
[color="red"]      outFile.Writeline "Mein Ersatztext"
  Else
     outFile.Writeline sText[/color]
***End*If 
Loop

hinterher ggf. Quelldatei löschen und Ausgabedatei entspr. umbenennen...

[Sascha321 12]

Hallo

 

Danle schön

 

Kann man nicht direkt in der Text Datei ändern?

[Sascha321 12]

irgendwie klappt das nich bekomme immer falscher die Meldung

Falscher Dateimodus.

 

Macht es denn einen unterschied bei dieser Prozedur ob es einen XML oder ein TXT Datei ist?

[lefg 276]

Hallo

 

Danle schön

 

Kann man nicht direkt in der Text Datei ändern?

 

Hallo,

 

nein, das ist nicht möglich.

 

Prinzipiell: Die Datei wird geöffnet, zeilenweise gelesen, die Zeilen in in eine temporäre datei übertragen bis auf die nicht mehr gewollte, an deren Stelle wird der Ersatz eingfügt; erkennbar ist das an der Schleife Do While. Dann werden die Dateien geschlossen, eine gelöscht, die andere umbenannt.

 

Gruß

 

Edgar

[Sascha321 12]

OK

 

danke

[lefg 276]

Gerne geschehen.

[Cybquest 36]

irgendwie klappt das nich bekomme immer falscher die Meldung

Falscher Dateimodus.

 

Macht es denn einen unterschied bei dieser Prozedur ob es einen XML oder ein TXT Datei ist?

 

Bei der zu schreibenden Datei muss noch'n Parameter an die open-Methode mit ran. "ForAppending" oder "ForWriting".

Siehe OpenTextFile Method