qtp 实战 应用 如何使用 QTP 11.5 UFT 获取淘宝商品价格与数量

由于需要抓起淘宝/天猫 搜索结果的120个宝贝的平均价格，使用qtp来实现。





考虑到可以使用html
dom 来获取价格和数量元素的属性值。借助firebug查看价格和数量的属性：





再对textcontent 进行字符串处理就可以获取价格了，同理可以获取销售数量的值：

代码如下：

On error resume next

'

''Browser("天猫tmall.com-尚天猫，就购了").Page("天猫tmall.com-尚天猫，就购了").WebEdit("q").Set"鱼嘴鞋" @@ hightlightid_;_Browser("天猫tmall.com-尚天猫，就购了").Page("天猫tmall.com-尚天猫，就购了").WebEdit("q")_;_scriptinfofile_;_ZIP::ssf8.xml_;_

''Browser("天猫tmall.com-尚天猫，就购了").Page("天猫tmall.com-尚天猫，就购了").WebButton("搜索").Click@@ hightlightid_;_Browser("天猫tmall.com-尚天猫，就购了").Page("天猫tmall.com-尚天猫，就购了").WebButton("搜索")_;_scriptinfofile_;_ZIP::ssf9.xml_;_

'Browser("天猫tmall.com-尚天猫，就购了").Page("鱼嘴鞋-时尚女鞋-天猫Tmall.com-尚天猫，就购了").Link("人气").Click@@ hightlightid_;_Browser("天猫tmall.com-尚天猫，就购了").Page("鱼嘴鞋-时尚女鞋-天猫Tmall.com-尚天猫，就购了").Link("人气")_;_scriptinfofile_;_ZIP::ssf10.xml_;_

'Browser("天猫tmall.com-尚天猫，就购了").Page("鱼嘴鞋-时尚女鞋-天猫Tmall.com-尚天猫，就购了_2").Link("下一页>>").Click@@ hightlightid_;_Browser("天猫tmall.com-尚天猫，就购了").Page("鱼嘴鞋-时尚女鞋-天猫Tmall.com-尚天猫，就购了2").Link("下一页>>")_;_scriptinfofile_;_ZIP::ssf11.xml_;_

iteration = environment.value("TestIteration")

n = cint(iteration)

If n=7 Then

reporter.ReportEventmicWarning, "stop","Please stop"

End If

If n = 1 Then



Dim Conn,str,sql,sum,adoRecordsset

Set outsheet = Datatable.AddSheet ("Output")'add
a sheet to inport the datawhich import fromthe DataBase

Set Conn = createObject ("ADODB.Connection")

Const ConnectionString = "DSN=@@@@;DATABASE=@@@@@@database;PWD=@@@@@;PORT=3306;SERVER=@@@@@@.com;UID=@@@@@@"

Conn.Open ConnectionString

If Conn.State <> 0 Then

reporter.ReportEvent micPass, "link state","ConnectSuccess!!"

Else

reporter.ReportEvent micFail, "link state","Connect Failed!!"

End If

sql = "SELECT keyword,tmall_price,date from @@@@@tablewhere keyword in ('女裤','女裤 长裤','女裤裙','哥弟女裤','哈伦女裤','真丝女裤','雪纺女裤')"

Set adoRecordsset = Conn.execute(sql)

Dim fld

For each fld in adoRecordsset.Fields

datatable.GetSheet("Output").AddParameterfld.name,""

Next

Dim i

i = 0

While not adoRecordsset.EOF

For each fld in adoRecordsset.fields

datatable.value(1,"Output") = adoRecordsset("keyword").value

'atatable.value(2,"Output")= adoRecordsset("taobao_price").value

datatable.value(2,"Output") = adoRecordsset("tmall_price").value

datatable.value(3,"Output") = adoRecordsset("date").value

Next

adoRecordsset.MoveNext

i = i + 1



Datatable.SetCurrentRowi + 1

Wend

Set adoRecordsset = nothing

Conn.Close

Set Conn = nothing

End If

n = cint(iteration)

k = 3*n - 2

j = 3*n - 1

m = 3*n

Datatable.SetCurrentRow n

Private Function get_Num(a)

Dim b

b = Left(a,len(a)-1)

