29. März 2024, 08:14
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0413
  VB6: Textdatei Zeile ersetzen und speichern
 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
[ VB-/VBA-Forum | Archiv 0413 | Archiv-Übersicht ]
 Antworten
VB6: Textdatei Zeile ersetzen und speichern - asd 16. Oktober 2008 um 08:15:22
Re: Textdatei Zeile ersetzen und speichern - r.mueller@sz-online.de 16. Oktober 2008 um 09:51:53
Re: Textdatei Zeile ersetzen und speichern - asd 16. Oktober 2008 um 13:57:39
Re: Textdatei Zeile ersetzen und speichern - Neptun 16. Oktober 2008 um 14:33:27
-

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum