Keskustelu: Ohjelmointikysymykset: QB: Tiedostoon kirjoittaminen ja lukeminen

Tässä kaksi kysymystä qb:hen:
1. Miten voin saada ohjelman kirjoittamaan tiedostoon tietoja?
2. Miten voisin lukea tiedostoon kirjoittamani tiedot muuttujiin?

1. OPEN- ja PRINT-lauseilla:

OPEN "tiedosto.txt" FOR OUTPUT AS #1
PRINT #1,"Ensimmäinen rivi"
PRINT #1,"Toinen rivi"
PRINT #1,"Kolmas rivi"
CLOSE #1

2. OPEN- ja INPUT-lauseilla (edelliseen jatkoksi)

OPEN "tiedosto.txt" FOR OUTPUT AS #1
INPUT #1,rivi1$
INPUT #1,rivi2$
INPUT #1,rivi3$
PRINT rivi1$:PRINT rivi2$:PRINT rivi3$
CLOSE #1

Ja jos haluat lukea niin kauan kuin rivejä riittää käytä EOF:ia (End Of File):

OPEN "tiedosto.txt" FOR OUTPUT AS #1
DO UNTIL EOF(1)
INPUT #1,rivi$
PRINT rivi$
LOOP
CLOSE #1

Nuo ovat siis rivitiedostojen käsittelyyn, binääritiedostot ovat asia erikseen.

Toi ensimmäinen toimii niin kun pitää. Siihen olisi hyvä lisä joku toiminto joka estäisi ohjelmaa kirjoittamasta vanhojen tietojen päälle. Kun kokeilin molenpia luku skriptejä kumpikaan ei suostunut toimimaan. ;[ Mikä neuoksi?

Tein näköjään virheen, eli vaihda kahden viimeisen tiedostojen lukuesimerkkien OUTPUT-sana sanaksi INPUT, niin pitäisi toimia.

Tarkottaako toi #1 ensimmäistä rivin sanaa?

Ei, vaan luettavan tiedoston tunnistetta. Rivi luetaan aina kokonaisuudessaan, paitsi jos se sisältää pilkkuja.

Ja jos haluat kirjottaa tiedoston perään nii pistät outputin tilalle appendin (append)

Jos haluat lukea kokonaisen rivin niin käytä LINE INPUT -komentoa.. :)