Oggetto: re:esperti visual basi
Data: 30/1/2008 0.23.48
Visite: 85
io ho fatto così
Private Sub Form_Load()
Dim L As String
Open App.Path & "\prova.txt" For Input As #1
Do
Line Input #1, L
If Left$(L, 3) = "par" Then
s = Mid(L, 13, 4)
txt1 = s
Loop Until EOF(1)
Close #1
End Sub
solo che in questo modo riepio solo la prima casella di testa nel form
mi servirebbe un ciclo che mi consente una volta riempita la prima casella di testo
di passare alla seconda
