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可以获得属性。
文章来源于领测软件测试网 https://www.ltesting.net/
