Objek kamus
Objek kamus digunakan untuk menyimpan informasi dalam pasangan nama/nilai (setara dengan kunci dan item). Objek kamus tampak lebih sederhana daripada array, namun objek Kamus adalah solusi yang lebih memuaskan untuk menangani data terkait
.
Kunci digunakan untuk mengidentifikasi item dalam objek Kamus.
Tidak perlu memanggil ReDim untuk mengubah dimensi objek Kamus.
Ketika item dihapus dari Kamus, item yang tersisa secara otomatis dipindahkan ke
atas , sedangkan array adalah
.Kamus memiliki lebih banyak dibandingkan dengan array. Objek bawaan
Kamus bekerja lebih baik daripada array ketika sering mengakses elemen acak.Kamus
bekerja lebih baik daripada array ketika menemukan item berdasarkan isinya.
Properti dan metode objek Kamus dijelaskan sebagai berikut:
Properti
CompareMode: Menetapkan atau mengembalikan mode perbandingan yang digunakan untuk membandingkan kunci dalam objek Kamus.
Hitungan: Mengembalikan jumlah pasangan kunci/item dalam objek Kamus.
Item: Menetapkan atau mengembalikan nilai item dalam objek Kamus.
Kunci: Tetapkan nilai kunci baru untuk nilai kunci yang ada di objek Kamus.
metode
Tambah: Menambahkan pasangan kunci/item baru ke objek Kamus.
Ada: Mengembalikan nilai logika yang menunjukkan apakah kunci yang ditentukan ada di objek Kamus.
Item: Mengembalikan array dari semua item dalam objek Kamus.
Kunci: Mengembalikan larik semua kunci dalam objek Kamus.
Hapus: Menghapus pasangan kunci/item tertentu dari objek Kamus.
Hapus Semua: Menghapus semua pasangan kunci/item di objek Kamus.
kode program
<%
Redupkan oDic,aItems,aKeys
Setel oDic = Server.CreateObject("Scripting.Dictionary")
'Tambahkan
oDic.Tambahkan "aaa",111
oDic.Tambahkan "bbb",222
oDic.Tambahkan "ccc",333
oDic.Tambahkan "ddd",444
'Ubah
Jika oDic.Exists("aaa") Lalu
oDic.key("aaa") = "eee" 'atribut kunci, hanya-baca
oDic.item("eee") = 555 'atribut item, dapat dibaca dan ditulis
Akhiri Jika
'Daftar
aKeys = oDic.Keys
aItems = oDic.Items
Untuk i=0 Ke oDic.Hitungan-1
Respon.Tulis(aKeys(i) & "," & aItems(i))
Berikutnya
'Hapus
Respon.Tulis(oDic.Count)
oDic.Remove("eee") 'Hapus pasangan kunci dan item dari objek Kamus
Respon.Tulis(oDic.Count)
oDic.RemoveAll() 'Hapus semua pasangan kunci dan item dalam objek Kamus
Response.Write(oDic.Count)
Setel oDic = Tidak Ada
%>