QTP实例-记录网站的酒店和房型、价格信息

!VQw!gB$eH0脚本代码：

7y,Ra R8YJ-xO0'scrīpt Name：GetPrices
4b@^$aA0'CreateBy：LiuPei
1l F-x,Sh
CQ0'CreateTime：2008-07-2451Testing软件测试网0P/ck#y Lwx0\AR
'Descrīption：获取所有酒店信息并列出房型价格
y(sR7b'Z.k"N?0'————————————————————51Testing软件测试网!OR4X e]:_?'A:t.]
SystemUtil.CloseProcessByName "iexplore.exe"51Testing软件测试网Ix}:\$i\C
jL
O

Set IE = CreateObject("Internetexplorer.Application")51Testing软件测试网B;M-[}FAz3PVm
IE.Visible = True

O8XR$XG4f0IE.Navigate "http://www.mangocity.com/HWEB/hotelWeb/queryHotelWeb!allForward.action?forward=query"

'查询符合条件的酒店51Testing软件测试网z;U6o R&\Fy
Browser("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Page("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").WebRadioGroup("res_commonCity").Select "CAN"
Sm(Op@8\1t4D+i0Browser("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Page("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").WebEdit("queryHotelForWebBean.inDate").Object.value = "2008-07-30"
@{[7F!m4Sd7|0Browser("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Page("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").WebEdit("queryHotelForWebBean.outDate").Object.value = "2008-07-31"51Testing软件测试网{#[4b;x4k
Browser("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Page("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Image("SubmitQuery").Click

'获取查询结果页数51Testing软件测试网5g3~(v-k)N4M
AllItems = Browser("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Page("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").WebList("selectPage2").GetROProperty("all items")
B0Xd4hdJW0ItemsArr = Split(AllItems , ";")
4j'^0o t(H%H[0PageCount = UBound(ItemsArr) + 1

'循环取酒店名称直到所有都完成51Testing软件测试网pD&S3?0bA!k*wT
For i = 1 to PageCount
#}*I:r!Y-P0 Browser("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Page("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").WebList("selectPage2").Select ItemsArr(i-1)
'y.DL7mV&St0 Browser("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Page("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Sync

R$U~UX;eedQ0X0 '获取酒店信息
y-S
D{PQ.t0 Set ōPage = Browser("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Page("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Object

\KT2HlB[e;_-Y0 For Each Element in oPage.getElementsByTagName("A")51Testing软件测试网b*o ^Vpq)S
  TempHtml = Element.outerhtml
-EpGJw$F'VC9T0  51Testing软件测试网q j/djh0^8S ^f+}
    '建立正则表达式匹配符合条件的链接字符串51Testing软件测试网9G^!~[Y']
  Set RegEx = New RegExp
c nh~[%@ D%|EF0  RegEx.Pattern = "<A\s*?\w*?\W*?\s*?view_hotel_priceinfo\(.(\d{8})..*?\s*?jpg.\).\s*?href\=.\s*.*?>([^\x00-\xff]*?\W*?[^\x00-\xff]*?\(.*?\))</A>"
O2BN*By0  RegEx.Global = True
m6yhb^
^.rDv:U$s+J}0  RegEx.IgnoreCase = True51Testing软件测试网?3S5lv!?e*i
  Set matches=RegEx.execute(TempHtml)

r[#\xA'z5r0  '获取酒店名称51Testing软件测试网gFyY.f![9uPlu
  For each match in matches
9XB/c ^E\!jc8E]0   Hotelid = match.submatches(0)
-nU5msl{2O0   HotelName = match.submatches(1)

   '记录酒店信息
?)T-C;q?0   Call WriteHotelInfo(HotelName , "D:\HotelInfo.txt")

7Do3b,b0L@6a0   '房型WebTable的htmlid唯一，采用该属性识别WebTable
wS1? d~0   id = "hotel" & Hotelid
&n&O`6ui9zRXG0   
J} KuD%U*h)d0   '获取房型和价格51Testing软件测试网-?a u ~:m
n
   Set ōWebTable = Browser("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").Page("芒果网 - 酒店预订 机票预订 旅游度假 邮轮").WebTable("html id:="&id)51Testing软件测试网-I5N[u0z9a1D
   NumOfRow =  oWebTable.RowCount()51Testing软件测试网8y VK&k*ohS
   For j = 1 to NumOfRow
0}me+KVi5i:_I3[`0    '获取房型
9p eg8dv!H|M0    Room =  oWebTable.GetCellData(j , 1)51Testing软件测试网in.QBI x
    Arr = Split(Room , chr(32))
b `ZX U w.S0    RoomType = Arr(Lbound(Arr))51Testing软件测试网1JeL,f9Qu$] `X
    '获取价格51Testing软件测试网;{fnn z3j
    RoomPrice = oWebTable.GetCellData(j , 4)51Testing软件测试网:IoeQc

;\K*`*~L"s7T*e0    '记录房型价格信息51Testing软件测试网9odnO4R(G
    Call WriteRoomInfo(RoomType , RoomPrice , "D:\HotelInfo.txt")
6Q~ d'W8NC/@0   Next51Testing软件测试网0JQ~^0@d:{ TE
  Next
0{$N\1T{(s0  Set RegEx = Nothing
'W1XL-{
Co0 Next51Testing软件测试网N` T%jw5xEH$p-Z
Next
&h
RU%wpG(N[:`0Set IE= Nothing51Testing软件测试网`
N%]Ky.S

lW"w4m t^0'写入酒店名称51Testing软件测试网zOEePKu#so.Z
Function WriteHotelInfo(Hotel , FilePath)51Testing软件测试网W(S|Q0SZN
V
 Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网Sb_6U)H-@&]\,?
 
3m p@ID)Cp2@0 Const ForAppending = 851Testing软件测试网-O ^qV2t&V
 Set f = fso.OpenTextFile(FilePath , ForAppending , True)
"Jw*[bQ2R`P0 f.WriteLine "------------------" & Hotel & "------------------" & vbCrLf
$d+w M1Di LB{l0 
!V:M9we!R5sl2] f0 f.Close
__^Y-nu0 Set f = Nothing51Testing软件测试网0uvnwAW1l%uB
 Set fso = Nothing
7bNZH`B2Bq7L0End Function51Testing软件测试网}X)RCbC

'写入房型价格信息51Testing软件测试网kf:KoGI n[Z
Function WriteRoomInfo(Room , Price , FilePath)
k"s!F'y8d7N5t+u0Kb0 Set fso = CreateObject("scrīpting.FileSystemObject")51Testing软件测试网Tw0[$zot]8E
 51Testing软件测试网)a(Y5Y]f'n4d
 Const ForAppending = 851Testing软件测试网$S$bsW6S:`
 Set f = fso.OpenTextFile(FilePath , ForAppending , True)51Testing软件测试网8?!S7Si`2r"ON*B
 f.WriteLine Room & "-----------" & Price
%d;CLID+@"]vF0 
2Y~4]b6X|` n2^4Vk0 f.Close51Testing软件测试网B7TI |`"V7|
 Set f = Nothing
W,alEt2af.} b0 Set fso = Nothing51Testing软件测试网a*mv6U'a5bO
End Function
"dX3`oVI!t0

运行效果：51Testing软件测试网s#dw`"^oI

------------------广东国际大酒店(Guangdong International Hotel)------------------51Testing软件测试网*[s.P|;\zX H,{*^

房型-----------周三51Testing软件测试网Ki|A z g*xg
^'G
标准客房(单自助早)-----------￥480
n2s` ^9|}(XO-pv0高级客房(单自助早)-----------￥590
7O{sl:a:eS0[0商务套房(单自助早)-----------￥69051Testing软件测试网1[1^!n'C9gHo3|yh
行政房(单自助早)-----------￥690
(?ZiCoOL0豪华套房(单自助早)-----------￥79051Testing软件测试网jmVe4[%XI5F D2r
行政商务套房(双自助早)-----------￥860
P`5~#H3\0行政豪华套房(双自助早)-----------￥101051Testing软件测试网(oH {d:W!`
------------------广州总统大酒店(Guangzhou President Hotel)------------------

~|7^Z{L"?0房型-----------周三
S.n*_7}l:L
d l$\0Xk0舒适间(无早)-----------￥320

[`f0{ G'z~6n0舒适间(双自助早)-----------￥36051Testing软件测试网0UM1^HxP)t:KM3J
高级间(双自助早)-----------￥40851Testing软件测试网+f%kf7@G(h+x,jz"w
行政间(双自助早)-----------￥498
d
]I|$_M3NO0商务套房(双自助早)-----------￥64851Testing软件测试网D*s-m+QD{.B
行政套房(双自助早)-----------￥788
T,Z{6C?Z0------------------广东南洋长胜酒店(Guangzhou Nanyang King Gate Hotel)------------------

房型-----------周三
Zl c~F/q)J0卢浮宫-标准单人间(含双早)-----------￥30051Testing软件测试网!z{e7g{P
卢浮宫-标准双人间(含双早)-----------￥300
nv0qX qNp0凯旋宫-高级房(含双早)-----------￥380
p!RlaZ q6m0凯旋宫-豪华房(含双早)-----------￥43851Testing软件测试网g9DL)C4h N/\
凯旋宫-豪华商务大床房(含双早)-----------￥568
d5rH4s,|4`a1|0卢浮宫-行政A一房一厅(含双早)-----------￥60051Testing软件测试网}KO N0n@9D
凯旋宫-豪华套房(含双早)-----------￥95051Testing软件测试网&O*d%T0m/p6\(g5C"c
卢浮宫-行政B三房一厅(含双早)-----------￥160051Testing软件测试网5fz0v*j~y4k
------------------广州鼎龙国际大酒店(Guangzhou Donlord International Hotel)------------------51Testing软件测试网(^P+\!o1M7Gx9bmKf

5\b&UT3d3^"v0房型-----------周三51Testing软件测试网
rH!yO(j&D
舒适房(双自助早)-----------￥38051Testing软件测试网d$WCL)^uL2?
高级单人房(双自助早)-----------￥438
[+q@\
prU s0高级双人房(双自助早)-----------￥43851Testing软件测试网 c,ug+@.^vPs]b0^r
豪华房(双自助早)-----------￥55051Testing软件测试网 ~t"SY7d9s
高级套房(双自助早)-----------￥640
QIfo1G\9C_0豪华行政客房(双自助早)-----------￥640
{_,@gz?0豪华套房(双自助早)-----------￥84051Testing软件测试网 FPVF*Q
UGggv