27/12/09 13:25
LittleHacker
Salve a tutti come da titolo vorrei sapere come posso Leggere e scrivere file txt con QBasic...Grazie ciao ciao 
aaa
LittleHacker
27/12/09 17:34
E semplicissimo '.
Per la scrittura:
1 ° - Creare il file, dandogli il nome "logico" e "fisico" con l'istruzione aperta
es.: OPEN "c:\dati.txt" FOR OUTPUT AS # 1
(# 1 è il nome logico per il file, è un numero intero compreso tra 1 e 255)
Attnezione: se il file c: \ dati.txt, eseste già purtroppo viene cancellato!
Bisogna eventualmente usare APPEND al posto di OUTPUT.
in questo caso il file viene aperto in formato testuale, e il puntatore al file
viene posto ala sua fine.
2 ° - Inserire i dati nel file con l' istruzione PRINT
es.: PRINT # logico nome, "Frase da Salvare il file sul";% NUMERO ecc ...
3 ° - Chiudere il file con istruzione con l' istruzione CLOSE.
Per la lettura:
1 ° - Aprire il file (OPEN nome fisico FOR INPUT AS # nome logico)
2 ° - Leggere il file con l' istruzione INPUT
es.: logico INPUT # logico nome, $a
(legge una righa nel file e la passa Nella variabile $a)
3 ° - Chiudere il file con istruzione con l' istruzione CLOSE.
--------------------------------------------------------------------
Programma di esempio:
CLS
DIM f AS STRING
DIM a AS STRING
f = "c:\dati.txt"
a = "Frase scritta sul file."
OPEN f FOR OUTPUT AS #1
PRINT #1, a
CLOSE
OPEN f PER INPUT AS #1
INPUT #1, un
PRINT "Lettura sul file:", a
CLOSE
Per la scrittura:
1 ° - Creare il file, dandogli il nome "logico" e "fisico" con l'istruzione aperta
es.: OPEN "c:\dati.txt" FOR OUTPUT AS # 1
(# 1 è il nome logico per il file, è un numero intero compreso tra 1 e 255)
Attnezione: se il file c: \ dati.txt, eseste già purtroppo viene cancellato!
Bisogna eventualmente usare APPEND al posto di OUTPUT.
in questo caso il file viene aperto in formato testuale, e il puntatore al file
viene posto ala sua fine.
2 ° - Inserire i dati nel file con l' istruzione PRINT
es.: PRINT # logico nome, "Frase da Salvare il file sul";% NUMERO ecc ...
3 ° - Chiudere il file con istruzione con l' istruzione CLOSE.
Per la lettura:
1 ° - Aprire il file (OPEN nome fisico FOR INPUT AS # nome logico)
2 ° - Leggere il file con l' istruzione INPUT
es.: logico INPUT # logico nome, $a
(legge una righa nel file e la passa Nella variabile $a)
3 ° - Chiudere il file con istruzione con l' istruzione CLOSE.
--------------------------------------------------------------------
Programma di esempio:
CLS
DIM f AS STRING
DIM a AS STRING
f = "c:\dati.txt"
a = "Frase scritta sul file."
OPEN f FOR OUTPUT AS #1
PRINT #1, a
CLOSE
OPEN f PER INPUT AS #1
INPUT #1, un
PRINT "Lettura sul file:", a
CLOSE
Ultima modifica effettuata da 27/12/09 21:09