code275a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 21 行

Option Explicit
Type Record
  RecordNum As Long
  RecordName As String
  RecordDate As Date
End Type

Public Sub Main()
  Dim I As Integer
  Dim ReadRecord As Record

  Open "c:\Record.Txt" For Random As #1
  For I = 1 To 3
    Get #1, I, ReadRecord
    Debug.Print "Record Number: "; ReadRecord.RecordNum
    Debug.Print "Record Name: "; ReadRecord.RecordName
    Debug.Print "Record Date: "; ReadRecord.RecordDate
  Next
  Close #1
End Sub