一)读文件
1、顺序文件
顺序文件的读取有三种方式：
（1）Line Input # 语句
该语句从打开的顺序文件中读取一行数据。这里的一行指的是从当前指针位置开始到回车符或回车换行符之间的所有数据。Line Input # 语句的语法格式如下：
Line Input # 文件号，变量号
说明：“文件号”是打开文件时所用的文件号；“变量号”使用来存放读出数据的一个或多个变量，如果有多个变量，中间用空格分割开。Input# 语句为参数列表中的每一个变量读取文件的一个域，并将读出的域存入变量中。该语句只能顺序的从第一个域开始，直到读取想要的域。
请看下面代码：
| Dim strLine As String Dim VarValue as String Open "c:\test.txt" For Input As #1 Do Until EOF(1) Line Input #1, strLine VarValue = VarValue + strLine Loop Close #1 |
此段代码逐行读取一个文件到一个变量字符串中。
（2）Input函数
此函数可以从顺序文件中一次读取指定长度的字符串。具体地说，就是从文件的当前位置开始，读取指定个数的字符，然后将他们返回。Input函数可以读取包括换行符，回车符，空格符等在内的各种字符。下面是它的语法格式：
变量 = Input（串长度，文件号）
例如，要从一个打开文件中读取12个字符并复制到变量file中，我们可以这样写：
file = Input（12，filenum）
如果要将整个文件复制到变量，请使用InputB函数将字节从文件复制到变量。由于InputB函数返回一个ASCII字符串，因此，必须用StrCopy函数将ASCII字符串转换为Unicode字符串。代码如下：
file = StrCopy （Input （LOF（filenanum），filenum），vbUnicode）
（3）Input # 语句
Input #语句可以从文件中同时向多个变量内读入数据，而且读入的数据可以是不同类型的。
下面使它的语法格式：
Input # 文件号，变量列表
例如，我们要在文件student.txt中写入数据,下面是代码:
|
Open "student.txt" For Output As #filenum Write #filenum, "张三", "初一年级", 14 Write #filenum, "李四", "职业高中", 18 Dim name As String, nianji As String, age As Integer Dim name1 As String, nianji1 As String, age1 As Integer Open "student.txt" For Input As #filenum Input #filenum, name, nianji, age Input #filenum, name1, nianji1, age1 Close #filenum |
执行结果:
|
name=”张三” ,nianji = “初一年级” ,age =14 name=”李四” ,nianji = “职业高中” ,age =18 |
2、随机文件
读取随机文件是可以使用Get # 语句,数据从文件的一个指定记录中读出后,存入一个用户自定义的变量中.
语法格式: Get # FileNum ,[RecNum],UserType
说明:
(1)FileNum 是要打开的文件号;RecNum是要读取的记录号,若省略,则读取下一个记录
(2)UserType 是一个用来存放读出数据的用户自定义的数据类型变量.
下面是一个例子:
Get # 1,5,Student
该语句读取文件号为1的文件中的第5条记录.
【责编:michael】
相关文章
相关产品和培训
文章评论
专题推荐
最近更新
博客论点
频道精选
软件测试频道导航
您现在的位置： 
2008-6-24 
