Dim aasplit
set fso=createobject("scrīpting.filesystemobject") '創建文件系統對象
set file=fso.opentextfile("D:\hjq.csv") '打開csv文件
wait(2)
Do while file.atendofstream<>true
aasplit=split(file.readline,",")'用,分割字符串
For i=0 to UBound(aasplit)
With Browser("XX項目").Page("XX項目")
With .Frame("wap")
.WebEdit("key").Set aasplit(i)
.WebButton("搜").Click
End With
.Frame("wap_2").Link("返回XX首頁").Click
.Sync
End With
Next
loop
file.close '關閉文件
14 怎樣識別彈出的web窗口和對象1， 進入object identification
2， 在enviroment中選擇web
3， 選擇某個test object class，如browser
4， 添加mandatory properties
5， 確定
6， 重新錄制腳本
7， OK
15 Vbs寫文件set fs =createobject("scrīpting.filesystemobject")
if (fs.fileexists("c:\hjq.txt")) then
set f =fs.opentextfile("c:\hjq.txt",8)
f.write chr(13)+chr(10)
f.write "hello"
f.write chr(13)+chr(10)
f.writeline "beijing"
f.close
else
set f=fs.opentextfile("c:\hjq.txt",2, true)
f.writeblanklines 2 '寫入2個空行
f.write "china"
f.close
end if
16 基本函數
QTP的基本使用函數：
1, 獲取對話框相應的文字: GetVisible Text
2, 查找相應的字符串: instr (1,查找目標字符串,所查找的字符串)
3, 隨機數的獲取: Randomnumber.Value() 或cstr(int(Rnd*10)+1)
4, 等待函數: Wait(秒數)
5, 獲取數組下標: UBound (數組名)
6, 拆分數組: Split(MyString, ",", -1, 1)
7, 可執行步驟: OptionalStep
8, 報告信息: Reporter.ReportEvent 3, "Save Step", "Out of cycle!"
9, 判斷對話框是否存在: .exist
10，事件過濾函數：Reporter.Filter=過濾條件(0，1，2，3)，0代表顯示所有的error和warning,1，顯示error,2,顯示waining,3,任何error和warning都不顯示。
11，循環函數：do … loop until，for…to… then next,while.
12，數據表格：DataTable,向外賦值，Dim aa = DataTable.value(“CellingName”,”ActionName”).
13，獲得對象屬性的三種方法GetTOProperty，GetTOProperties,GetROProperty,GetTOProperty獲得程序中對象當前的屬性，GetTOProperties獲得當前屬性所有集合，GetROProperty獲得的是錄制時對象所獲得的屬性。
14，檢查點方法check和輸出指定屬性值output。
15，函數Descrīption,可以獲得某頁面同標簽的屬性進行操作。
16，函數nagative可以隨便跳轉頁面到指定的URL。
17，函數Object可以獲得當前頁面同屬性的控件。
18，函數Focus可以讓控件獲得焦點，函數Blur則是失去焦點，click單擊，dbclick雙擊。
19，函數setAttribute可以設置控件屬性，getAttribute可以獲得屬性。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
