TRATTO dalla guida vb

Esempio di istruzione Get
In questo esempio l'istruzione Get viene utilizzata per leggere i dati da un file su disco ed assegnarli ad una variabile. Nell'esempio, FILEPROV è un file che contiene cinque record di tipo Record definito dall'utente.

Type Record ' Definisce il tipo dell'utente.
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record, Position ' Dichiara le variabili.
' Apre il file di esempio per accesso casuale.
Open "FILEPROV" For Random As #1 Len = Len(MyRecord)
' Legge il file di esempio utilizzando l'istruzione Get.
Position = 3 ' Definisce il numero di record.
Get #1, Position, MyRecord ' Legge il terzo record.
Close #1 ' Chiude il file.