Howdi,
bräuchte mal ein wenig hilfe.
Also ich habe eine Textdatei die ungefähr so aufgebaut ist:
Montag
Aufgabe1 Ichwillwascoden
Aufgabe2 kommeabernichtweiter
Aufgabe3 weilichzudoofbin-.-
Dienstag
Aufgabe1 Ichwillwascoden
Aufgabe2 kommeabernichtweiter
Aufgabe3 weilichzudoofbin-.-
usw. bis freitag
Habe die Textdatei jetzt geladen
und prüfe jede zeile bis ein "Montag" drin vorkommt.
(Der Montag kommt öfters vor, 4x insgesammt)
Soweit bin ich bis jetzt:
Code:
vZeilen = Split(vInhalt, vbNewLine)
For cnt = 0 To UBound(vZeilen)
If InStr(vZeilen(cnt), suchWort) Then
MsgBox "Montag gefunden"
'vZeilen (cnt) + vbCrLf
'msgBox vZeilen (cnt)
'Open "C:\testfile.txt" For Output As #1
' Print #1, "Aufgabe1"
' Print #1, "Aufgabe2"
' Print #1, "Aufgabe3"
'Close #1
End If
Next cnt
Nach der MsgBox "Montag gefunden" will ich jetzt die nächsten
3 Zeilen, sprich
Aufgabe1 Ichwillwascoden
Aufgabe2 kommeabernichtweiter
Aufgabe3 weilichzudoofbin-.-
in eine Neue Textdatei speichern. Jedoch raff ich es nciht wie ich jetzt in die nächste zeile Springe.
Das auskommentierte funktioniert leider nicht o.O
Vllt. kann mir ja wer helfen Hoffe jemand versteht was ich will
Greetz