手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>网络编程>Asp.Net编程>列表

.net入门之VB篇:Visual Basic.Net中的文件操作(一)

来源:互联网 作者:西部数码 时间:2008-04-12
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
FileOpen 函数:FileOpen(FileNumber, FileName, OpenMode.Random, , , RecordLength)

FileNumberFileName 分别指定要打开的文件的编号和文件名。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
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!