7,763
社区成员
发帖
与我相关
我的任务
分享文件的存储和读取的问题？
我把一个变量定义成一个记录
type stu
name as string
english as integer
end type
dim a as stu
我用OPEN语句打开文件，用WRITE向记录写数据
我要显示记录的数据，应怎么做，写出代码
要知道文件里有多少记录，又应怎么做？
type stu
name as string
english as integer
end type
dim a as stu
我用OPEN语句打开文件，用WRITE向记录写数据
我要显示记录的数据，应怎么做，写出代码
要知道文件里有多少记录，又应怎么做？
...全文
请发表友善的回复…
发表回复
IsMe 2002-04-21
- 打赏
- 举报
将你定义的字符串改为定长字符串，这样才可以随即存取
xxlroad 2002-04-21
- 打赏
- 举报
Private Type stu
name As String
english As Integer
End Type
Dim A As stu
Private Sub Form_Load()
A.name = "事实上"
A.english = 80
End Sub
Private Sub Command1_Click()
Open "C:\aa.txt" For Output As 1#
Print #1, A.name
Print #1, A.english
Close #1
End Sub
name As String
english As Integer
End Type
Dim A As stu
Private Sub Form_Load()
A.name = "事实上"
A.english = 80
End Sub
Private Sub Command1_Click()
Open "C:\aa.txt" For Output As 1#
Print #1, A.name
Print #1, A.english
Close #1
End Sub
zyl910 2002-04-21
- 打赏
- 举报
Get 文件号, 读取起始位置（可省）, a
zyl910 2002-04-21
- 打赏
- 举报
Get 文件号, 读取起始位置（可省）, a
zyl910 2002-04-21
- 打赏
- 举报
Put：写
Get：读
Lof：取文件大小（单位：字节），把它除以Len(a)就得到记录条数
Get：读
Lof：取文件大小（单位：字节），把它除以Len(a)就得到记录条数
