Lorsque vous travaillez sur une table, il est possible que vous ayez besoin de lire la valeur d'une cellule particulière. Pour ce faire, il existe de nombreuses façons de procéder, l'une d'elles consistant à interroger directement la table.
L'exemple suivant montre comment créer un code VB.NET personnalisé dans lequel on exploite
le modèle objet de Functional Tester pour extraire des informations d'une table HTML.
On utilise d'abord la méthode GetTestData
pour que Functional Tester
renvoie un objet TestDataTable
contenant toutes les données de la
table HTML. Les méthodes GetRowCount
et GetColumnCount
sont alors
utilisées pour déterminer la taille de la table HTML (nombre de lignes et nombre de colonnes).
Ayant connaissance de ces valeurs, on peut parcourir chaque cellule de la table et utiliser
la méthode GetCell
pour en déterminer le contenu. Les valeurs lues dans les cellules
sont affichées dans la 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 : Functional Test Script ' since 2005/09/27 ' author Administrator Public Function TestMain (ByVal args() As Object) StartApp("TableTest") ' Navigateur : MS Internet Explorer ' Document : Table Test Page : fichier : ' D:\Temp\TableTest.html ' Cliquer sur la table pour générer un objet dans la mappe d'objets. Table_AutoNumber1().Click(AtCell(AtRow(AtIndex(1)), _ AtColumn AtIndex(1)))) ' Interroger l'objet pour déterminer le type de données qu'il contient. System.Console.WriteLine _ (Table_AutoNumber1().GetTestDataTypes().ToString()) ' Déclarer une variable pour la table. Dim MyTable As ITestDataTable MyTable = Table_AutoNumber1().GetTestData("grid") ' Afficher le nombre de lignes et le nombre de colonnes. System.Console.WriteLine("Nombre total de lignes : " + MyTable.GetRowCount()) System.Console.WriteLine("Nombre total de colonnes : " + _ MyTable.GetColumnCount()) ' Afficher les valeurs des cellules. 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 _ ("La valeur de la cellule (" + Row+"," Col+") est : " _ + MyTable.GetCell(Row,Col)) Next Col Next Row
Browser_htmlBrowser(Document_TableTestPage(),MAY_EXIT).Close() End Function End Class
Conditions d'utilisation | Appréciations en retour
(C) Copyright IBM Corporation 2002, 2004. All Rights Reserved.