Determinando os Valores de Células em uma Tabela

Ao trabalhar com tabelas, é possível extrair o valor de uma determinada célula na tabela. Há várias maneiras de se fazer isso; uma abordagem simples é consultar a tabela diretamente.

O exemplo mostra como criar código VB.NET personalizado que explora o modelo de objetos do Teste Funcional para extrair as informações de uma tabela HTML. A amostra utiliza primeiramente o método GetTestData para que o Functional Test retorne um objeto TestDataTable que contenha todos os dados em uma tabela HTML. Com essa tabela de dados, os métodos GetRowCount e GetColumnCount determinam o tamanho da tabela HTML. Finalmente, com esses números, o código percorre cada célula e utiliza o método GetCell para determinar o conteúdo de cada célula na tabela. Os valores nas células são exibidos na janela de console.

Imports Rational.Test.Ft
Imports Rational.Test.Ft.Object.Interfaces
Imports Rational.Test.Ft.Script
Imports Rational.Test.Ft.Value
Imports Rational.Test.Ft.Vp
Public Class TableTest Inherits TableTestHelper
    ' Script Name : TableTest
    ' Generated : Sep 27, 2005 2:54:34 PM
    ' Description : Teste Funcional Script
 
    ' since 2005/09/27
    ' author Administrator

Public Function TestMain (ByVal args() As Object)
     StartApp("TableTest")

   ' Navegador: MS Internet Explorer
    '  Documento: Página de Teste da Tabela: arquivo:   ' D:\Temp\TableTest.html

    ' Clicar na tabela para gerar um objeto no Mapa de Objetos.
    Table_AutoNumber1().Click(AtCell(AtRow(AtIndex(1)), _
      AtColumn AtIndex(1))))

    ' Consultar objeto para descobrir o tipo de dados contido.
    System.Console.WriteLine _
      (Table_AutoNumber1().GetTestDataTypes().ToString())

    ' Declarar variável para a tabela.
    Dim MyTable As ITestDataTable
    MyTable = Table_AutoNumber1().GetTestData("grid")

    ' Imprimir total de linhas e colunas.
    System.Console.WriteLine("Total Rows: " + MyTable.GetRowCount())
    System.Console.WriteLine("Total Cols: " + _
      MyTable.GetColumnCount())

    ' Imprimir valores de células.
    Dim Row As Integer
   For Row = 0 To MyTable.GetRowCount() - 1
      Dim Col As Integer
      For Col = 0 To Table.GetColumnCount() - 1
        System.Console.WriteLine _
          ("Value at cell (" + Row+"," Col+") is: " _
            + MyTable.GetCell(Row,Col))
      Next Col
    Next Row



   Browser_htmlBrowser(Document_TableTestPage(),MAY_EXIT).Close()    End Function End Class

Termos de uso | Feedback
(C) Copyright IBM Corporation 2002, 2004. Todos os Direitos Reservados.