c = right(b,len(b)-4)

'Printc

get_Num = c

End Function

Browser("天猫tmall.com-尚天猫，就购了").Page("天猫tmall.com-尚天猫，就购了").WebEdit("q").Set DataTable("keyword", "Output")

inputKW = Browser("天猫tmall.com-尚天猫，就购了").Page("天猫tmall.com-尚天猫，就购了").WebEdit("q").GetROProperty("value")

Browser("天猫tmall.com-尚天猫，就购了").Page("天猫tmall.com-尚天猫，就购了").WebButton("搜索").Click

Browser("天猫tmall.com-尚天猫，就购了").Page("鱼嘴鞋-时尚女鞋-天猫Tmall.com-尚天猫，就购了").Link("人气").Click

'iteration =environment("TestIteration")

k = 3*n-2

j = 3*n-1

m = 3*n

Datatable.GetSheet("Action1").AddParameter "Price","0"

Datatable.GetSheet("Action1").AddParameter "SaleNum","0"

Datatable.GetSheet("Action1").AddParameter "Total","0"

'SetoDoc2=Browser("天猫tmall.com-尚天猫，就购了").Page("假发-假发/美容工具-天猫Tmall.com-尚天猫，就购了").object.getElementsByTagName_r("em")

'

''msgboxoDoc2.length

'

'For x = 0 TooDoc2.length -1 Step 1

'

'

' text=oDoc2(x).getattribute("title")

' Iftext <>"" Then

' z=int(x/2+1)

' Datatable.Value("Price","Action1")=text

' Datatable.SetCurrentRowz

'

' EndIf

'' 'msgboxprice

''printprice

'Next

Set oDoc = Browser("天猫tmall.com-尚天猫，就购了").Page("鱼嘴鞋-时尚女鞋-天猫Tmall.com-尚天猫，就购了").object.getElementsByClassName("productStatus")

Set oDoc2 = Browser("天猫tmall.com-尚天猫，就购了").Page("鱼嘴鞋-时尚女鞋-天猫Tmall.com-尚天猫，就购了").object.getElementsByClassName("productPrice")

fstNum = oDoc.length

'msgboxoDoc.lengthget

For i = 0 To oDoc.length-1 Step 1

Datatable.SetCurrentRow i+1

set p = oDoc(i).firstElementChild

pp = p.textContent



pNum = get_num(pp) 'getthe data of the sale numbers







text = oDoc2(i).textContent

price = split(text,"¥")

rop = price(1)

pop = left(rop,len(rop)-2) 'get
the data of theprice



If instr(pNum,"万") Then

pNumsub = left(pNum,len(pNum)-1)

pNum = pNumsub*10000

End If



sumMoney = pop*pNum





Datatable.Value(k,"Action1") = pop

Datatable.Value(j,"Action1") = pNum

Datatable.Value(m,"Action1") = sumMoney

Next

Browser("天猫tmall.com-尚天猫，就购了").Page("鱼嘴鞋-时尚女鞋-天猫Tmall.com-尚天猫，就购了").Link("xpath:=/html/body/div[1]/div/div[3]/div/div[4]/p/a").Click 'clickthe
link of “下一页” go to the next page

'Browser("天猫tmall.com-尚天猫，就购了").Page("假发-假发/美容工具-天猫Tmall.com-尚天猫，就购了").Link("下一页>>").Click

'

'Browser("天猫tmall.com-尚天猫，就购了").Page("高跟凉鞋 女-时尚女鞋-天猫Tmall.com-尚天猫，就").Link("人气").Click

Set oDoc3 = Browser("天猫tmall.com-尚天猫，就购了").Page("鱼嘴鞋-时尚女鞋-天猫Tmall.com-尚天猫，就购了").object.getElementsByClassName("productStatus")

Set oDoc4 = Browser("天猫tmall.com-尚天猫，就购了").Page("鱼嘴鞋-时尚女鞋-天猫Tmall.com-尚天猫，就购了").object.getElementsByClassName("productPrice")

'msgboxoDoc.lengthget

sndNum = oDoc3.length

proNumber = fstNum + sndNum

For i = 0 To oDoc3.length-1 Step 1

Datatable.SetCurrentRow i+61

