顺序文件的写入(Write、Print):
顺序文件存放的内容有两类:
数据类型:
读文件(Input、Line Input): Input语句: (常用于数据类型的顺序文件) 作用: 从打开的顺序文件读出数据项并将数据赋值给变量 形式: Input #文件号,变量列表 关键: 搞清楚读出的数据是什么类型?变量类型需一致 例:
- 每条记录的数据项固定
- 各数据项之间逗号分隔,字符串有双引号
- 每条记录以回车符结束
- 如写的文章、程序代码等
- 每条记录可长可短,以回车符结束
Write 文件号,[数据],[数据] Print 文件号,[数据],[数据]
说明:
Write :
数据项之间逗号分隔,字符串用双引号括起来
Prite :
无逗号分隔,双引号,按区分隔(每14个字符宽)
读文件(Input、Line Input): Input语句: (常用于数据类型的顺序文件) 作用: 从打开的顺序文件读出数据项并将数据赋值给变量 形式: Input #文件号,变量列表 关键: 搞清楚读出的数据是什么类型?变量类型需一致 例:
Private Sub Command1_Click() Dim no$,name$,score$ Open "" For Input As #1 Do While Not EOF(1) Input #1,no,name,score print no,name,score Loop End Sub
Line Input语句:
(常用于文本类型的顺序文件)
作用:
从打开的顺序文件读出一行数据并将数据赋给变量(读出的是字符串类型,不包含回车换行符)
形式:
Line Input #文件号,字符串变量
例:
将当前工程的窗体文件读出并在窗体显示
Open App.Path+"\form1.frm" For Input As #1 Do While Not EOF(1) '每读一行后,指针自动向下移动一行。 Line Input #1,str print strLoop
补充知识:
EOF(文件号):函数表示#1号文件中指针是否到末尾。没有为False,否则为True
LOF(文件号):返回文件的字节数(英文1B,中文2B)
LOF()、Len()、LenB()的区别:例如s="VB6.0程序设计教程"
LOF(s)=17获得文件字节数17
Len(s)=11字符数11
LenB(s)=22字节数22
实例操作
步骤一: 按照下图,建立窗体界面 步骤二: 保存工程,并在工程所在文件目录下新建两个txt文本,分别命名为:Data1和Data2。如下所示: 步骤三: 编写第一个按钮的代码(Write写入数据文件),该按钮演示了使用Write方法写入数据到文件的过程。Private Sub Command1_Click() Open App.Path & "\Data1.txt" For Append As #1 Write #1, "091023", "王海涛", 66 Write #1, "092498", "周 英", 88 Close #1End Sub
步骤四:
编写第二个按钮的代码(Print写入数据文件),该按钮演示了使用Print方法写入数据到文件的过程。
Private Sub Command2_Click() Open App.Path & "\Data2.txt" For Append As #2 Print #2, "091023", "王海涛", 66 Print #2, "092498", "周 英", 88 Close #2End Sub
步骤五:
编写第三个按钮的代码(Input读出数据文件),该按钮演示了使用Input方法读取数据文件的过程。
Private Sub Command3_Click() Dim no$, name$, score$ Open App.Path & "\Data1.txt" For Input As #1 Do While Not EOF(1) Input #1, no, name, score Print no, name, score Loop Close #1End Sub
步骤六:
编写第四个按钮的代码(Line Input读出form1.frm文本文件),该按钮演示了Line Input方法读取当前窗体form1.frm文件内容的过程。
Private Sub Command5_Click() Dim str$ Open App.Path + "\form1.frm" For Input As #2 Do While Not EOF(2) Line Input #2, str Print str Loop Close #2End Sub
步骤七:
编写第五个按钮的代码(LOF返回文本字节数),按按钮演示了利用LOF方法显示某文本包含的字节数
Private Sub Command6_Click() Open App.Path & "\Data1.txt" For Input As #1 Print "Data1该文件包含字节数为:"; LOF(1) Close #1End Sub
步骤八:
编写最后一个按钮的代码,清空窗体
Private Sub Command4_Click() ClsEnd Sub
最后,
运行程序,测试代码,先点击写入数据的按钮,然后再点击读取按钮,查看效果。并在资源管理器中打开Txt文件,查看里面的内容。如下图所示,是经过多次写入数据后再查看数据的效果: