Keskustelu: Ohjelmointikysymykset: QB: Tiedostot qb

Miten vaikka .txt loppuisia tiedostoja tallennetaan muuttujiin?

Ja mitä on $DYNAMIC ja $STATIC arrayt?

lainaus:

Miten vaikka .txt loppuisia tiedostoja tallennetaan muuttujiin?

STRING-tyyppinen muuttuja voi olla 32767 tavua pitkä, joten jos tekstitiedosto ei ole tätä suurempi, sen voi lukea yhteen muuttujaan.

DIM teksti AS STRING, luku AS STRING

'avataan tiedosto lukutilaan
OPEN "c:\testi.txt" FOR INPUT AS #1

'luetaan tiedoston loppuun asti
DO UNTIL EOF(1)
  'luetaan seuraava rivi
  LINE INPUT #1, luku
  'lisätään rivi tekstiin rivinvaihtomerkin kanssa
  teksti = teksti + luku + CHR$(13)
LOOP

'suljetaan tiedosto
CLOSE #1

'tulostetaan teksti
PRINT teksti

lainaus:

Ja mitä on $DYNAMIC ja $STATIC arrayt?

Staattiselle taulukolle ($STATIC) varataan tilaa ohjelman käännösvaiheessa, dynaamiselle taulukolle ($DYNAMIC) vasta ohjelmaa ajettaessa.

Tosi hyvin ja tarkasti kerrottu mutta kysyin aika tyhmästi; Siis miten tunnistan kaikki kansiossa olevat .txt loppuiset tiedostot, viitaten FILES käskyyn qbasicissa, kun FILES tulostaa tiedostot ruudulle, mutta minä haluan ne taulukkoon tai muutujiin. (Nyt on tarpeeksi selkeä : / )

FILES-komento on aika kankea, varsinkin kun se tulostaa tiedot suoraan ruudulle. Käytä ennemmin DIR$-funktiota, joka käy hakemiston tiedostot läpi yksi kerrallaan. Ensimmäisellä kerralla parametreiksi annetaan hakemisto ja tiedostotarkenne, seuraavilla kerroilla parametreja ei ole.

DIM tiedosto AS STRING, i AS INTEGER

tiedosto = DIR$("c:\*.txt")
DO WHILE tiedosto <> ""
  i = i + 1
  PRINT i; tiedosto
  tiedosto = DIR$
LOOP

Tuosta oli paljon apua