~*l&BMrV9g7bw"_k285656 現(xiàn)在我再來介紹另一種方法,這種方法也是QTP本身所提供的。就是設置菜單選項“setting”中的"resource"選項來做到調(diào)用共享文件的效果。在"resource"選項中,有三種文件格式是可以被調(diào)用的,分別是*.sql;*.vbs;*.txt三種后綴文件。這里我用一個*.txt文件為例。
!D m LP1G9zq%S28565651Testing軟件測試網(wǎng)2L%R_S#z%b(J8Ku8_G PL新建一個名為test.txt的文本文件,其保存內(nèi)容如下:(注:保存的內(nèi)容也必須合法)51Testing軟件測試網(wǎng)2~7U/i|X U!Y"u0w{"h
51Testing軟件測試網(wǎng)v9M:PL`hFunction writeorderno(orderno)51Testing軟件測試網(wǎng)z%a2lw wF4{L9T#I
Dim fso, myfile51Testing軟件測試網(wǎng)'aq4vO [ \^
Set fso=CreateObject("scrīpting.FileSystemObject")
u Q?Q5X9K285656Set myfile=fso.openTextFile("C:\result1.txt",8,false)51Testing軟件測試網(wǎng) ~7~#@9_Xz
myfile.writeline orderno
Tf0k Q-gMH285656myfile.close
'pW,mT3mE285656End Function51Testing軟件測試網(wǎng)/NjF eu0wR._
一個名為writeorderno的Function,其作用是把傳進來的值寫到C盤名為result1.txt的結果文件中去。(注:結果文件也是事先要準備好的)。共享文件準備完畢,那么就開始設置"resource"選項。打開“setting”窗口,找到"resource"選項。點擊“+”的button。選擇前面我們建好的文件。如下:51Testing軟件測試網(wǎng)FF1je [
51Testing軟件測試網(wǎng)0L s)}4x M-Q,Gg%w2cJ6A5q%Ya285656確定關閉窗口。我們就來試驗一下,是不是這個共享文件里的Function能夠被調(diào)用了。在QTP專家視圖里寫上這么幾句代碼:51Testing軟件測試網(wǎng)*f] }0eP I0C ~
51Testing軟件測試網(wǎng)`T~6\,cY Cc3C7CnFDim order51Testing軟件測試網(wǎng)S1x:Q1e!q Lc-OX
51Testing軟件測試網(wǎng)"\"c?$IW*torder=151Testing軟件測試網(wǎng)3Y3j'|;tCl
51Testing軟件測試網(wǎng)PJ N]gwriteorderno order51Testing軟件測試網(wǎng) XKg@vq%m Nw
`!?;^9}g4@l285656接下去就按run執(zhí)行試驗,結果測試通過。雖然在腳本中根本沒對writeorderno函數(shù)做說明,但是當QTP運行到這句代碼的時候,在本腳本里沒說明的情況下,自己會到"resource"選項里去找。結果QTP能正確識別這個writeorderno 函數(shù)。打開c盤里的 result1.txt的結果文件,發(fā)現(xiàn)傳進函數(shù)的值1,被正確的寫了進去。預示著整個調(diào)用共享文件的成功。