set p = oDoc3(i).firstElementChild

pp = p.textContent



pNum = get_num(pp)



text = oDoc4(i).textContent

price = split(text,"¥")

rop = price(1)

pop = left(rop,len(rop)-2)



If instr(pNum,"万") Then

pNumsub = left(pNum,len(pNum)-1)

pNum = pNumsub*10000

End If



sum = pop*pNum



Datatable.Value(k,"Action1") = pop

Datatable.Value(j,"Action1") = pNum

Datatable.Value(m,"Action1") = sum

Next

TotalNum = 0

TotalMoney = 0

For i = 1 To proNumber Step 1

rowNum = Datatable.GetSheet("Action1").GetParameter(j).ValueByRow (i)

rowMoney = Datatable.GetSheet("Action1").GetParameter(m).ValueByRow (i)



TotalNum = TotalNum + rowNum

TotalMoney = TotalMoney + rowMoney



Next

Datatable.SetCurrentRow 122+2*n-1

Datatable.Value (1,"Action1") = inputKW

Datatable.Value (2,"Action1") = TotalNum

Datatable.Value (3,"Action1") = TotalMoney

avgPrice = TotalMoney/TotalNum

Datatable.SetCurrentRow 122+ 2*n

Datatable.Value (2,"Action1") = "TmallAvgPrice"

Datatable.Value (3,"Action1") = avgPrice

'下面的代码为淘宝页面商品的价格与数理的抓取

'

'Browser("天猫tmall.com-尚天猫，就购了").Page("假发-假发/美容工具-天猫Tmall.com-尚天猫，就购了_2").Link(">").Click@@ hightlightid_;_Browser("天猫tmall.com-尚天猫，就购了").Page("假发-假发/美容工具-天猫Tmall.com-尚天猫，就购了2").Link(">")_;_script infofile_;_ZIP::ssf4.xml_;_



' Browser("淘宝网 -淘！我喜欢").Page("淘宝网 - 淘！我喜欢").WebEdit("q").Set DataTable("keyWord",dtGlobalSheet)

'

' inputword=Browser("淘宝网- 淘！我喜欢").Page("淘宝网 -淘！我喜欢").WebEdit("q").GetROProperty("value")

' ' msgboxinputword

'Browser("淘宝网 -淘！我喜欢").Page("淘宝网 - 淘！我喜欢").WebButton("").Click

'

'iteration=environment.value("TestIteration")

' n=cint(iteration)

' k=3*n-2

' j=3*n-1

' m=3*n

'' KeyWord=DataTable.GetSheet("Global").GetParameter("keyWord").ValueByRow(n)

'' msgboxKeyWord

'Browser("淘宝网 -淘！我喜欢").Page("鱼嘴鞋_淘宝搜索").Link("人气").Click

'Browser("淘宝网 -淘！我喜欢").Sync

'' wait5

'SetDoc=Browser("淘宝网 -淘！我喜欢").Page("鱼嘴鞋_淘宝搜索").Object.getElementsByClassName("colprice")

'SetDoc2=Browser("淘宝网 -淘！我喜欢").Page("鱼嘴鞋_淘宝搜索").Object.getElementsByClassName("col enddealing")

''msgboxDoc2.length

''setprice=Doc.getElementsByClassName("col price")

''numberofprice=price.length

''msgboxnumberofprice

''Setp1=Doc.getElementsByClassName("col price")(0)

'

'datatable.getsheet("Action1").AddParameter"Price","0"

'datatable.getsheet("Action1").AddParameter"SaleNum","0"

'datatable.getsheet("Action1").AddParameterinputword,"0"

' For i=0 toDoc.length -1

'

' price=Doc(i).textContent

' num=Doc2(i).textContent

' 'print price

'

' a=mid(price,2)

' b=mid(num,1,len(num)-3)

'

' sum=a*b

'

' DataTable.GetSheet("Action1").SetCurrentRow i+1

'

' DataTable.Value(k, "Action1")=a

' DataTable.Value(j, "Action1")=b

' DataTable.Value(m, "Action1")=sum

'' ah=DataTable.GetSheet("Action1").GetParameter("Price").Value

'

''

'

'

'

'Next

'

'

'

'

