12/09/08 20:16
feddur
Allora.. ho provato a fare un pezzo di programma che si occupa dei dati:
solo che, come vedete, non riesco a mettere tutti i dati nella text così da poterli suddividere e mettere in un vettore...
aiuti?
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