Von |
bla |
Am |
19. November 2008 um 16:09:54 |
Frage |
hi,
meine frage: ich hab eine textdatei mit allen daten (1. Januar, 2. Januar ... 31. Dezember). jedes datum steht in einer neuen zeile.
wie kann ich nun den text nach einem datum durchsuchen und dann in der zeile darunter einen text schreiben?
Beispiel: 5. März 6. März Geburtstag 7. März
ich bin jetzt soweit: Dim F As Integer Dim Zeile As String F = FreeFile Open "C:\txt.txt" For Input As #F Do While Not EOF(F) ' Zeile lesen Line Input #F, Zeile If Zeile = "6. März" Then 'unter dieser Zeile etwas neues hinschreiben End If Loop Close #F das klappt natürlich nicht, zumal schon der öffnungsmodus falsch ist. wie kann ich dieses verfahren nun bewerkstelligen? |
|