Keskustelu: Ohjelmointikysymykset: QB: tiedostoon tallentaminenenn

Millä koodilla saa tehtyä tämän: Haluan tallentaa tiedostoon 20 sanaa ja kun se 20 sanaa on käytetty se tallentaa viimeisenä olevan sanan päälle?

Öö...
En tiedä, tai siis en jaksa kokeilla!
Anyway kato ne mun ohjeet "Perus komennot" siellä on jotain tallentamisesta.

Tarkoitatko sitä, että 20 sanan ylittyessä skripti korvaa aina viimeisen sanan?

Niin ne tiedän kyllä, mutta nyt olisi kysymys tuollaisesta :)

Älkää välittäkö edellisestä viestistäni. Tarkotan juuri tuota mitä Antti sanoi.

Onnistuu...odotapa hetkinen.

No niin. Tällä pitäisi toimia.

tiednimi$ on tallennettavan tiedoston nimi ja maksimi on sanojen maksimimäärä.

tiednimi$ = "testi.dat"
maksimi = 20
DIM tiedot(1 TO maksimi) AS STRING
ON ERROR RESUME NEXT
i% = 0
OPEN tiednimi$ FOR INPUT AS #1
IF ERR <> 0 THEN GOTO eiviela
DO UNTIL EOF(1)
        i% = i% + 1
        INPUT #1, tiedot(i%)
LOOP
CLOSE #1
eiviela:
INPUT "Anna sana"; data$
IF i% < maksimi THEN
        i% = i% + 1
        tiedot(i%) = data$
ELSE
        tiedot(maksimi) = data$
END IF

OPEN tiednimi$ FOR OUTPUT AS #1
PRINT "Sanoja yhteensä:"; i%
FOR a% = 1 TO i%
        PRINT #1, tiedot(a%)
        PRINT tiedot(a%)
NEXT

no kiitoksia

öö...
En ymmärtäny paljoo tosta koodista, kaippa toimii! :P