How can we use regular expressions for a table in web page,
each cell in table having unique identification, Now I want
to count number of rows in table and enter data in all
cells of the table?
Answer Posted / ips
intRowCnt=Browser("Google").Page("title:=.*").WebTable(“name:= TTable").RowCount
For r=1 to intRowCnt
‘’ This will loop through each row and tell count of column in each row.
intColCnt=Browser("Google").Page("title:=.*").WebTable(“name:=TTable").ColumnCount(r)
MsgBox intColCnt
for c=1 to intColCnt
Browser("Google").Page("title:=.*").WebTable("WebTable").ChildItem(r,c,"WebList",0).Select strType
or
Browser("Google").Page("title:=.*").WebTable("WebTable").ChildItem(r,c,"WebEdit",index).Set strNumber
Browser("Google").Page("title:=.*").WebTable("WebTable").ChildItem(r,c,"WebCheckBox",index).Set strPreferred
Next
Next
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
How do you test DLL files using automation Tool QTP?
How to write business scripts using object repository with different scenarios
If the objects hierarchy is changing from build to build, then how you will handle that condition?
Explain how qtp identifies objects?
How many types of parameters are available in quicktest professional?
Suppose I want fail that check point? How can you do that?
explain structured testing? plz guys with exp. do answer
To which environments does quicktest professional supports?
Explain different type of event trigger option.
What is the difference between qtp and selenium?
Explain the check points in quicktest professional?
hi guys, pls tell me for testing institution training hub, hitech city is best or not?
Explain the concept of how quicktest professional identifies object?
How you can write contexts to text file in qtp?
For the below written code , i want to be stop the loop (ex:10 times), but it is focusing to first line of the code & generating error. vbwindow("vbname:=frmMain").Type micAltDwn + "6" + "2" + "D" +micAltUp 'wiil open the particular window in application vbwindow("vbname:=frmDeduction").vbbutton("vbname:=cmdNew").Click DataTable.ImportSheet"F:\QTP VBScript\Form 26-1.xls","Deduction",Global RowCount = DataTable.GetSheet("Global").GetRowCount i=RowCount For j =1 to i 'vbwindow("vbname:=frmDeduction").WinObject("nativeclass:=DataComboWndClass","abs_y:= 187").Type DataTable("Name", dtGlobalSheet) vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 187").Type DataTable("Name", dtGlobalSheet) vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 187").Type micF4 vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 187").Type micTab vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 216").Type micF4 vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 216").Type DataTable("Section", dtGlobalSheet) vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 216").Type micTab vbwindow("vbname:=frmDeduction").VbEdit("vbname:=txtAmtOfPay").Set DataTable("Amount_of_Payment", dtGlobalSheet) vbwindow("vbname:=frmDeduction").VbEdit("vbname:=txtAmtPaidDate").Set DataTable("Amount_PaidCredited_Date", dtGlobalSheet) vbwindow("vbname:=frmDeduction").VbEdit("vbname:=txtAmtPaidDate").Type micTab vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 316").Type micF4 vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 316").Type DataTable("Deduction_is", dtGlobalSheet) vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 316").Type micTab vbwindow("vbname:=frmDeduction").VbButton("vbname:=cmdSave").Click DataTable.SetNextRow Next vbwindow("vbname:=frmDeduction").VbButton("vbname:=cmdClose").Click