[VB] Regel verwijderen uit tekstbestand

[Verwijderd]

Ik wil middels VB-Script een programaatje schrijven dat een woord zoekt in een tekstbestand en deze, indien gevonden, met regel en al verwijderd.

Voorbeeld:

regel 1 met woord1.
regel 2 met woord2.
regel 3 met woord3.

Wanneer ik zoek op "woord2" moet die hele regel verwijderd worden en wil ik dit over houden:

regel 1 met woord1.
regel 3 met woord3.

Wie kan mij hierbij helpen, ik denk dat het zoiets is als:

code:

Set f1 = fso1.OpenTextFile("test.txt", 1)
changed = f1.ReadAll
changed = RemoveLine(changed, "'woord2")

LET OP: REMOVELINE BESTAAT NIET MAAR DAT GEBRUIK IK ALS VOORBEELD

[Verwijderd]

Wat heb je al geprobeerd? Waar loop je vast?

Simpel stappenplan:
1) open de file (ForReading)
2) maak een lege string variabele
3) lees alle regels 1 voor 1 uit (.ReadLine)
4) voeg alle regels waar het gezochte woord niet in voorkomt toe aan de string variabele, met een enter aan het einde
5) sluit de file
6) open de file (ForWriting)
7) schrijf de string naar de file (.Write)
sluit file

Probeer dit te maken. Als je vastloopt, post je code dan hier (met gebruik van code haken, zie Forum FAQ).

Succes

[henkleerssen]

Bij stap 3 zoals MrX verteld de Instr functie gebruiken ter vergelijk. Let wel op .. dat de string variabele in VB maar 64 K aan kan... dat is vrij veel voor tekst.. maar als je bijvoorbeeld logs moet inlezen of zo.. kan dat te weinig zijn... als je de inhoud van een file in een keer allemaal in een string variabele wilt zetten... succes!