leggere txt e array

[matteo985]

Non dovrebbe essere una cosa difficile... eppure io mi sono person tra i vari cicli for... per cui devo chiedere ancora una volta l'aiuto di qualcuno:
ho bisogno di leggere riga per riga un txt e poi mettere ogni riga in un array... qualcuno mi può aiutare?
Grazie

[xegallo]

dim arr() as string
open file for input as #1
do until eof(1)
   line input #1,arr(i)
   i = i + 1
loop
close #1

[matteo985]

Ma perchè se uso il codice che mi hai dato (e dichiarato l'array come Dim arr() as string), se lo provo mi dice: "Errore 9: indice non compreso nell'intervallo"?

[quartutek]

Prova cosi:
Dim LineTesto, NextLine As String
Dim lista(1000)
Open "Nome files da aprire" For Input As #1
Print
x = 0
Do Until EOF(1)
Line Input #1, NextLine
LineaTesto = NextLine + Chr(13) + Chr(10)
lista(x) = LinesFromFile
x = x + 1
Loop

[matteo985]

Originariamente inviato da quartutek
Prova cosi:
Dim LineTesto, NextLine As String
Dim lista(1000)
Open "Nome files da aprire" For Input As #1
Print
x = 0
Do Until EOF(1)
Line Input #1, NextLine
LineaTesto = NextLine + Chr(13) + Chr(10)
lista(x) = LinesFromFile
x = x + 1
Loop

COn questo codice non mi da nessun errore, però se faccio ad esempio
x=1
text1 = lista(x)

text1 rimane bianco... cosa c'è che non funziona?

[quartutek]

Scusa non so se ti sei accorto che la variabile a ucuisi siferisce è sbagliata prova:
Prova cosi:
Dim LineaTesto, NextLine As String
Dim lista(1000)
Open "Nome files da aprire" For Input As #1
Print
x = 0
Do Until EOF(1)
Line Input #1, NextLine
LineaTesto = NextLine + Chr(13) + Chr(10)
lista(x) = LineaTesto
x = x + 1
Loop

[xegallo]

Originariamente inviato da xegallo

dim arr() as string
open file for input as #1
do until eof(1)
   redim preserve arr(i)as string
   line input #1,arr(i)
   i = i + 1
loop
close #1

[matteo985]

Grazie, ora più o meno funziona... nel senso che se io richiamo
arr(1) tutto va bene, ma se faccio arr(i) e metto i come contatore non funziona niente e ogni volta mi compare "Errore 9: indice non compreso nell'intervallo"
Qualcuno mi sa dire il perchè?

[xegallo]

Originariamente inviato da matteo985
Grazie, ora più o meno funziona... nel senso che se io richiamo
arr(1) tutto va bene, ma se faccio arr(i) e metto i come contatore non funziona niente e ogni volta mi compare "Errore 9: indice non compreso nell'intervallo"
Qualcuno mi sa dire il perchè?

sicuro io non vedo errori

[matteo985]

Il mio codice (non funzionante) è questo... cosa pensi che debba modificare?


Dim arr() As String

Private Sub cmdGO_Click()
Open "c:\docenti.txt" For Input As #1
Do Until EOF(1)
ReDim Preserve arr(i) As String
Line Input #1, arr(i)
i = i + 1
Loop
Close #1
i = i + 1
txtDomanda = arr(i)
End Sub

Private Sub cmdAvanti_Click()
i = i + 1
txtDomanda = arr(i)
End Sub

Private Sub Form_Load()
i = 1
End Sub