‘自定义数据类型
Structure Person
Public ID As Integer
Public Name As String
End Structure
Sub WriteData() Dim MyRecord As Person Dim recordNumber As Integer '''' 随机方式打开. FileOpen(1, "C:\example.txt", OpenMode.Binary) For recordNumber = 1 To 5 '''' MyRecord.ID = recordNumber '''' Define ID. MyRecord.Name = "My Name" & recordNumber ''''创建一个字符串 FilePut(1, MyRecord) '''' 写入文件 Next recordNumber FileClose(1)End Sub
以上代码实现了随机访问的方式打开文件,并写入记录。
二进制文件的操作
打开要进行二进制访问的文件
FileOpen(FileNumber, FileName, OpenMode.Binary)
关闭要进行二进制访问的文件
FileClose(FileNumber)
如果保持较小的文件大小很重要,则采用二进制访问。因为二进制访问不要求固定长度的字段,所以类型声明可以省略字符串长度参数。这使得以通过生成变长记录来节省磁盘空间。使用二进制型访问的类型定义为:
Structure Person
dim ID As Integer
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




