Forum Discussion

SamuraiJack's avatar
SamuraiJack
Contributor
16 years ago

Best way to grab data from a specific cell in a dynamic table, Tree model?

Besides using this: http://www.automatedqa.com/support/viewarticle/?aid=6826



Is there a way to verify a property exists and grab the data from say Row 1, Column 4 from the table without having to reparse the table each time?



the table always has 4 columns, and I can iterate through the rows using a FOR loop.  I'd want to know if Cell 0,4 contains the textnode property then grab.  It seems there's no easy way to do it through name mapping because not every table has more than one row.



Thanks

13 Replies

  • YMinaev's avatar
    YMinaev
    Icon for Staff rankStaff
    16 years ago
    Hi,



    You can try using code like this:

    var table = // obtain the table

    var value = table.rows(0).cells(4).innerText;

    if(value == someOtherValue) //...


  • SamuraiJack's avatar
    SamuraiJack
    Contributor
    16 years ago
    Unfortunately we're using VBScript.



    But I got the script working from the page I referenced.:




    Sub Main


     Main

    Dim Pg, Tbl, i, j


     


    Set Tbl = Aliases.Sys.iexplore.PolicyBox


        For i = 0 To Tbl.rowcount - 1

    Log.AppendFolder "Row " & i


        For j = 0 To Tbl.rows.item(i).cells.length - 1

    Log.Message "Cell " & j & ": " & Tbl.rows.item(i).cells(j).innerText


        Next

    Log.PopLogFolder


        Next

    End Sub



    The only issue now is that The table I need to pull data from in Tbl = has a varying number of sub tables, and those are nested inside more ASP code:



    The name for the sub table is this:



    TBL.Cell(0, 0).Panel(0).Table(0)



    Can I just use a variable in the Cell part?



    i.e. TBL.Cell(X, 0).Panel(0).Table(0)



    Thanks


  • YMinaev's avatar
    YMinaev
    Icon for Staff rankStaff
    16 years ago
    Hi,



    Can I just use a variable in the Cell part?

    i.e. TBL.Cell(X, 0).Panel(0).Table(0)


    Yes, you can do this.

  • SamuraiJack's avatar
    SamuraiJack
    Contributor
    16 years ago

    Script seems to be working until I get to Set Cell = Tbl2.Cell(i,j) then it can't find those objects (which are not name mapped).  Because the number of those objects is fluid, do I need to use GetChild or something similar to identify them before trying to set a value to them?



    For     i = 0 To Tbl.rowcount - 1


    Log.AppendFolder("Policy " & i)


     


    'find Second table


     


    Set Tbl2 = Tbl.Cell(i,0).Panel(0).Table(0)


    ' Goes through cells


    For j = 0 To Tbl2.ChildCount-1


    ' Obtains the cell


    Set Cell = Tbl2.Cell(i, j)


    ' Posts the cell's text to the log


    Log.Message ("Cell " & i & "," &j & ": " & Cell.innerText)


    Next


     


    Next


  • YMinaev's avatar
    YMinaev
    Icon for Staff rankStaff
    16 years ago
    Hi,



    Try using the WaitCell method instead of Cell. In this case, you won't get errors and will be able to check whether the target cell exists.

  • SamuraiJack's avatar
    SamuraiJack
    Contributor
    16 years ago
    I've managed to fix the object not found error, but now I'm having issues that the value of the variable i is not being picked up by one line of code: Set Tbltwo = Tbl.Cell(i,0).Panel(0).Table(0)  In all other places, the code is returning the value of i correctly.  In this spot, it is always coming through as Tbl.Cell(0,0).Panel(0).Table(0) according to the log.



    ' Goes through the rows and cells of the table


    For i = 0 To Tbl.ChildCount - 1


    Log.AppendFolder("SubPolicy " & i)


     


    'find Second table


     


    Set Tbltwo = Tbl.Cell(i,0).Panel(0).Table(0)


    Log.Message("Checking " & Tbltwo.FullName)


    ' Goes through cells


    For j = 0 To Tbltwo.ChildCount-1


    ' Obtains the cell


     


    ' Posts the cell's text to the log


    Log.Message ("Row: " & i & " Cell 0," & j & ": " & Tbltwo.cell(0,j).innerText)


    Next


     


    Next





    Log example:



    Type Message Time Link

    SubPolicy 1 16:22:10 

        Checking Sys.Process("iexplore").Page("https://ceodbmdl.grangeinsurance.com/ccc/PolicyList.aspx").Form("aspnetForm").Panel(2).Table(1).Cell(0, 2).Table(0).Cell(0, 0).Panel("AutoPolicyList").Table(0).Cell(0, 0).Panel(0).Table(0) 16:22:11 

        Row: 1 Cell 0,0: Policy # 1754765 1754765  16:22:11 


  • SamuraiJack's avatar
    SamuraiJack
    Contributor
    16 years ago
    okay further debugging the script has further located the error (underlined area below).  After creating a new name map for the PolicyTable through the IEFrame(0), it seems to be working fine.  Thanks for the help.






    Sub Main


    Main

    Dim Tbl, Tbltwo, i, j, r, c


    ' Obtains the Page object and the table


    If (Aliases.Sys.iexplore.panelCommercialpolicylist.Exists)

    Then



     


     Set Tbl = Aliases.Sys.iexplore.CommTable   *** This works fine



    Else



    Set Tbl = Aliases.Sys.iexplore.PolicyTable   *** When it does this, it doesn't



    end If


     end If


     


  • SamuraiJack's avatar
    SamuraiJack
    Contributor
    16 years ago

    Jared,



    Is there any way to decrease the wait time of checking:



    If (Aliases.Sys.iexplore.panelCommercialpolicylist.Exists)



    susan: Welcome. Glad my experience and bad programming could help you out



     


     


  • YMinaev's avatar
    YMinaev
    Icon for Staff rankStaff
    16 years ago
    Hi Jack,



    You need to use the WaitAliasChild method to obtain this object. In WaitAliasChild, you can specify a custom timeout. For example, the following code will wait for it within 1 second:

    If(Aliases.Sys.iexplore.WaitAliasChild("panelCommercialpolicylist", 1000).Exists)


  • VegasQA's avatar
    VegasQA
    Contributor
    12 years ago
    If you are using the record/playback feature only and not scripting it manually at all, how would this work?