求.dat文件的内容提取和写入

Question

求.dat文件的内容提取和写入,最好有完整源代码

Answer 1

摘自leolan(史留香)
Private Type Person
    ID As Integer
    Name As String
End TypeSub WriteData()
    Dim MyRecord As Person
    Dim recordNumber As Integer
    
    Dim FileNum As Integer
    FileNum = FreeFile()
    Open App.Path + "\TestFile.dat" For Random As #FileNum
    For recordNumber = 1 To 5 Step 1
        MyRecord.ID = recordNumber
        MyRecord.Name = "My Name" & recordNumber
        
        Put #FileNum, recordNumber, MyRecord
    Next recordNumber
    Close #FileNum
End SubSub ReadData()
    Dim MyRecord As Person
    Dim recordNumber As Integer
    Dim FileNum As Integer
    
    FileNum = FreeFile()
    Open App.Path + "\TestFile.dat" For Random As #FileNum    Me.Text1.Text = ""
    Dim i As Integer
    i = 1
    Do While Not EOF(1)
        Seek #FileNum, i
        Get #FileNum, i, MyRecord
        
        Me.Text1.Text = Me.Text1 + Str(MyRecord.ID) + Chr(13) + Chr(10)
        Me.Text1.Text = Me.Text1 + MyRecord.Name + Chr(13) + Chr(10)
        Me.Text1.Text = Me.Text1 + "==================" + Chr(13) + Chr(10)
        i = i + 1
    Loop    Close #FileNum
End Sub