Von |
asd |
Am |
16. Oktober 2008 um 08:15:22 |
Frage |
Hi zusammen, ich möchte in einer Textdatei eine komplette Zeile ersetzen und durch eine andere ersetzen. Mach das so, nur hab ich mit dem speichern Probleme, denn nach der Prozedur ist meine Datei komplett leer :-( Hat mir jemand rat?dateiname = eingabe & ".R" Dim FNr As Long Dim strText As String Dim Zeile As String 'Prüfen ob datei vorhanden If Dir("C:\xml\" & dateiname) = "" Then 'Datei ist nicht vorhanden Image6.Visible = True Image5.Visible = False List1.AddItem "Datei nicht gefunden (" & dateiname & ")" Exit Sub End If FNr = FreeFile Open "C:\xml\" & dateiname For Binary Access Read As #FNr strText = Space$(LOF(FNr)) Get #FNr, , strText Close #FNr Dim Lst$(), i& Lst = Split(strText, vbCrLf) For i = 0 To UBound(Lst) If InStr(1, Lst(i), "FinalThickness", vbTextCompare) > 0 Then 'Jetzt die Zeile löschen und durch FinalThickness=0 ersetzen Lst(i) = "FinalThickness=0" Zeile = Lst(i) Exit For End If Next i 'Speichern und schließen FNr = FreeFile Open "C:\xml\" & dateiname For Output As #FNr Print #FNr, strText Close #FNr |
|