In Textdatei schreiben
10.05.2006 12:42:30
andS
wie schreibe ich in ein Textfile, nachdem ich die Fundzeile in der Textdatei bestimmt habe? Ich möchte Fundzeile + 2 Zeilen runter in die Datei schreiben...
Mein Code bisher:
Sub t()
Open strFilename For Input As #1
While Not EOF(1)
Line Input #1, sText
If InStr(1, sText, "# Write Values", vbTextCompare) > 0 Then
'hier dann in die Datei schreiben (2 Zeilen tiefer)
End If
Wend
Close #1
End Sub
Danke für jede Hilfe!
Grüße Andi