ReadFileSeq (2)

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 Lettura_File_Righe_Sequenziale()
Dim X As String
NumFile = FreeFile
Open "d:\c++\prova3.PLJ" For Input As NumFile
Do While Not EOF(NumFile)
Input #NumFile, X
With Dati_Rec
Debug.Print X
End With
Loop
Close NumFile
End Sub