QTP的那些事--有关一个webtable数据的获取案例-白红宇

QTP的那些事--有关一个webtable数据的获取案例

阅读量：6812 次

发布时间：2019-06-26

本文共 5875 字，大约阅读时间需要 19 分钟。

orderpath=pathfinder.Locate("newteams.xlsx")

ordersheet="order1"

getdata()

Function getData()

'查找表中信息

set mydes=description.Create()

mydes("micclass").value="WebTable"

set buyerinfo=Browser("name:=browser").Page("name:=page").ChildObjects(mydes)

print "查找的书目表个数:"&buyerinfo.count

For i=0 to buyerinfo.count-1

ctable="数据表的文本:"&buyerinfo(i).getroproperty("innertext")

print ctable

basetable="订单号原始总价"

targettable="目标渠道财务审核时间"

custable="旅客人数制单部门"

teamtab="团号产品名称"

costtab="预订价（元）"

fapiao="发票金额开票时间"

addtab="产品名使用时间"

cotactab="姓名电话手机传真"

buyertab="联系人姓名电话手机"

lvketab="旅客姓名类型"

taketab="内容类型状态"

paytab="金额时间方式支付银行"

hometab="金额时间联系人"

modtab="费用类型金额"

If instr(1,ctable,basetable,1)<>0 Then '订单基本信息录入

print "订单基本信息index:"&i

For base=1 to 8

basedata=buyerinfo(i).getcelldata(2,base)

openAndWriteExcel orderpath,ordersheet,2,base,basedata '写入基本信息

finalmoneyinfo=buyerinfo(i).GetCellData(3,2) '金额构成

openAndWriteExcel orderpath,ordersheet,2,9,finalmoneyinfo

elseif instr(1,ctable,targettable,1)<>0 then '目标渠道信息录入

print "目标渠道index:"&i

For target=1 to 4

targetdata=buyerinfo(i).getcelldata(2,target)

datacol=9+target

openAndWriteExcel orderpath,ordersheet,2,datacol,targetdata '目标渠道

elseif instr(1,ctable,custable,1)<>0 then '旅客总数信息录入

print "旅客总数index:"&i

For cust=1 to 4

custdata=buyerinfo(i).getcelldata(2,cust)

cusnum=13+cust

openAndWriteExcel orderpath,ordersheet,2,cusnum,custdata '旅客信息

specialdata=buyerinfo(i).getcelldata(3,2)

taitou=buyerinfo(i).getcelldata(4,2)

shopinfo=buyerinfo(i).getcelldata(5,2)

openAndWriteExcel orderpath,ordersheet,2,18,specialdata '特殊要求

openAndWriteExcel orderpath,ordersheet,2,19,taitou '发票抬头

openAndWriteExcel orderpath,ordersheet,2,20,shopinfo '市场路径

elseif instr(1,ctable,teamtab,1)<>0 then ' 团队信息录入

print "团队信息index:"&i

For teamid=1 to 8

teamdata=buyerinfo(i).getcelldata(2,teamid)

openAndWriteExcel orderpath,ordersheet,4,teamid,teamdata '团队信息管理

elseif instr(1,ctable,costtab,1)<>0 then ' 预定价格信息录入

print "预定价格index:"&i

For costid=1 to 12

costdata=buyerinfo(i).getcelldata(3,costid)

openAndWriteExcel orderpath,ordersheet,6,costid,costdata

elseif instr(1,ctable,fapiao,1)<>0 then '发票管理信息录入

print "发票管理index:"&i

For fa=1 to 5

fadata=buyerinfo(i).getcelldata(2,fa)

openAndWriteExcel orderpath,ordersheet,8,fa,fadata

elseif instr(1,ctable,addtab,1)<>0 then ' 附加产品信息录入

print "附加产品index:"&i

getAddinfo(buyerinfo(i))

elseif instr(1,ctable,cotactab,1)<>0 then ' 联系人信息录入

print "联系人信息index:"&i

For contactid=1 to 6

contdata=buyerinfo(i).getcelldata(2,contactid)

openAndWriteExcel orderpath,ordersheet,10,contactid,contdata

elseif instr(1,ctable,buyertab,1)<>0 then ' 客人配送信息录入

print "客人配送要求index:"&i

For buyerid=1 to 8

buyerdata=buyerinfo(i).getcelldata(2,buyerid)

openAndWriteExcel orderpath,ordersheet,12,buyerid,buyerdata

elseif instr(1,ctable,lvketab,1)<>0 then ' 旅客信息录入

print "旅客信息index:"&i

elseif instr(1,ctable,taketab,1)<>0 then ' 配送信息录入

print "配送信息index:"&i

peirow=buyerinfo(i).RowCount '行数

