[VB6] Salvare in righe file di testo un array

[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