搜索栏搜索出来的东西,怎么验证?
RT匹配是模糊的,这个怎么qtp验证?类似baidu
的搜索栏~ CS,bs 都有 这个跟测试数据有关系 bs的使用dom对象来做,我试过了,贴几行代码出来
而 cs的就不太清楚了
希望 对你有启发
Systemutil.Run "C:\Program Files\Internet Explorer\iexplore.exe", "", "", "open"
Browser("企业招聘").Page("企业招聘").Sync
Browser("企业招聘").Navigate "http://www.eptrc.com/job_list.aspx"
Browser("企业招聘").Page("企业招聘").Sync
Set dom = Browser("企业招聘").Page("企业招聘").Object.documentElement
flag = 0
Set odivs = dom.getElementsByTagName("div")
For i = 0 to odivs.length - 1
If (trim(odivs(i).innertext)) = "企业招聘信息" Then
' msgbox odivs(i).innertext & ", " & i
flag = flag + 1
Set mydiv = odivs(i)
Exit for
End If
Next
'msgbox flag
dim content
If flag = 1 Then
flag = 0
Set strCompanyNameTitleDiv = mydiv.parentnode
If trim(strCompanyNameTitleDiv.classname) = "texttitle" Then
Set mysearchtable = strCompanyNameTitleDiv.nextsibling
Set mychilddivs = mysearchtable.childnodes
For i = 0 to mychilddivs.length - 1
If trim(myChildDIVs.item(i).classname) = "row" or trim(myChildDIVs.item(i).classname) = "rowhl" Then
flag = flag + 1
set cpNode = myChildDIVs.item(i).firstChild.getElementsByTagName("A").item(0).attributes
myhref =myChildDIVs.item(i).firstChild.getElementsByTagName("A").item(0).href
If i < 1 Then
Systemutil.Run "C:\Program Files\Internet Explorer\iexplore.exe", "", "", "open"
Browser("Browser").Navigate myhref
End If
strCompanyName = myChildDIVs.item(i).firstChild.getElementsByTagName("DIV").item(1).innertext
content = content & strCompanyName & vbCrLf
End If
Next
End If
End If
msgbox attr
msgbox content 比较难,就人工都很难 1、首先获取当前关键词的搜索结果列表;
2、针对每个搜索结果,利用一个循环判断其内容中是否包含指定的关键词;
3、具体的通过标准需要根据搜索功能的需求规格来,例如是否必须完全匹配,是否要求关键词的顺序一致,是否运行只包含部分关键词;然后记录结果即可 ding 判断是否存在关键字。。。
页:
[1]