peicolumn=buyerinfo(i).ColumnCount(1)-1 '列数

'print peirow

If cint(peirow)>1 Then

For everypei=2 to peirow

printpei=everypei+12

For everycolumn=2 to peicolumn

printpp=16+everycolumn

resultpei=buyerinfo(i).GetCellData(everypei,everycolumn)

openAndWriteExcel orderpath,ordersheet,printpei,printpp,resultpei

End If

elseif instr(1,ctable,paytab,1)<>0 then ' 支付信息录入

print "支付信息index:"&i

payrow=buyerinfo(i).RowCount '行数

paycolumn=buyerinfo(i).ColumnCount(1)-1 '列数

If cint(payrow)>1 Then

For everypay=2 to payrow

printpay=everypay+12

For everypayc=1 to paycolumn

printpayc=24+everypayc

resultpay=buyerinfo(i).GetCellData(everypay,everypayc)

'print resultpay

openAndWriteExcel orderpath,ordersheet,printpay,printpayc,resultpay

else

print "该订单没有支付信息"

End If

elseif instr(1,ctable,hometab,1)<>0 then ' 上门收款信息录入

print "上门收款index:"&i

homerow=buyerinfo(i).RowCount '信息条数

homecolumn=buyerinfo(i).ColumnCount(1) -1 '列数

If cint(homerow)>1Then

For everyhome=2 to homerow

printhome=everyhome+12

For everyhomec=2 to homecolumn

printhomec=31+everyhomec

resulthome=buyerinfo(i).GetCellData(everyhome,everyhomec)

openAndWriteExcel orderpath,ordersheet,printhome,printhomec,resulthome

else

print "当前的订单的上门收款纪录为空"

End If

elseif instr(1,ctable,modtab,1)<>0 then ' 订单修改信息录入

print "订单修改费用index:"&i

feirow=buyerinfo(i).RowCount

feicolumn=buyerinfo(i).ColumnCount(1)-1

If cint(feirow)>1 Then

For fei_row=2 to feirow

printfei=12+fei_row

For fei_col=1 to feicolumn

prinfeic=38+fei_col

resultfei=buyerinfo(i).GetCellData(fei_row,fei_col)

errorfei="ERROR: The specified cell does not exist."

If resultfei<>errorfei Then

openAndWriteExcel orderpath,ordersheet,printfei,prinfeic,resultfei

End If

else

print "当前的订单没有修改的费用"

End If

Exit for

else

print "查找信息失败，不能进行下去:"

End If

' print buyerinfo(i).getcelldata(2,1)

End Function

'功能：获取附加产品信息

'参数：addtionpro 是附加产品所对应的数据表webtable对象

'返回值：无

Function getAddinfo(addtionpro)

addrow=addtionpro.RowCount '行数

addcolumn=addtionpro.ColumnCount(1)-2 '列数

print "附加产品行数:"&addrow

If cint(addrow)>1 Then

For addr=2 to addrow

resulta=addtionpro.GetCellData(addr,1)

rowtype=instr(1,resulta,"购买旅客",1)

printrow=12+addr

errorinfo="ERROR: The specified cell does not exist."

If rowtype<>0 Then

addr=addr+1

print "该附加产品现在是关联到人的"

For addc=1 to addcolumn

add_yes_info=addtionpro.GetCellData(addr,addc)

'; print "查询改行该列结果:"&add_yes_info

If add_yes_info<>errorinfo Then

openAndWriteExcel orderpath,ordersheet,printrow,addc,add_yes_info

openAndWriteExcel orderpath,ordersheet,printrow,7,"是"

End If

else

print "该附加产品不关联人"

For addc=1 to addcolumn

add_no_info=addtionpro.GetCellData(addr,addc)

If add_yes_info<>errorinfo Then

openAndWriteExcel orderpath,ordersheet,printrow,addc,add_no_info

openAndWriteExcel orderpath,ordersheet,printrow,7,"否"

End If

else

print "当前的附加产品没有，不能进行统计数据"

End If

End Function

转载于:https://www.cnblogs.com/alterhu/archive/2012/01/05/2313506.html

你可能感兴趣的文章

VBS弹出来的对话框如何置顶！--果然技巧

查看>>

什么是Satoshi？和比特币中本聪有什么关系？

查看>>

iOS开发frame, contentSize, contentOffset, contentInset 区别联系浅析

再次简单明了总结flex布局，一看就懂...

查看>>

dubbo源码解析（二十六）远程调用——http协议

手把手教你用koa+mongoodb实现自己的接口

2018年11月TIOBE编程语言排行榜，Java稳居第一

查看>>

Nervos 与 AlphaWallet 正式建立深度合作关系