Oppure

Loading
12/09/08 20:16
feddur
Allora.. ho provato a fare un pezzo di programma che si occupa dei dati:
Dim dati(5) As Integer
Dim i As Integer

Private Sub Command1_Click()
    For i = 1 To 5
        dati(i) = Val(InputBox("Inserisci il valore."))
    Next i
End Sub

Private Sub Command2_Click()
    Open App.Path & "\datifile.txt" For Append As #2
        For i = 1 To 5
            Print #2, dati(i) ' & " "
            Text1.Text = Text1.Text & dati(i) & " "
        Next i
    Close #2
End Sub

Private Sub Command3_Click()
Dim datisalvati As String

Open App.Path & "\datifile.txt" For Input As #1
    While Not EOF(1)
    Line Input #1, datisalvati
    Text2.Text = datisalvati
    Wend
Close #1
End Sub


solo che, come vedete, non riesco a mettere tutti i dati nella text così da poterli suddividere e mettere in un vettore...
aiuti?

aaa
13/09/08 10:23
antometal
penso che ti riferisci a questa frazione di codice:
Open App.Path & "\datifile.txt" For Input As #1
    While Not EOF(1)
    Line Input #1, datisalvati
    Text2.Text = datisalvati
    Wend
Close #1 


se vuoi mettere i dati in un vettore, n è necessario caricarli prima in una textbox, ma puoi subito metterli in un vettore con una dimensione idonea

Open App.Path & "\datifile.txt" For Input As #1
    While Not EOF(1)
    Line Input #1, datisalvati(i)
    i=i+1
    Wend
Close #1 


i ti conviene dichiararla pubblica:
public i as integer

in testa al programma e fuori da qualunque sub
ti conviene anche dargli un nome + significativo, in modo che se usi la variabile "i" in altri for nn ti da errore
aaa
13/09/08 10:29
antometal
ps. ti conviene aprire nuovi topic con titoli + significativi per altri dubbi e richieste :k:
aaa