• RSS
  • Facebook
  • Twitter

One Center for all the Testing Need. OneTestingCenter is for all, for all QA, for all Automation. Automation is easy, fun and enriching experience. Happy Learning and Happy Testing!

  • Access to All QA

    At OneTestingCenter, you find lots of books,articles,blogs and detailed guides. Everyone has access to QA. Happy Learning, Happy Testing.

  • Global Trainings

    All the QA/Auotmation trainings are available at OneTestingCenter. QA, Automation, QTP/UFT, Selenium, LoadRunner, QC/ALM, Appium...

  • Automation Learning Fun

    Technology is always evolving. Automation is always challenging. To be frank, Automation is fun, enthusiastic and enrching experience.

    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
    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:
    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:
    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

    Reactions:

    QTP – Web Tables

    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
    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:
    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:
    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