这里先简单讲一下：
我们在进行系统自动化功能测试的时候，需要Robot从外部文本文件中读入到变量中，类似于实现数据池（datapool）的功能，这时可以通过对文件操作的几个语句来实现，其中 Open 语句能够对文件输入/输出，LOF函数返回一个 Long型值，表示用 Open 语句打开的文件的大小，该大小以字节为单位。Input函数从文件中读入数据，而Print函数则把数据写到文件中。下边是个代码例子
Sub Main
Dim Result as Integer
Dim filename as String
Dim VarValue as Strng
filename="c:\myext.txt"
Open filename For Input As #1
VarValue = Input$(Lof(1),#1)
Close #1
End Sub
那么如何把变量写回文本文件呢？下边是个例子程序：
Sub Main
Dim Result as Integer
Dim filename as String
Dim VarValue as Strng
VarValue = “这是一个测试”
filename="c:\myext.txt"
on error resume next
open "c:\file.txt" for output as #1
print #1,varValue
close #1
end sub
[ Last edited by pcl2004_27 on 2004-9-18 at 11:47 ]作者: pcl2004_27 时间: 2004-9-18 11:09 标题: Rational Robot中文件操作（原创） Rational Robot中提供了一个文件操作命令，语法如下：
Open filename$ [For mode] [Access access] [lock] As [#] filenumber% [Len = reclen]
这里我们把它的语法分为两部分，因为这个文件操作命令有两种文件操作模式，一种是顺序文件，一种是随机文件。
下边是对顺序文件操作的语法：
Open filename$ [ For [Input |Output |Append] As [#]filenumber [Len = buffersize]
参数说明：
说明：
例子：
Open “c:\test.dat" For Output As 1
Open “c:\test.dat" For Output As 1
这两句代码在c盘所在目录下创建了一个名为test.dat的文本文件,分配文件号为1.
Open “c:\test.dat" For Input As [#]filenumber 这条语句是从文本文件中读取数据.
Open App.Path + "\test.dat" For Append As [#]filenumber 这条语句则是向文本文件中添加数据
[ Last edited by pcl2004_27 on 2004-9-18 at 11:48 ]作者: pcl2004_27 时间: 2004-9-18 11:25
随机文件的操作：
操作随机文件之前,首先必须定义用于保存数据项的记录类型.该记录是用户自定义数据类型,他们是随机文件中存储数据的基本结构.例如:
Type Student
No As Integer
Name As String * 20
age As Integer
End Type
Dim Stud As Student ‘定义一个可以存放学生材料的变量
随机文件中,所有的数据都将保存到若干个结构为Student类型的记录中, 而从随机文件中读出的数据则可以存放到变量Stud中.之后我们就可以打开并读写文件了.
随机文件的操作语法格式:
Open filename For Random as [#]filenumber Len = Reclength
说明:
(1)参数filename 和filenumber 分别表示文件名或文件号.
(2)关键字Random 表示打开的是随机文件
(3)Len子句用于设置记录长度,长度由参数Reclength指定.Reclength的值必须大于0,而且必须与定义的记录结构的长度一致.计算记录长度的方法是将记录结构中每个元素的长度相加.例如前面声明的Student的长度应该是2+20+2=24字节.
打开一个记录类型为Student 的随机文件的方法是:
Open "c:\Student.txt " For Random As #1 Len = 25
这里还有一种文件操作方式二进制文件，下边是他的语法格式:
Open pathname For Binary As [#]filenumber
说明:
(1) 参数filename 和filenumber 分别表示文件名或文件号.
(2)关键字Binary 表示打开的是二进制文件
(3)对于二进制文件,不能指定字节长度.每个打开的二进制文件都有一个自己的指针,文件指针是一个数字值,指向下一次读写操作的文件中的位置.二进制文件中的每个”位置”对应一个数据字节,因此,有n个字节的文件,就有1到n个位置.
我们可以用Seek()函数返回当前的文件指针位置(即下一个要读写的字节 );用Loc()函数返回上一次读写的字节位置,除非用Seek语句移动了指针,Loc()返回值总比Seek()的小1.我们来看下面的例子:
Open “路径：\student.txt” for Binary as #1 该语句用二进制的方式打开了student.txt文件.作者: pcl2004_27 时间: 2004-9-18 11:39
下边我们继续介绍一下不同文件类型的操作：
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
Dim ar As String * 1, i As Integer
Open "c:\student.txt" For Binary As #1
Open "c:\student2.txt" For Binary As #2
For i = 1 To LOF(1)
Get #1, , ar
Put #2, , ar
Next i