SearchFile

Private Type Dati_Rec
Nome As String
Cognome As String
Eta' As Integer
End Type

Dim Dati_Rec As Dati_Rec
Dim R As String, NumFile As Integer

Private Sub Ricerche_File_Campi_Sequenziale()
Dim Confronto As String

NumFile = FreeFile
Open "d:\c++\prova1.PLJ" For Input As NumFile
Confronto = InputBox("Inserisci il nome da ricercare")
Do While Not EOF(NumFile)
Input #NumFile, Dati_Rec.Cognome, Dati_Rec.Nome, Dati_Rec.Eta'
If Dati_Rec.Nome = Confronto Then
With Dati_Rec
Debug.Print .Cognome, .Nome, .Eta'
End With
End If
Loop
Close NumFile

End Sub