Dim F As Integer
Dim N As Integer
Dim sLine As String
 
' Textdatei öffnen
F = FreeFile: Open "Datei.txt" For Input As #F
 
' 2. Datei zum Schreiben öffnen
N = FreeFile: Open "Datei.neu" For Output As #N
 
' Textdatei zeilenweise einlesen, verändern und speichern
While Not Eof(F)
  Line Input #F, sLine
 
  ' Änderung an der Zeile vornehmen
  ...
 
  Print #N, sLine
Wend
 
Close #F: Close #N
Kill "Datei.txt"
Name "Datei.neu" As "Datei.txt"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de