Wörterbuchobjekt
Wörterbuchobjekte werden zum Speichern von Informationen in Name/Wert-Paaren verwendet (äquivalent zu Schlüsseln und Elementen). Wörterbuchobjekte sind jedoch eine zufriedenstellendere Lösung für die Verarbeitung verwandter Daten
.
Schlüssel werden zum Identifizieren von Elementen in einem Wörterbuchobjekt verwendet.
Es ist nicht erforderlich, ReDim aufzurufen, um die Dimensionen des Wörterbuchobjekts zu ändern.
Wenn ein Element aus einem Wörterbuch gelöscht wird, werden die verbleibenden Elementenicht mehrdimensional
verschoben
, wohingegen Arrays
im Vergleich zu Arrays mehr haben. Das integrierte Objekt-
Wörterbuch funktioniert besser als Arrays, wennauf
zufällige Elemente zugegriffen wird.
Die Eigenschaften und Methoden des Dictionary-Objekts werden wie folgt beschrieben:
Eigenschaften
CompareMode: Legt den Vergleichsmodus fest, der zum Vergleichen von Schlüsseln in Dictionary-Objekten verwendet wird, oder gibt ihn zurück.
Anzahl: Gibt die Anzahl der Schlüssel-/Elementpaare im Dictionary-Objekt zurück.
Item: Legt den Wert eines Elements im Dictionary-Objekt fest oder gibt ihn zurück.
Schlüssel: Legen Sie einen neuen Schlüsselwert für den vorhandenen Schlüsselwert im Dictionary-Objekt fest.
Verfahren
Hinzufügen: Fügt dem Dictionary-Objekt ein neues Schlüssel/Element-Paar hinzu.
Exists: Gibt einen logischen Wert zurück, der angibt, ob der angegebene Schlüssel im Dictionary-Objekt vorhanden ist.
Elemente: Gibt ein Array aller Elemente im Dictionary-Objekt zurück.
Schlüssel: Gibt ein Array aller Schlüssel im Dictionary-Objekt zurück.
Entfernen: Entfernt das angegebene Schlüssel/Element-Paar aus dem Dictionary-Objekt.
RemoveAll: Entfernt alle Schlüssel-/Elementpaare im Dictionary-Objekt.
Programmcode
<%
Dim oDic,aItems,aKeys
Set oDic = Server.CreateObject("Scripting.Dictionary")
'Add
oDic.Add „aaa“,111
oDic.Add „bbb“,222
oDic.Add „ccc“,333
oDic.Add "ddd",444
'Ändern
Wenn oDic.Exists("aaa"), dann
oDic.key("aaa") = "eee" 'Schlüsselattribut, schreibgeschützt
oDic.item("eee") = 555 'item-Attribut, lesbar und beschreibbar
End If
'Liste
aKeys = oDic.Keys
aItems = oDic.Items
Für i=0 bis oDic.Count-1
Response.Write(aKeys(i) & "," & aItems(i))
Weiter
„Löschen
Response.Write(oDic.Count)
oDic.Remove("eee") 'Schlüssel- und Elementpaare aus dem Dictionary-Objekt entfernen
Response.Write(oDic.Count)
oDic.RemoveAll() 'Alle Schlüssel- und Elementpaare im Dictionary-Objekt entfernen
Response.Write(oDic.Count)
Setze oDic = Nichts
%>