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

[wukejun0307]

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

[ExeMan]

摘自leolan(史留香)
Private Type Person
ID As Integer
Name As String
End Type

Sub 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 Sub

Sub 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

[DooDu]

当文本文件一样操作就可以了。

[DooDu]

当文本文件一样操作就可以了。