亚洲综合成人在线_ QTP中調用共享文件 - xiaonan的個(gè)人空間

在我們開(kāi)發(fā)腳本的時(shí)候，發(fā)現有些腳本總是重復的出現在各個(gè)腳本中。那么我們是不是可以把這些腳本寫(xiě)成一個(gè)共享的function，放到一個(gè)共享的文件中？然后再給各個(gè)腳本調用呢？答案當然是肯定中。其實(shí)我在《QTP的一些小知識》中也提到了一個(gè)方法，就是利用ExecuteFile函數來(lái)調用.vbs文件。如：一個(gè)名為test.vbs的文件，我們只要在腳本中寫(xiě)上這么一句代碼ExecuteFile("F:\test.vbs") ，就可以來(lái)直接執行這個(gè).vbs文件了。

~*l&BMrV9g7bw"_k285656 現在我再來(lái)介紹另一種方法，這種方法也是QTP本身所提供的。就是設置菜單選項“setting”中的"resource"選項來(lái)做到調用共享文件的效果。在"resource"選項中，有三種文件格式是可以被調用的，分別是*.sql;*.vbs;*.txt三種后綴文件。這里我用一個(gè)*.txt文件為例。

新建一個(gè)名為test.txt的文本文件，其保存內容如下：（注：保存的內容也必須合法）

Function writeorderno(orderno)
Dim fso, myfile
Set fso=CreateObject("scrīpting.FileSystemObject")
u Q?Q5X9K285656Set myfile=fso.openTextFile("C:\result1.txt",8,false)
myfile.writeline orderno
Tf0k Q-gMH285656myfile.close
'pW,mT3mE285656End Function

一個(gè)名為writeorderno的Function，其作用是把傳進(jìn)來(lái)的值寫(xiě)到C盤(pán)名為result1.txt的結果文件中去。（注：結果文件也是事先要準備好的）。共享文件準備完畢，那么就開(kāi)始設置"resource"選項。打開(kāi)“setting”窗口，找到"resource"選項。點(diǎn)擊“+”的button。選擇前面我們建好的文件。如下：

2cJ6A5q%Ya285656確定關(guān)閉窗口。我們就來(lái)試驗一下，是不是這個(gè)共享文件里的Function能夠被調用了。在QTP專(zhuān)家視圖里寫(xiě)上這么幾句代碼：

Dim order

order=1

writeorderno order

`!?;^9}g4@l285656接下去就按run執行試驗，結果測試通過(guò)。雖然在腳本中根本沒(méi)對writeorderno函數做說(shuō)明，但是當QTP運行到這句代碼的時(shí)候，在本腳本里沒(méi)說(shuō)明的情況下，自己會(huì )到"resource"選項里去找。結果QTP能正確識別這個(gè)writeorderno 函數。打開(kāi)c盤(pán)里的 result1.txt的結果文件，發(fā)現傳進(jìn)函數的值1，被正確的寫(xiě)了進(jìn)去。預示著(zhù)整個(gè)調用共享文件的成功。

本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請點(diǎn)擊舉報。

欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久