QTP中调用共享文件

v`V!pv$]
~.r2p0

    现在我再来介绍另一种方法，这种方法也是QTP本身所提供的。就是设置菜单选项“setting”中的"resource"选项来做到调用共享文件的效果。在"resource"选项中，有三种文件格式是可以被调用的，分别是*.sql;*.vbs;*.txt三种后缀文件。这里我用一个*.txt文件为例。

    新建一个名为test.txt的文本文件，其保存内容如下：（注：保存的内容也必须合法）51Testing软件测试网6v_y^(cc@)\

Function writeorderno(orderno)
q.^B@'L"e'CS&\0Dim fso, myfile51Testing软件测试网M?
\vy1`}
Set fso=CreateObject("scrīpting.FileSystemObject")51Testing软件测试网 P0t$Oe;}M
Set myfile=fso.openTextFile("C:\result1.txt",8,false)51Testing软件测试网r*U9U%C"ri&v
myfile.writeline orderno51Testing软件测试网:m,}!@F zs#Tz
myfile.close
:v[RL|;G{0End Function

    一个名为writeorderno的Function，其作用是把传进来的值写到C盘名为result1.txt的结果文件中去。（注：结果文件也是事先要准备好的）。共享文件准备完毕，那么就开始设置"resource"选项。打开“setting”窗口，找到"resource"选项。点击“+”的button。选择前面我们建好的文件。如下：51Testing软件测试网dzZ+y"spLm

51Testing软件测试网7eU$n-HRm3^Gt

I Z?\ h0K0    确定关闭窗口。我们就来试验一下，是不是这个共享文件里的Function能够被调用了。在QTP专家视图里写上这么几句代码：

LS L;N)W}^0Dim order

order=151Testing软件测试网 y Zq6Ly3A

writeorderno order

    接下去就按run执行试验，结果测试通过。虽然在脚本中根本没对writeorderno函数做说明，但是当QTP运行到这句代码的时候，在本脚本里没说明的情况下，自己会到"resource"选项里去找。结果QTP能正确识别这个writeorderno 函数。打开c盘里的 result1.txt的结果文件，发现传进函数的值1，被正确的写了进去。预示着整个调用共享文件的成功。