Put Statement Example

This example uses the Put statement to write data to a file. Five records of the user-defined type Record are written to the file.

Type Record    ' Define user-defined type.
    ID As Integer
    Name As String * 20
End Type

Dim MyRecord As Record, RecordNumber    ' Declare variables.
' Open file for random access.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
For RecordNumber = 1 To 5    ' Loop 5 times.
    MyRecord.ID = RecordNumber    ' Define ID.
    MyRecord.Name = "My Name" & RecordNumber    ' Create a string.
    Put #1, RecordNumber, MyRecord    ' Write record to file.
Next RecordNumber
Close #1    ' Close file.