Brauche hilfe beim Text Splitten.
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 :confused:
Greetz