vb6 读写文件
----------------------------------------------------------------
总结一下VB6的文件操作,省得要用的时候又到处查找。
一、文件类型
1、顺序文件(文本文件) :以ASCII码形式存放的文件。似乎还有Unicode码存放的,有没有BCD码的呢?
2、随机访问文件:这种文件格式很有特点:文件中存放若干条等长的单元(也可以说是记录);每个单元包含同类型、等数量、等长度的数据项;文件中,除了字符串以ASCII码存放之外, 其它都以二进制形式直接存放,节省存储空间。这种文件类型非常适合存储需要和软件交互的数据,如结构体数据、类数据等。这也是VB特有的文件访问方式。
3、二进制文件:以二进制形式存放,PE程序文件一般都是这个类型。
二、操作方法
1、顺序文件
打开: Open 文件名 For Input | Output | Append As [#]文件号
Input打开读入,文件不存在报错。Output打开覆盖写入,文件不存在则创建。Append打开追加写入,文件不存在则创建。
读: Line Input #文件号, 字符串变量
读一行数据存入字符串变量,数据包括空格、Tab、等,不包括回车符和换行符,所以要显示文件的换行效果,要手动添加回车符和换行符(vbCrLf)
Input #文件号, 变量1[, | ;] [变量2]...
这种方式可以存入多个变量,而且变量类型不限于字符串型。
写: Print #文件号, 参数1[, | ;] [参数2]...
将各参数逐个写入文件。参数间用逗号隔开时,文件中相应插入多个空格;用分号隔开时,插入一个空格。可以用Spc(n)、Tab(n)等进行排版。
Write #文件号, 参数1[, | ;] [参数2]...
这种写入方式将自动添加界定符,对不同参数的类型加以界定。
2、随机访问文件
打开: Open 文件名 [For Random] As [#]文件号 Len = 记录长度
For Random可以省略,文件不存在则创建,读写都是这种打开方式。 Len是文件中记录的一条长度,用以识别记录的开始与结束,经常用Len(记录名)来获取长度。
读: Get [#]文件号, [记录号], 变量
读一条记录存入变量,可以是系统类型的Integer、Single、String等等,也可以是自定义类型结构体、类等。记录号省略时从打开以后最后一次读取的末端开始读取记录。
写: Put [#]文件号, [记录号], 表达式
将表达式中的数据写入文件,表达式可以是各种变量的组合,中间用逗号隔开。该组数据写入记录号对应的位置,记录号省略时从打开以后最后一次写入的末端开始写入记录。
3、二进制文件
打开: Open 文件名 For Binary As [#]文件号
文件不存在则创建,读写都是这种打开方式。当然也可以用来打开文本文件,读出来将不知所云
读一条记录存入变量,可以是系统类型的Integer、Single、String等等,也可以是自定义类型结构体、类等。记录号省略时从打开以后最后一次读取的末端开始读取记录。
读: Get [#]文件号, [读位置], 变量
从“读位置”开始读取数据,读入的长度等于变量的长度,一次读一个。“读位置”以字节为单位。“读位置”省略时从打开以后最后一次写入的末端开始读入。
写: Put [#]文件号, [写位置], 表达式
将表达式中的数据写入文件,表达式可以是各种变量的组合,中间用逗号隔开。该组数据写入“写位置”,“写位置”以字节为单位。“写位置”省略时从打开以后最后一次写入的末端开始写入。
三、操作权限
使用Input、Binary、Random模式访问,可以同时对单个文件打开多个实例。使用Append和Output模式之前则必须确定文件
Open 文件名 For 模式 [Access access] [lock ] As [#]文件号 [len = 记录长度]
对随机存储文件和二进制文件,可以设置文件的读写权限。access可写成Read、Write、 Read Write,对应只读、只写、读写兼备。此项功能不适用于顺序文件。
Lock | Unlock 文件号, [记录| [起始记录 To终止记录]]
当指明lock标识后,可用以上代码设置文件的共享权限。对顺序文件, [记录| [起始记录 To终止记录]]不起作用,将对整个文件生效;对随机存储文件,将对记录标识中的部分进行权限锁定或解锁。
四、文件操作函数
以上部分可以实现文件操作的一些功能,但要完成如拷贝整个文件、查找文件是否已建立、取文件长度等功能,还需要一些文件操作函数来方便地实现。
Seek: Seek(文件号)
返回文件正在访问的位置,返回值为长整型。对顺序文件和二进制文件,返回值以字节为单位;对随机访问文件,返回值以记录号为单位。
Seek: Seek [#]文件号,位置
定位文件到指定位置。位置单位同上所述。
Input: Input (字节数,[#]文件号)
从文件的访问当前位置读入指定字节数的数据。仅适用于顺序文件和二进制文件。
EOF: EOF(文件号)
判断文件的访问位置是否在文件尾,如果是,返回True,否则,返回False。
LOF: LOF(文件号)
返回文件长度,单位为字节。
FileLen: FileLen (文件名)
返回文件名对应文件的长度,单位是字节。该函数取磁盘文件标识中的长度,即文件打开前的长度,可以取未打开的文件长度。
GetAttr: GetAttr (Pathname)
返回指定文件或文件夹的属性。
FileAttr: FileAttr (文件号)
返回文件号对应文件的打开方式。
GetDateTime: GetDateTime (Pathname)
返回文件被创建或修改的最后日期和时间。
Free: FreeFile[(0|1)]
返回未被占用的文件号,Free或Free(0)返回1~255之间未占用的文件号,Free(1)返回256~511之间未占用的文件。
Dir: Dir (Pathname [,Attributes])
测试指定路径是否有某文件,Attributes附加文件属性条件,取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。
Kill: Kill (文件名)
删除指定文件,文件名可包含路径。
FileCopy: FileCopy 源文件,目标文件
拷贝文件。
Name: Name 旧文件名 As 新文件名
文件重命名。前后路径不一致时,操作为移动文件并重命名。
MkDir: MkDir path
新建文件夹。
RmDir: Rmdir path
删除文件夹。
ChDrive: ChDrive Drive
改变当前驱动器 ChDrive "D"
CurDir: CurDir [(driver)]
返回当前工作路径,指定driver则返回目标驱动器的当前工作路径。
五、文件操作实战
1、新建文本文件a.txt,写入数据,关闭。打开该文件,全部读入到新建文件b.txt,关闭。
'新建文件,并写入数据,关闭
Open "a.txt" For Output As #1
Print #1, "ABCDEFG"; vbCrLf; "HIJK"
Close #1
'打开文件,并全部写入新文件,关闭
Open "a.txt" For Input As #2
Open "b.txt" For Output As #3
Dim str As String
While (Not EOF(2))
Line Input #2, str
Print #3, str
Wend
Close
2、新建随机存储文件a.dat,写入数据,关闭。打开该文件,读入到新建文件b.dat,关闭。
'以下代码位于Module模块
'定义自定义类型结构体
Public Type Struct
elem1 As Integer
elem2 As String * 5
End Type
'以下代码位于窗体模块
'新建文件,并写入记录,关闭
Open "a.dat" For Random As #1 Len = Len(st)
Put #1, , st
Close #1
'打开文件,并写入新文件,关闭
Open "a.dat" For Random As #2 Len = Len(st)
Open "b.dat" For Random As #3 Len = Len(st)
Dim st2 As Struct
Get #2, , st2
Put #3, , st2
Close
3、二进制文件操作类似于随机存储文件,不再举例。
最新文章
- 以bank account 数据为例,认识elasticsearch query 和 filter
- 转载一些Android性能优化建议
- Jmeter中察看结果树中的响应数据,中文显示乱码问题处理
- C# 配置错误定义了重复的“system.web.extensions/scripting/scriptResourceHandler”节
- UVALive 6092 Catching Shade in Flatland --枚举+几何计算
- Spring3.1新属性管理API:PropertySource、Environment、Profile
- poj 2046 Gap
- js jquery版本的 金额千分位转换函数(非正则,效率极高)
- java 类的加载,链接,初始化
- windows下使用openssl的一种方法
- 分布式消息系统Jafka入门指南之二
- hdu Text Reverse
- 【css】css3属性
- python学习===从一个数中分解出每个数字
- Java经典编程题50道之二十一
- MVC+linq开发经验
- 【题解】 [ZJOI2009]假期的宿舍 (二分图匹配)
- Jade简单教程
- string类型介绍
- (翻译)在 Xamarin 应用中使用 MongoDB
热门文章
- 梯度下降法实现最简单线性回归问题python实现
- ExpressRoute 合作伙伴和对等位置
- java笔记--线程休眠sleep()的运用
- [控件] TranformFadeView
- 用 Core Animation 实现图片的碎片化
- 处理过期的archivelog和rman备份
- 线段树&;&;线段树的创建线段树的查询&;&;单节点更新&;&;区间更新
- Android 高级UI设计笔记24:Android 夜间模式之 WebView 实现白天 / 夜间阅读模式 (使用JavaScript)
- async/await actor promise 异步编程
- BZOJ3611:[HEOI2014]大工程(树形DP,虚树)