Keskustelu: Ohjelmointikysymykset: QB: Tiedon tallennus QBasic:issa?

(nimetön) [24.07.2003 15:19:22]

Miten tapahtuu tiedon tallennus QBasic:issa?

Jos sais koodinpätkän seuraavasta esimerkistä:

Ohjelma käynnistetään ensimmäistä kertaa ja
kone pukkaa tekstiä:

Terve!
Olet ohjelman ensimmäinen käyttäjä.
Kuka olet?

Ohjelma käynnistetään seuraavan kerran ja
kone tietää kuka olet:

Terve Ari!

kaviaari [24.07.2003 15:24:01]

CLS
OPEN "C:\tiedot.txt" FOR INPUT AS #1
INPUT #1, eka%
INPUT #1, nimi$
CLOSE #1
IF eka%=0 THEN
 PRINT "Terve!"
 PRINT "Olet ohjelman ensimmäinen käyttäjä"
 PRINT "Kuka olet"
 INPUT nimi$
 eka%=1
ELSE
 PRINT "Terve "; nimi$ ;"!"
END IF
OPEN "C:\tiedot.txt" FOR OUTPUT AS #1
PRINT #1, eka%
PRINT #1, nimi$
CLOSE #1

Antti Laaksonen [24.07.2003 18:48:52]

Tässä on minun ratkaisuni, jossa tiedostoon ei kirjoiteta muuta kuin käyttäjän nimi. Jos DIR$-funktio palauttaa tyhjän merkkijonon, tiedostoa ei ole olemassa.

IF DIR$("nimi.txt") = "" THEN
   PRINT "Terve!"
   PRINT "Olet ohjelman ensimmäinen käyttäjä."
   INPUT "Kuka olet? ", nimi$
   OPEN "nimi.txt" FOR OUTPUT AS #1
   PRINT #1, nimi$
   CLOSE #1
ELSE
   OPEN "nimi.txt" FOR INPUT AS #1
   INPUT #1, nimi$
   CLOSE #1
   PRINT "Terve " + nimi$ + "!"
END IF

kaviaari [24.07.2003 18:50:40]

toi antin versio on todellakin parempi :)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen