Een ASCII file byte voor byte lezen

Vragen en discussies over Liberty BASIC database applicaties.

Moderator: anthonio

Een ASCII file byte voor byte lezen

Berichtdoor Gordon » wo dec 06, 2006 8:48 pm

Hallo,

Hoe kun je een ASCII file byte voor byte lezen?

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor Gordon » zo dec 24, 2006 2:28 pm

Volgens mij is dit de basic van waaruit
we zouden moeten vertrekken.

Code: Selecteer alles
open "testascii.txt" for random as #a len=1
field #a, 1 as a$



for t = 1 to lof(#a)
get #a,t
print a$;
next t

wait




Een ASCII bestand maak je eerst door met kladblok (notepad) een
willekeurig aantal tekens in een bestand te plaatsen.
NIET Microsoft word gebruiken.
Indien je toch MS word gebruikt, dan moet je het bestand in DOS mode bewaren.


Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor Gordon » zo dec 24, 2006 2:35 pm

Volgens de helpfile kan het ook zo natuurlijk


Code: Selecteer alles
    open "testascii.txt" for input as #1
    qtyBytes = lof(#1)
    for x = 1 to qtyBytes
        print input$(#1, 1) ;
    next x
    close #1
    end


Maar is het commando input$(#1,1) een algemeen BASIC commando?
Ik ken alleen TRS-80 BASIC en daarbij kon dit niet.

Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am


Keer terug naar Database toepassingen

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron