PDA

Visualizza la versione completa : [VB] problema con array


evil80
23-09-2002, 14:54
Ciao,
sto scrivendo un piccolo programma che dovrebbe aprirmi un file di testo contenente numeri,eliminare i doppioni quindi risalvare il file correttamente.
Tutto funzionava bene (con array di dimensione finita) fino a quando ho ottenuto un errore e ho quindi deciso di provare ad usare degli array indefiniti ma ottengo sempre un errore.
Questa la mia idea ( solo la porzione di codice interessata) :


Dim strNumero() As String

intFile=FreeFile
Open selected For Input As #intFile

intC1 = 0
Do Until (EOF(intFile))
Line Input #intFile, strNumero(intC1)
ReDim Preserve strNumero(UBound(strNumero) + 1)
intC1 = intC1 + 1
Loop

Close #intFile

praticamente voglio solo creare un array contenente tutti i numeri del file (il problema ovviamente che non ho la pi vaga idea di quanti numeri possa contenere,per questo ho bisogno di un array indefinito!).
Ma ottengo il seguente errore :
"Subscript out of range" alla riga : Line Input #intFile, strNumero(intC1)

Dove sbaglio,proprio non capisco...
Aiuto!
Grazie 1000.

xegallo
23-09-2002, 17:19
Dim sFileName As String
Dim strNumero() As String
Dim intFile As Integer
Dim IntC1 As Integer
intFile = FreeFile
Open sFileName For Input As #intFile
ReDim strNumero(0) As String
IntC1 = 0
Do Until (EOF(intFile))
ReDim Preserve strNumero(UBound(strNumero) + 1)
Line Input #intFile, strNumero(IntC1)
Debug.Print strNumero(IntC1)
IntC1 = IntC1 + 1
Loop
Close #intFile
End Sub

Loading