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.