Werte von Zellen in einer Tabelle ermitteln

Bei der Arbeit mit Tabellen kann es erforderlich werden, den Wert einer bestimmten Zelle in der Tabelle zu extrahieren. Dazu können Sie auf unterschiedliche Weise vorgehen. Eine einfache Methode besteht darin, die Tabelle direkt abzufragen.

Im folgenden Beispiel wird gezeigt, wie Sie eigenen VB.NET-Code erstellen können, um über das Functional Tester-Objektmodell Daten aus einer Tabelle auszulesen. Dabei kommt zunächst die Methode GetTestData zum Einsatz, über die Functional Tester dazu veranlasst wird, ein TestDataTable-Objekt mit allen Daten einer Tabelle zu liefern. Mit dieser Datentabelle wird über die Methoden GetRowCount und GetColumnCount die Größe der Tabelle bestimmt. Mit diesen Angaben arbeitet sich der Code abschließend durch die einzelnen Zellen und bedient sich der Methode GetCell, um den Inhalt jeder einzelnen Zelle der Tabelle zu bestimmen. Die Werte in den Zellen werden im Konsolfenster angezeigt.

#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 TableTest Inherits TableTestHelper
'Script Name   : TableTest
    'Generated     : Jul 17, 2006 3:48:02 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().Click(AtPath("Order"))
        Jmb().Click(AtPath("Order->View Existing Order Status..."))
        
        ' Frame: View Order Status
         NameComboB().Click()
        NameComboB().Click(AtText("Claire Stratus"))
        OK2().Click()
        
        ' Frame: View Existing Orders
        ExistingTable().Click(AtCell(AtRow("ORDER ID", "7", "ORDER DATE", "3/11/98", "STATUS", "Order Initiated"), AtColumn("ORDER ID")), AtPoint(26, 12))

        ' Query object to find out what kind of data it has.
         System.Console.WriteLine(ExistingTable().GetTestDataTypes().ToString())

        ' Declare variable for table.
         Dim MyTable As ITestDataTable
         MyTable = ExistingTable().GetTestData("contents")

        ' Print out total rows & columns.
         System.Console.WriteLine(String.Format("Total Rows: {0}", MyTable.GetRowCount()))
        System.Console.WriteLine(String.Format("Total Cols: {0}", MyTable.GetColumnCount()))

        ' Print out cell values.
         Dim Row As Integer
        For Row = 0 To MyTable.GetRowCount() - 1
             Dim Col As Integer
             For Col = 0 To MyTable.GetColumnCount() - 1
                System.Console.WriteLine(String.Format("Value at cell {0}, {1}, {2}: {3}", ("Row"), ("Col"), ("is"), MyTable.GetCell(Row, Col)))
            Next Col
         Next Row



        Close().Click()

        ' Shut down ClassicsJava application
        ClassicsJava(ANY, MAY_EXIT).Close()
        Return Nothing
    End Function

End Class

Feedback