|
7#
楼主 |
发表于 2009-5-20 15:56:03
|
只看该作者
继续请教
Dim city,hotelname,Click
city = "南昌"
hotelname = "南昌锦峰大酒店"
Btitle = hotelname&" - "&city&"酒店预订"&" - 携程旅行网"
Browser("携程旅行网: 酒店预订 - 机票预订 - 旅游度假").Page("携程旅行网: 酒店预订 - 机票预订 - 旅游度假").WebEdit("cityname").Set city
Browser("携程旅行网: 酒店预订 - 机票预订 - 旅游度假").Page("携程旅行网: 酒店预订 - 机票预订 - 旅游度假").WebEdit("starttime").Set "2009-5-20"
Browser("携程旅行网: 酒店预订 - 机票预订 - 旅游度假").Page("携程旅行网: 酒店预订 - 机票预订 - 旅游度假").WebEdit("deptime").Set "2009-5-21"
Browser("携程旅行网: 酒店预订 - 机票预订 - 旅游度假").Page("携程旅行网: 酒店预订 - 机票预订 - 旅游度假").WebEdit("htln").Set hotelname
Browser("携程旅行网: 酒店预订 - 机票预订 - 旅游度假").Page("携程旅行网: 酒店预订 - 机票预订 - 旅游度假").WebButton("搜索").Click
Browser("酒店查询结果 - 酒店预订 - 国内国际酒店预订服务").Sync
Browser("酒店查询结果 - 酒店预订 - 国内国际酒店预订服务").Page("酒店查询结果 - 酒店预订 - 国内国际酒店预订服务").Link("text:="&hotelname).click
'Browser("title:="&hotelname -).Sync
Browser("title:="&Btitle).Sync
'Browser("title:="&Btitle).page("title:="&Btitle).WebElement("innertext:=联系方式")
Set Bro = Description.Create()
Bro("title").value = ".*"
Set Pag = Description.Create()
Pag("title").value = ".*"
Set WebElement1 = Description.Create()
WebElement1("innertext").value = ".*南昌锦峰大酒店.*"
WebElement1("html tag").value = "SPAN"
temp = Browser(Bro).Page(Pag).WebElement(WebElement1).GetROProperty ("outertext")
print temp
我现在是要把这个数据参数化 因为可能有10个酒店
WebElement1("innertext").value = ".*南昌锦峰大酒店.*"是否可以代替为
WebElement1("innertext").value = ".*"&hotelname&".*"
但是运行时貌似会报错temp = Browser(Bro).Page(Pag).WebElement(WebElement1).GetROProperty ("outertext") |
|