[VB6] Salvare in righe file di testo un array

[Natu]

Salve,
Come faccio in vb6 dato un file di testo ad immettere ogni sua riga in un elemento dell'array?

Ad esempio io ho un file di testo con contenuto:
1
2
3
4


Come faccio ad inserire tutti gli elementi nell'array Prova() ?

Grazie.

[GudFella]

dim Prova(4)
Prova(0) = 1
Prova(1) = 2
Prova(2) = 3
Prova(3) = 4

[mgmg]

Puoi provare:

ff = FreeFile
Open "c:\file.txt" For Input As #ff
X = 0
Do Until EOF(ff)
   Line Input #ff, Prova(X)
   X = X + 1
Loop
Close #ff

Ciao

[Natu]

grazie

[MdE2005]

Secondo me questo codice non è corretto: non darebbe errori se e solo se l'utente avesse specificato nella dichiarazione della matrice le dimensioni di essa:

dim Prova(3) as string

Ma la domanda è la seguente: come fa l'utente a sapere quante righe ci sono nel file?! Nell'esempio è chiaro che si conosceva il numero; suggerisco quindi di correggere il codice così:

ff = FreeFile
Open "c:\file.txt" For Input As #ff
X = 0
Do Until EOF(ff)
   Redim Preserve prova(x) 
   Line Input #ff, Prova(X)
   X = X + 1
Loop
Close #ff

In questa maniera non ci saranno più errori e basta dichiarare la matrice così:

dim prova()as string

Ciao

[mgmg]

Scusami, ma quando scrivi leggi chi ha scritto?
Nell'esempio che avevo fatto e che tu hai corretto, non avevo dichiarato nessuna matrice.
Presupponevo, forse, che chi ha scritto il messaggio conoscesse: Redim Preserve ???
Posso solo sperare che chi programma in visual basic abbia un minimo di conoscenza, inoltre msdn on-line (se non in linea) esiste!

Ciao

E... senza andare tanto lontano, guida al visual basic su questo forum:

http://programmazione.html.it/visualbasic/index.html

[MdE2005]

Guarda che l'istruzione in questione non poteva essere messa prima del codice che hai postato..non ti sembra?! Altrimenti dà errore: se un utente chiede una cosa del genere, significa che non conosce le matrici e soprattutto: perchè scrivere un codice sbagliato? Perchè in effetti lo è. Non ho corretto il tuo codice sulle dichiarazioni, in quanto non concernevano la risposta da dare ma su un'istruzione senza la quale non funzionava tutta la routine.

Facevi meglio o ad ammettere l'errore (tutti si sbaglia) oppure a dire di averlo tralasciato per sbaglio..cmq non intendo polemizzare con te perchè non sarebbe costruttivo per il forum, e spero anche da parte tua....ok?

Da parte mia nessun problema..

Ciao

[mgmg]

Neanche da parte mia, inoltre: Mutatis mutandis

Ciao

[Natu]

l'ho aggiunta io la matrice quindi il code funzionava...

ff = FreeFile
Open "c:\file.txt" For Input As #ff
X = 0
Do Until EOF(ff)
Redim Preserve prova(x)
Line Input #ff, Prova(X)
X = X + 1
Loop
Close #ff

mi bastava sapere questo...
Grazie.

[MdE2005]

Ok..meglio così..

Ciao ad entrambi