Private Type Record ' 定义用户自定义数据类型。 ID As Integer Name As String * 20 Sex As String * 2 Age As Integer End Type Private Sub Command1_Click() Dim i As Long Dim MyRecord As Record ' 声明变量。 Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
For i = 1 To 5 ' 循环五次。 With MyRecord .ID = i ' 定义 ID。 .Name = "My Name" & RecordNumber ' 建立字符串。 .Sex = "男" .Age = i * 10 End With Put #1, i, MyRecord ' 将记录写入文件中。 Next i ' 若要以其他方式打开文件,必需先关闭此文件。 Close #1 End Sub======================== 免费的学习、交流、源码、工具网站,欢迎大家访问! http://www.j2soft.cn/
PDF文件格式需要看pdf文档,文件头包括几个字节什么的! 楼上的同志就给出了一个自己做的文件格式! 具体解析就是一条记录4个内容 ID 2 字节 Name 20 字节 Sex 2 字节 Age 2 字节
ID As Integer
Name As String * 20
Sex As String * 2
Age As Integer
End Type
Private Sub Command1_Click()
Dim i As Long
Dim MyRecord As Record ' 声明变量。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
For i = 1 To 5 ' 循环五次。
With MyRecord
.ID = i ' 定义 ID。
.Name = "My Name" & RecordNumber ' 建立字符串。
.Sex = "男"
.Age = i * 10
End With
Put #1, i, MyRecord ' 将记录写入文件中。
Next i ' 若要以其他方式打开文件,必需先关闭此文件。
Close #1
End Sub========================
免费的学习、交流、源码、工具网站,欢迎大家访问!
http://www.j2soft.cn/
楼上的同志就给出了一个自己做的文件格式!
具体解析就是一条记录4个内容 ID 2 字节 Name 20 字节
Sex 2 字节
Age 2 字节