Verwendung von Dictionary-Objekten in MicroFocus UFT

Das Dictionary-Objekt in MicroFocus UFT ist ein Objekt, das zum Speichern und Abfragen von Daten verwendet wird, ähnlich wie ein Array, jedoch mit der zusätzlichen Fähigkeit, einen benutzerdefinierten Schlüssel zu verwenden. In diesem Artikel wird gezeigt, wie Dictionary-Objekte in MicroFocus UFT verwendet werden können, um Daten effektiv zu speichern und abzurufen.

Beispiel

Dim DebitorKontrakt
Set DebitorKontrakt = CreateObject("Scripting.Dictionary")

Dim DebitorLand
Set DebitorLand = CreateObject("Scripting.Dictionary")

DebitorKontraktbefuellen DebitorKontrakt
DebitorLandbefuellen DebitorLand

Debitor = Inputbox("Geben Sie eine Debitorennummer ein")

If DebitorKontrakt.Exists(Debitor) Then
    Kontrakt = DebitorKontrakt.Item(Debitor)
    Land = DebitorLand.Item(Debitor)

    msgbox Kontrakt & " " & Land
End  If

Function DebitorKontraktbefuellen(DebitorKontrakt)

DebitorKontrakt.Add "8001234", "1100034567"
DebitorKontrakt.Add "8004567", "1100012345"
DebitorKontrakt.Add "8009876", "1100098765"

End Function

Function DebitorLandbefuellen(DebitorLand)

DebitorLand.Add "8001234", "Irland"
DebitorLand.Add "8004567", "Niederlande"
DebitorLand.Add "8009876", "Hongkong"

End Function

Erstellen von Dictionary-Objekten

Das Erstellen von Dictionary-Objekten in MicroFocus UFT ist einfach und erfolgt mit dem CreateObject-Statement. Das folgende Beispiel zeigt, wie ein Dictionary-Objekt namens DebitorKontrakt erstellt wird:

Dim DebitorKontrakt
Set DebitorKontrakt = CreateObject("Scripting.Dictionary")

Das Dim-Statement erstellt eine neue Variable namens DebitorKontrakt, während Set das neu erstellte Dictionary-Objekt initialisiert. Der Parameter Scripting.Dictionary gibt an, dass ein Dictionary-Objekt erstellt werden soll.

Hinzufügen von Daten zu einem Dictionary-Objekt

Nachdem Sie ein Dictionary-Objekt erstellt haben, können Sie Daten mithilfe der Add-Methode hinzufügen. Im folgenden Beispielcode wird die Funktion DebitorKontraktbefuellen definiert, die verwendet wird, um Daten in das DebitorKontrakt-Dictionary-Objekt hinzuzufügen:

Function DebitorKontraktbefuellen(DebitorKontrakt)
    DebitorKontrakt.Add "8001234", "1100034567"
    DebitorKontrakt.Add "8004567", "1100012345"
    DebitorKontrakt.Add "8009876", "1100098765"
End Function

Diese Funktion nimmt das Dictionary-Objekt DebitorKontrakt als Parameter und fügt dann Daten mit der Add-Methode hinzu. Der erste Parameter gibt den Schlüssel an, der dem Wert zugeordnet wird, der als zweiter Parameter angegeben ist.

Abrufen von Daten aus einem Dictionary-Objekt

Um auf Daten in einem Dictionary-Objekt zuzugreifen, können Sie die Item-Methode oder die Exists-Methode verwenden. Im folgenden Beispielcode wird die If-Anweisung verwendet, um auf das Dictionary-Objekt DebitorKontrakt zuzugreifen und zu überprüfen, ob ein bestimmter Schlüssel im Objekt vorhanden ist:

Debitor = Inputbox("Geben Sie eine Debitorennummer ein")

If DebitorKontrakt.Exists(Debitor) Then
    Kontrakt = DebitorKontrakt.Item(Debitor)
    Land = DebitorLand.Item(Debitor)

    MsgBox Kontrakt & " " & Land
End If

Wenn ja, werden die Werte für Kontrakt und Land aus dem jeweiligen Dictionary-Objekt abgerufen und in einer msgbox ausgegeben.

So können Dictionary-Objekte verwendet werden, um Daten effizient zu speichern und abzurufen, ohne dass eine umfangreiche Codierung erforderlich ist.