Oppure

Loading
11/02/08 9:37
Orgrim
ciao a tutti!
allora, ho un piccolo problemino con un programma che sto scrivendo in queste giornate. quello che vorrei che faccia è che legga da file .txt una stringa e poi me la splitti in un array. fino alla lettura da file tutto bene, i problemi cominciano con lo split, dal momento che mandandolo in esecuzione fino al punto dove ci dovrebbe essere lo split, vedo che nella variabile stringa che dovrebbe essere splittata i dati sono giusti, ma poi è come se non salvasse i dati nell'array...ecco qua il mio codice:

Private Sub Command2_Click()
Dim nomic() As String
Dim puntic() As String
Dim u As Integer
nome = InputBox("inserisci il nome della squadra salvata", "inserire il nome della squadra";)
stringload = stringpath + nome + ".txt"
Call readfile(stringload, stringnomi, stringpunti)
nomic = Split(strn, "*";)
puntic = Split(strp, "*";)
For i = 1 To u
nomi(i) = nomic(i - 1)
punti(i) = Val(puntic(i - 1))
Next i
Unload Me
Frmconfxsonaggi.Show
End Sub

e anche la procedura readfile:

Public Sub readfile(ByVal path As String, ByVal stnomi As String, ByVal stpunti As String)
f = FreeFile
Open path For Input As #f
Line Input #f, stnomi
Line Input #f, stpunti
Close #f
strn = stnomi
strp = stpunti
End Sub


gli array nomi e punti sono dichiarati pubblici a livello di modulo, perchè devono essere condivisi tra più form, ho anche provato a usare module1.nomi per dichiararlo, ma niente...
aaa
11/02/08 14:45
moet
Come li richiami nei form ?
aaa
11/02/08 15:34
kryc
per visualizzare gli elementi dell'array devi usare un ciclo che vada dal indice minimo all'indice massimo

for i = lbound(array) to ubound(array)
visualizza elementi array(i)
next

aaa
11/02/08 15:44
Orgrim
ok, ok risolto... era una cosa stupidissima... semplicemente il ciclo non partiva perchè andava da i a u, ma u non era definito... era un semplicissimo errore di battitura. grazie lo stesso;)
aaa