QTP – Web Tables
A Table containing a number of rows and columns
A Table containing any kind of information in cells in combinations of rows and columns.
Keywords for Web Table are:
Rows
Columns
Cell
Cell Data
RowCount
ColumnCount
GetCellData
Getting Web Table Column headers
Purpose:
To get the Column headers of a table so as to write these headers as Column Names to a excel sheet
Script:
DataTable.AddSheet "MySheet"
Set oTable=Browser("Gmail: Email from Google").Page("Gmail - Inbox").WebTable(“t")
RC=oTable.RowCount
CC=oTable.ColumnCount(1)
Print "RC " & RC
Print "CC " & CC
For i=1 to CC
ColName=oTable.GetCellData(1,i)
Print "ColName "& ColName
DataTable.GetSheet("MySheet").AddParameter ColName,""
Next
Web Table RowCount & ColumnCount
Purpose:
To get the number of rows and number of columns of a table from a page
Script:
Set MyTable=Browser("Gmail: Email from Google").Page("Gmail - Inbox").WebTable("html tag:=TABLE","name:=t")
RC=MyTable.RowCount
CC=MyTable.ColumnCount(1)
Print "RC " & RC
Print "CC " & CC
Getting Cell Data from a Web Table
Purpose:
To get the cell data of a table from a page
Method used is GetCellData(Row#,Col#)
Script:
Set Text = Browser("").Page("").WebTable("").GetCellData(1, 1)
MsgBox "text contains" & Text
MsgBox "text contains" & Text
Example:
Set oTable=Browser("").Page("").WebTable("")
For i=1 to RC
CC=oTable.ColumnCount(i)
For j=1 to CC
CData=oTable.GetCellData(i,j)
Print "CData " & CData
Next
Next
Getting Cell Data From Web Tables and writing to an excel
Purpose:
To the required cell data from a web table and write these values to an excel sheet
Script:
For i=1 to RC
Datatable.GetSheet("MySheet").SetCurrentRow(i)
CC=oTable.ColumnCount(i)
For j=1 to CC
CData=oTable.GetCellData(i,j)
DataTable.GetSheet("MySheet").GetParameter(j).value=CData
Print "CData " & CData
Next
Next
Working Gmail Web Table - Demo
Set oTable=Browser("Gmail: Email from Google").Page("Gmail - Inbox").WebTable(“t")
RC=oTable.RowCount
CC=oTable.ColumnCount(1)
Print "RC " & RC
Print "CC " & CC
For i=1 to CC
ColName=oTable.GetCellData(1,i)
Print "ColName "& ColName
DataTable.GetSheet("MySheet").AddParameter ColName,""
Next
For i=1 to RC
Datatable.GetSheet("MySheet").SetCurrentRow(i)
CC=oTable.ColumnCount(i)
For j=1 to CC
CData=oTable.GetCellData(i,j)
DataTable.GetSheet("MySheet").GetParameter(j).value=CData
Print "CData " & CData
Next
Next
Reading an excel sheet and passing cell data as a link
PCMySheet=DataTable.GetSheet("MySheet").GetParameterCount
RCMySheet=DataTable.GetSheet("MySheet").GetRowCount
For j=1 to RCMySheet
For i=1 to PCMySheet
CValue=DataTable.GetSheet("MySheet").GetParameter(i).ValueByRow(j)
'RCValue=DataTable.GetSheet("MySheet").GetParameter(3).ValueByRow(j)
Print "CValue "& CValue
Next
Next
For j=1 to RCMySheet
'For i=1 to PCMySheet
'CValue=DataTable.GetSheet("MySheet").GetParameter(i).ValueByRow(j)
RCValue=DataTable.GetSheet("MySheet").GetParameter(3).ValueByRow(j)
Print "RCValue "& RCValue
'Next
Next
To get the no# of web tables existing on page
Purpose:
To get the number of web tables existing on a page
To the get all web tables names, text, rowcount, columncount
Script:
Set ObjTable=Description.Create
ObjTable("html tag").value="TABLE"
ObjTable("text").value=".*"
Set TotObjTable=Browser("Gmail: Email from Google").Page("Gmail - Inbox").ChildObjects(ObjTable)
NoOfTables=TotObjTable.count
Print "NoOfTables " & NoOfTables
For i=0 to NoOfTables-1
TabName=TotObjTable(i).GetROProperty("name")
TabCols=TotObjTable(i).GetROProperty("cols")
TabRows=TotObjTable(i).GetROProperty("rows")
TabText=TotObjTable(i).GetROProperty("text")
Print "TabName "& TabName
Print "TabCols "& TabCols
Print "TabRows "& TabRows
Print "TabText "& TabText
Next
Working on a particular Web Table
Purpose:
Getting all the information from a known table (like RowCount, ColumnCount, CellData and so on…)
Why this script is for:
This script helps to work on particular table to get all the info of that table so as to write data into an excel or passing particular cell data as parameter to the running test script or Verifying the table data if it is as per the requirements.
Script:
Set MyTable=Browser("Gmail: Email from Google").Page("Gmail - Inbox").WebTable("html tag:=TABLE","name:=t")
RC=MyTable.RowCount
CC=MyTable.ColumnCount(1)
Print "RC " & RC
Print "CC " & CC
RC=Browser("Gmail: Email from Google").Page("Gmail - Inbox").WebTable("html tag:=TABLE","name:=t").RowCount
CC=Browser("Gmail: Email from Google").Page("Gmail - Inbox").WebTable("html tag:=TABLE","name:=t").ColumnCount(1)
Print "RC " & RC
Print "CC " & CC
DataTable.AddSheet "WebTable"
For i=1 to CC
CName=MyTable.GetCellData(1,i)
DataTable.GetSheet("WebTable").AddParameter CName,""
Next
For i=1 to RC
CC=MyTable.ColumnCount(i)
For j=1 to CC
MyData=MyTable.GetCellData(i,j)
Print "MyData " & MyData
Next
Next
Finding no# child objects of a web table in a page
Set ObjTable=Description.Create
ObjTable("html tag").value="TABLE"
ObjTable("text").value=".*"
Set TotObjTable=Browser("Gmail: Email from Google").Page("Gmail Inbox").ChildObjects(ObjTable)
NoOfTables=TotObjTable.count
Print "NoOfTables " & NoOfTables
QTP - Descriptive program with respect to a Web Table
Set ObjTable=Description.Create
ObjTable("html tag").value="TABLE"
ObjTable("text").value=".*"
Set TotObjTable=Browser("Gmail: Email from Google").Page("Gmail Inbox").ChildObjects(ObjTable)
NoOfTables=TotObjTable.count
Print "NoOfTables " & NoOfTables
For i=0 to NoOfTables-1
TabName=TotObjTable(i).GetROProperty("name")
TabCols=TotObjTable(i).GetROProperty("cols")
TabRows=TotObjTable(i).GetROProperty("rows")
TabText=TotObjTable(i).GetROProperty("text")
Print "TabName "& TabName
Print "TabCols "& TabCols
Print "TabRows "& TabRows
Print "TabText "& TabText
Next
Get Row no# with CellText
'Get the row number for defined text
Scenario : I want to get the row number where my name exists like 'GAReddy'
Explanation:
Explanation:
In my table , there are rows of data where my name could be seen. So wanted to get the number of a table where my name exists. And thus this code works there.
Script:
Script:
RowNumber = Browser("").Page("").WebTable("").GetRowWithCellText("GAReddy")
Simmilary, in Gmail, there is InBox and if we want to get the exact row number where a specific mail (mail header) exists, then we could make use of the above code.
Retrieving all Web Table Names from a page
Purpose:
Retrieving all Web Table Names from a page
Script:
Set oTable =B().p().WebTable(“html tag:=TABLE”).ChildObjects
Msgbox oTable .count
For i=0 to oTable .count-1
Msgbox I &””& oTable (i).GetROProperty(“name”)
Next
2 comments:
It is very useful.Thanks
I got a great learning!!!
Is there any way to subscribe to this forum?
Post a Comment