Keskustelu: Ohjelmointikysymykset: tekstitiedosto *QB*

Osaisiko joku sanoa kuinka tehdä sillainen systeemi, että jos tekstitiedostossa on vaikka tekstiä näin

eka rivi
toka rivi
kolmas rivi
neljäs rivi
viides rivi
kuudes rivi
seitsemäs rivi
kahdeksas rivi
yhdeksäs rivi
kymmenes rivi

ja käyttäjä haluaa, että sieltä poistetaan kuudes rivi ja siirretään seitsemäs rivi kuudennen tilalle niin, että koko loppu pää siirtyy mukana niin kuinka se voidaan tehdä?

Yksi tapa on lukea tiedosto taulukkoon ja tallentaa tiedostoon vain ne rivit mitä ei haluta poistaa.

dim muuttuja(9) as string
dim rivi as integer
dim c as integer

open "tekstitiedosto.txt" for input as #1
for c = 0 to 9
input #1, muuttuja(c)
next c
close #1

input "minkä rivin haluat poistaa?", rivi
muuttuja(rivi) = ""

open "tekstitiedosto.txt" for output as #1
for c = 0 to 9
if muuttuja(c) <> "" then print #1, muuttuja(c)
next c
close #1

Edit: paitti, että QB:ssä tiedoston nimenä ei voi käyttää noin pitkää nimeä :)