Este ejemplo es una prueba contra la aplicación Classics Java:
#Region " Script Header "
' Functional Test Script
' author Administrator
Imports Microsoft.VisualBasic
Imports Rational.Test.Ft
Imports Rational.Test.Ft.Object.Interfaces
Imports Rational.Test.Ft.Object.Interfaces.SAP
Imports Rational.Test.Ft.Object.Interfaces.Siebel
Imports Rational.Test.Ft.Script
Imports Rational.Test.Ft.Value
Imports Rational.Test.Ft.Vp
#End Region
Public Class GetGridDataExample
Inherits GetGridDataExampleHelper
'Script Name : GetGridDataExample
'Generated : Jul 17, 2006 2:51:15 PM
'Description : Functional Test Script
'Original Host : Windows XP x86 5.1 build 2600 Service Pack 2
'since 2006/07/17
'author Administrator
Public Function TestMain(ByVal args() As Object) As Object
StartApp("ClassicsJavaA")
' Navigate to Existing Order Grid
Jmb().WaitForExistence()
Jmb().Click(AtPath("Order"))
Jmb().Click(AtPath("Order->View Existing Order Status..."))
' Frame: View Order Status
NameComboB().Click()
NameComboB().Click(AtText("Claire Stratus"))
OK().Click()
' Wait for table to be created
ExistingTable().WaitForExistence()
' Get the data for the table
Dim OrderTable As ITestDataTable
OrderTable = ExistingTable().GetTestData("contents")
' Display the available data types for the grid, total rows and columns.
System.Console.WriteLine(String.Format("Available Data Types: {0}", ExistingTable().GetTestDataTypes()))
System.Console.WriteLine(String.Format("Total Rows in table : {0}", OrderTable.GetRowCount()))
System.Console.WriteLine(String.Format("Total Cols in table : {0}", OrderTable.GetColumnCount()))
' Cycle through all rows
Dim Row As Integer
For Row = 0 To OrderTable.GetRowCount() - 1
' Cycle through all columns
Dim Col As Integer
For Col = 0 To OrderTable.GetColumnCount() - 1
' Print out values of cells at (Row, Col) coordinates
System.Console.WriteLine(String.Format("Row {0}, {1}: {2}", Row, OrderTable.GetColumnHeader(Col), OrderTable.GetCell(Row, Col)))
Next Col
Next Row
' Close the frame
Close().Click()
' Shut down Classics Java Application
ClassicsJava(ANY, MAY_EXIT).Close()
Return Nothing
End Function
End Class
Este ejemplo navega hacia la pantalla "Ver pedidos existentes" de la aplicación. El código de este ejemplo extrae los valores de todas las celdas de la cuadrícula y los visualiza en la ventana de la consola.
El primer paso para extraer los datos consiste en utilizar el método GetTestData para extraer los datos desde el control. Esto se efectúa con la sintaxis siguiente:
Dim OrderTable As ITestDataTable
OrderTable = ExistingTableTable().GetTestData("contents")
En este conjunto de datos concreto, puede determinar el número total de filas y columnas utilizando los métodos GetRowCount y GetColumnCount. También puede preguntar al control qué tipos de datos están disponibles en la tabla utilizando GetTestDataTypes. El código siguiente envía los resultados de estas consultas a la ventana de la consola.
System.Console.WriteLine(String.Format("Available Data Types: {0}", ExistingTable().GetTestDataTypes()))
System.Console.WriteLine(String.Format("Total Rows in table : {0}", OrderTable.GetRowCount()))
System.Console.WriteLine(String.Format("Total Cols in table : {0}", OrderTable.GetColumnCount()))
El paso siguiente consiste en imprimir los valores de las celdas individuales, lo que se efectúa utilizando un bucle for para recorrer las filas y las columnas de la cuadrícula:
' Cycle through all rows
Dim Row As Integer
For Row = 0 To OrderTable.GetRowCount() - 1
' Cycle through all columns
Dim Col As Integer
For Col = 0 To OrderTable.GetColumnCount() - 1
' Print out values of cells at (Row, Col) coordinates
System.Console.WriteLine(String.Format("Row {0}, {1}: {2}", Row, OrderTable.GetColumnHeader(Col), OrderTable.GetCell(Row, Col)))
Next Col
Next Row
El script de ejemplo utiliza el método GetCell para imprimir el valor de la celda actual. Tenga también en cuenta, que el método GetColumnHeader imprime la cabecera de la columna actual. Cuando trabaje con una cuadrícula, la numeración de las filas y de las columnas empieza por 0. No obstante, esto no es aplicable a los métodos GetRowCount y GetColumnCount, en los que la numeración empieza por 1.