Tein tähän tyylin tiedoston joka lisää rivejä eikä tuhoa vanhoja. Kysymys: miten saa ohjelman numeroimaan tekemänsä rivit juoksevasti. nyt se tekee joka rivin alkuun numero 1.
Dim i As Integer Open "c:\hakemisto\tiedosto.txt" For Append As #1 For i = 5 to 1 Step -1 Print #1, i & ". viimeinen rivi" Next Close #1
Tarkoitatko, että rivien numerointi jatkuu siitä, mihin viimeksi jäätiin? Sinun pitää selvittää valmiiksi tiedostossa olevien rivien määrä ennen uusien lisäämistä. Tähän ei ole mitään muuta keinoa kuin käydä koko tiedosto läpi. Eli lue vain tiedoston rivit yksi kerrallaan tekemättä niille mitään ja kasvata laskuria joka rivin kohdalla. Tavallinen Input-tila kelpaa ja EOF ilmoittaa tiedoston loppumisen.
Aihe on jo aika vanha, joten et voi enää vastata siihen.