FileNumber 和 FileName 分别指定要打开的文件的编号和文件名。RecordLength 以字节为单位指定每条记录的大小。如果 RecordLength 小于写入文件的记录的实际长度,则会生成错误。
示例:打开随机访问的文件。
Dim FileNum as Integer ,RecLength as Long, Aperson as Person
‘计算记录的长度
RecLength=Len(APerson)
‘获得可用的文件号
FileNum=FreeFile()
‘打开文件
FileOpen(FileNum,”c:\example.txt”,OpenMode.random,,,Reclenght)
打开文件之后就可以把记录读入变量中,使用FileGet函数。
示例:从文件中读取第一条记录
Dim FileNum as Integer ,RecLength as Long, Aperson as Person
RecLength=Len(APerson)
FileNum=FreeFile()
FileOpen(FileNum,”c:\example.txt”,OpenMode.random,,,Reclenght)
FileGet(FileNum,Aperson,1);
Console.WriteLine(Aperson.Id)
Console.WriteLine(Aperson.Name)
Console.WriteLine(Aperson.Sex)
Console.WriteLine(Aperson.MonthlySalary)
FileClose(FileNum)
写入记录:通过FilePut函数来替换已经存在的记录或新增记录
示例:写入五条记录到文件中:
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




