Nick: Bardamu Oggetto: re:esperti visual basi Data: 30/1/2008 0.54.19 Visite: 148
cmq non riesco a caricare il valore nel secondo textbox Open App.Path & "\prova.txt" For Input As #1 Do Line Input #1, L If Left$(L, 3) = "par" And i = 0 Then s = Mid(L, 13, 4) txtPrima = s If Left$(L, 13) = "par" Then 'Else: s = Mid(L, 13, 4) txtSeconda = s End If End If i = i + 1 Loop Until EOF(1) Close #1 |