Celvin
Mitglied
Ja, hatte mich gemeldet...hauptsächlich spukte mir der Gedanke im Kopf herum, du solltest die Anwendung, die die HTML-Dateien erstellt, ändern...ich hatte spontan ein PHP - Script o.ä. dahinter vermutet...
Nun zu deinem Code. Also, heutzutage scheint GOTO ja extrem verpöhnt zu sein. In deinem Fall ist es allerdings wirklich unnötig und sieht wirr aus...
Dim Zeile As String
Dim nC As Integer, nD As Integer
nC = FreeFile
Open "c:\1.txt" For Input As #nC
nD = FreeFile
Open "C:\2.txt" For Append As #nD
Do Until EOF(nC)
Line Input #nc, Zeile
If Zeile = "abc" then
Line Input #nc, Zeile
Line Input #nc, Zeile
Print #nD, Zeile
Exit Do
End If
Loop
Close
Sieht angenehmer aus, wie ich finde. Überlege allerdings wirklich mal, ob du an der "Quelle" der Dateien keine Änderungen vornehmen kannst...da gäbs einige, wesentlich besser geeignete Möglichkeiten
Achja, Dateien löschen kannst du mit
"Kill"
Kill "C:\bla.txt"
In den Papierkorb wandern diese Dateien dann jedoch nicht
Nun zu deinem Code. Also, heutzutage scheint GOTO ja extrem verpöhnt zu sein. In deinem Fall ist es allerdings wirklich unnötig und sieht wirr aus...
Dim Zeile As String
Dim nC As Integer, nD As Integer
nC = FreeFile
Open "c:\1.txt" For Input As #nC
nD = FreeFile
Open "C:\2.txt" For Append As #nD
Do Until EOF(nC)
Line Input #nc, Zeile
If Zeile = "abc" then
Line Input #nc, Zeile
Line Input #nc, Zeile
Print #nD, Zeile
Exit Do
End If
Loop
Close
Sieht angenehmer aus, wie ich finde. Überlege allerdings wirklich mal, ob du an der "Quelle" der Dateien keine Änderungen vornehmen kannst...da gäbs einige, wesentlich besser geeignete Möglichkeiten
Achja, Dateien löschen kannst du mit
"Kill"
Kill "C:\bla.txt"
In den Papierkorb wandern diese Dateien dann jedoch nicht