Keskustelu: Ohjelmointikysymykset: VB6: Rivin poisto VB:llä

Katselin tuota tiedoston käsittely opasta ja tein tiedoston missä on nimiä allekkain esim.

Simo
Sulo
Sakari

ja nyt haluaisin poistaa tuon sulon rivin.
Mitenkähän mahtaisi onnistua?

Tiedosto$ = "nimet.txt" 'Tiedosto josta rivi poistetaan

Poisto$ = "Sulo" 'Poistaa tälläiset rivit

Open Tiedosto$ For Input As #1
Open Tiedosto$ + ".$$$" For Output As #2
Do Until EOF(1)
Line Input #1, Rivi$
If LCase$(Rivi$) <> LCase$(Poisto$) Then Print #2, Rivi$
Loop
Close #2
Close #1

Open Tiedosto$ + ".$$$" For Input As #1
Open Tiedosto$ For Output As #2
Do Until EOF(1)
Line Input #1, Rivi$
Print #2, Rivi$
Loop
Close #2
Close #1

Kiitos, tuosta oli suunnattomasti apua.