|
我参照着jackymail做了一段脚本,只能取到酒店的值,价格好像是算出来的,所以价格取不出来,还请高手指教.
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\Administrator","open"
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://hotel.qunar.com"
Browser("Browser").Page("酒店预定,宾馆预订,青年旅社预订,酒店评论").WebButton("酒店搜索").Click
wait(5)
mylink = Browser("广州酒店, 广州宾馆, guangzhou").Page("广州酒店, 广州宾馆, guangzhou").GetROProperty("url")
Set xmlobj=CreateObject("Microsoft.XMLHTTP")
xmlobj.open "Get",mylink,false
xmlobj.send()
htmlcode= xmlobj.responsetext
Dim regEx, Match, Matches
Set RegEx=New RegExp
RegEx.pattern="<a href=.dt-.*"
RegEx.Global=True
Set matches=RegEx.execute(htmlcode)
For Each Match in Matches
patrn="\<.+?\>"
RetStr = Match.Value
RetStr =RegExp_Replace(patrn,RetStr ,"")
RetStr =RegExp_Replace(patrn,RetStr ,"")
print RetStr
Next
Function RegExp_Replace(patrn,str,replStr)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = true ' 设置是否区分大小写。
RegExp_Replace = regEx.Replace(str,replStr) ' 作替换。
End Function |
|