Visual Basic 6 - inserire pezzi di stringa di un file letto in vettori?

Forum - Visual Basic 6 - inserire pezzi di stringa di un file letto in vettori?

Barris (Normal User)
Newbie

Messaggi: 6
Iscritto: 27/12/2008

Postato alle 12:19
Sabato, 27/12/2008

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

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 12:28
Sabato, 27/12/2008

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, ...

Barris (Normal User)
Newbie

Messaggi: 6
Iscritto: 27/12/2008

Postato alle 13:22
Sabato, 27/12/2008

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 capisco 8-|

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...

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 13:58
Sabato, 27/12/2008

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)