~*l&BMrV9g7bw"_k285656 现在我再来介绍另一种方法,这种方法也是QTP本身所提供的。就是设置菜单选项“setting”中的"resource"选项来做到调用共享文件的效果。在"resource"选项中,有三种文件格式是可以被调用的,分别是*.sql;*.vbs;*.txt三种后缀文件。这里我用一个*.txt文件为例。
!D m LP1G9zq%S28565651Testing软件测试网2L%R_S#z%b(J8Ku8_G PL新建一个名为test.txt的文本文件,其保存内容如下:(注:保存的内容也必须合法)51Testing软件测试网2~7U/i|X U!Y"u0w{"h
51Testing软件测试网v9M:PL`hFunction writeorderno(orderno)51Testing软件测试网z%a2lw wF4{L9T#I
Dim fso, myfile51Testing软件测试网'aq4vO [ \^
Set fso=CreateObject("scrīpting.FileSystemObject")
u Q?Q5X9K285656Set myfile=fso.openTextFile("C:\result1.txt",8,false)51Testing软件测试网 ~7~#@9_Xz
myfile.writeline orderno
Tf0k Q-gMH285656myfile.close
'pW,mT3mE285656End Function51Testing软件测试网/NjF eu0wR._
一个名为writeorderno的Function,其作用是把传进来的值写到C盘名为result1.txt的结果文件中去。(注:结果文件也是事先要准备好的)。共享文件准备完毕,那么就开始设置"resource"选项。打开“setting”窗口,找到"resource"选项。点击“+”的button。选择前面我们建好的文件。如下:51Testing软件测试网FF1je [
51Testing软件测试网0L s)}4x M-Q,Gg%w2cJ6A5q%Ya285656确定关闭窗口。我们就来试验一下,是不是这个共享文件里的Function能够被调用了。在QTP专家视图里写上这么几句代码:51Testing软件测试网*f] }0eP I0C ~
51Testing软件测试网`T~6\,cY Cc3C7CnFDim order51Testing软件测试网S1x:Q1e!q Lc-OX
51Testing软件测试网"\"c?$IW*torder=151Testing软件测试网3Y3j'|;tCl
51Testing软件测试网PJ N]gwriteorderno order51Testing软件测试网 XKg@vq%m Nw
`!?;^9}g4@l285656接下去就按run执行试验,结果测试通过。虽然在脚本中根本没对writeorderno函数做说明,但是当QTP运行到这句代码的时候,在本脚本里没说明的情况下,自己会到"resource"选项里去找。结果QTP能正确识别这个writeorderno 函数。打开c盘里的 result1.txt的结果文件,发现传进函数的值1,被正确的写了进去。预示着整个调用共享文件的成功。
联系客服