Détermination des valeurs de cellules dans une table

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.