'Browser("淘宝网 -淘！我喜欢").Page("鱼嘴鞋_淘宝搜索#J_relative").Link("下一页下一页").Click

'

'Browser("淘宝网 -淘！我喜欢").Sync

'

'SetDoc3=Browser("淘宝网 -淘！我喜欢").Page("鱼嘴鞋_淘宝搜索#J_relative").Object.getElementsByClassName("colprice")

'SetDoc4=Browser("淘宝网 -淘！我喜欢").Page("鱼嘴鞋_淘宝搜索#J_relative").Object.getElementsByClassName("colend dealing")

''msgboxDoc2.length

''setprice=Doc.getElementsByClassName("col price")

''numberofprice=price.length

''msgboxnumberofprice

''Setp1=Doc.getElementsByClassName("col price")(0)

'

''datatable.getsheet("Action1").AddParameter"Price2","0"

''datatable.getsheet("Action1").AddParameter"SaleNum2","0"

' For i=0 toDoc3.length -1

' DataTable.GetSheet("Action1").SetCurrentRow i+49

' price=Doc3(i).textContent

' num=Doc4(i).textContent

' 'print price

' a=mid(price,2)

'

'

' b=mid(num,1,len(num)-3)

'

'

' sum=a*b

'

' DataTable.Value(k, "Action1")=a

' DataTable.Value(j, "Action1")=b

' DataTable.Value(m, "Action1")=sum

'' ah=DataTable.GetSheet("Action1").GetParameter("Price").Value

'

''

'

'

'

'Next

'

'

''Browser("淘宝网 -淘！我喜欢").Page("鱼嘴鞋_淘宝搜索#J_relative").Link("下一页下一页").Click

'

'

'Browser("淘宝网 -淘！我喜欢").Page("鱼嘴鞋_淘宝搜索_4").Link("下一页下一页").Click

'Browser("淘宝网 -淘！我喜欢").Sync

'SetDoc5=Browser("淘宝网 -淘！我喜欢").Page("鱼嘴鞋_淘宝搜索#J_relative").Object.getElementsByClassName("colprice")

'SetDoc6=Browser("淘宝网 -淘！我喜欢").Page("鱼嘴鞋_淘宝搜索#J_relative").Object.getElementsByClassName("colend dealing")

''msgboxDoc2.length

''setprice=Doc.getElementsByClassName("col price")

''numberofprice=price.length

''msgboxnumberofprice

''Setp1=Doc.getElementsByClassName("col price")(0)

'

''datatable.getsheet("Action1").AddParameter"Price2","0"

''datatable.getsheet("Action1").AddParameter"SaleNum2","0"

' For i=0 toDoc5.length -17

' DataTable.GetSheet("Action1").SetCurrentRow i+93

' price=Doc5(i).textContent

' num=Doc6(i).textContent

' 'print price

' a=mid(price,2)

'

'

' b=mid(num,1,len(num)-3)

' sum=a*b

'

' DataTable.Value(k, "Action1")=a

' DataTable.Value(j, "Action1")=b

' DataTable.Value(m, "Action1")=sum

'' ah=DataTable.GetSheet("Action1").GetParameter("Price").Value

'next

'

'allSum=0

'allNum=0

'For r = 1 To 120Step 1

'

'sum_money=datatable.GetSheet("Action1").GetParameter(m).ValueByRow (r)

'sum_num=datatable.GetSheet("Action1").GetParameter(j).ValueByRow (r)

'allNum=allNum+sum_num

'allSum=allSum+sum_money

'

'avg_price=allSum/allNum

'

'datatable.GetSheet("Action1").SetCurrentRow123

'datatable.Value(m,"Action1")=allSum

'datatable.Value(j,"Action1")=allNum

'datatable.Value(k,"Action1")=inputword

'

'

'datatable.GetSheet("Action1").Setcurrentrow124

'datatable.Value(m,"Action1")=avg_price

'

'Next

'

'If n mod 7=0Then

' browser("淘宝网- 淘！我喜欢").CloseAllTabs

' SystemUtil.CloseProcessByName"iexplore.exe"

'

'EndIf

'

运行的结果：













转载：http://blog.sina.com.cn/s/blog_6c1a34300102v12s.html