Oppure

Loading
27/12/08 11:19
Barris
Salve ho un problema...
quello che vorrei fare è recuperare da ogni stringa di un .txt varie variabili...
per spiegarmi meglio....
nel txt ho salvato sulla stessa riga:
Mario Rossi Roma 48
e ora tramite codice vorrei riaprire quel file, e inserire quei dati in 4 variabili Nome, Cognome,Citta,Eta
io ho fatto cosi:

"Open "ELENCO CLIENTI.TXT" For Input As 1
Do While Not EOF(1)
line Input #1, Nome, cognome, citta, eta
Loop
Close #1"

ma m da errore nella stringa line input....
potreste aiutarmi? devo consegnare qst lavoro fra poco e sono parekkio indietro;)
Grazie in anticipo
aaa
27/12/08 11:28
GrG
usa la funzione split...in questo modo:
dim linea(10) as string
Open "ELENCO CLIENTI.TXT" For Input As 1
Do While Not EOF(1)
line Input #1, linea
Loop
Close #1

dim parole() as string
parole = Split(linea(0), " ";)
dim tuevar(4) as string
tuevar(0) = parole(0)
ecc...

Io ho usato l'array tuevar(4) ma chiaramente li dichiari: dim nome as string, cognome as string, ...
aaa
27/12/08 12:22
Barris
Grazie mille, sembra la soluzione che cercavo! xo ho riscontrato un altro errore... il vettore linea durante la lettura del file me lo hai scritto cm una semplice variabile... e n capisco8-|
Cioè ragionando ho capito ke prendo la stringa la metto in un variabileke poi tramite split suddivido nei vari array ke ho bisogno... ma se nello split la stringa deve essere un vettore.. evidentemente il mio raginamento n è giusto...
aaa
27/12/08 12:58
GrG
Lol mi sn sbagliato io ecco il codice giusto :P

dim n as integer
Open "ELENCO CLIENTI.TXT" For Input As 1
Do While Not EOF(1)
n = n + 1
line Input #1, linea(n)
Loop
Close #1

dim parole() as string
parole = Split(linea(1), " ";)
dim tuevar(4) as string
tuevar(0) = parole(0)
aaa