QTP中调用共享文件

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

3R6gV*U1o1Gw0    新建一个名为test.txt的文本文件，其保存内容如下：（注：保存的内容也必须合法）51Testing软件测试网]|;QM2ZZ{A"v4[

5w1r6r9r2~loeV0Function writeorderno(orderno)51Testing软件测试网%s?*n"iF
Dim fso, myfile
8UZ5ps+BxT)?1G P0Set fso=CreateObject("scrīpting.FileSystemObject")
o`+dc
U*nH4E0Set myfile=fso.openTextFile("C:\result1.txt",8,false)51Testing软件测试网k fh~TN#|?#\#z
myfile.writeline orderno
_0V(Hlo2T_0myfile.close
Vp)cz7fb:{0End Function51Testing软件测试网[dE3ccg0GN

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

.k%D9me!^:q051Testing软件测试网n,I.J rWCj

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

Dim order

order=1

;h9}cH'RB8Mdv ^0writeorderno order51Testing软件测试网lN3Qy.}.OL

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