GIA

GRAZIE ORA L HO MESSA A POSTO

QUESTA E L'APERTURA:

If OpenClose.Caption = "Chiudi" Then
Close #1
Inpt.Enabled = False
posizione.Text = ""
OpenClose.Caption = "Apri"
TotInp = 0
TotInput.Caption = ""
risultato.Text = ""
Else
posizione.LoadFile OpenFile.Text
Open OpenFile.Text For Input As #1
Inpt.Enabled = True
OpenClose.Caption = "Chiudi"
End If

COSI LEGGO UNA STRINGA:

Dim Prendi As String
Dim C1 As Integer
If Tutto.Value = 0 Then
For C1 = 1 To NumRighe
If Linea.Value Then Line Input #1, Prendi Else Input #1, Prendi
risultato.Text = risultato.Text & Prendi & vbCrLf
TotInp = TotInp + 1
Next C1
Else
Do Until EOF(1)
If Linea.Value Then Line Input #1, Prendi Else Input #1, Prendi
risultato.Text = risultato.Text & Prendi & vbCrLf
TotInp = TotInp + 1
Loop
End If
TotInput.Caption = "Input eseguiti: " & TotInp
If EOF(1) Then
TotInput.Caption = "Input eseguiti: " & TotInp & " [Il file è finito]"
Inpt.Enabled = False
End If

SCUSAMI MA NON SONO MOLTO PRATICO DI VB
PRATICAMENTE DI PRECISO COSA DOVREI FARE???? IL MID DI RISULTATO.TEXT??

GRAZIE ANCORA!!!!!!!