Phương thức Add dùng để thêm một cặp khoá/giá trị mới vào đối tượng
Dictionary. Nếu khoá này đã có trong Dictionary thì phương thức này sẽ bị sai.
Cú pháp:
Dictionary.Add (key, value)
Ví dụ: <HTML> <BODY> <% Dim Dic
Set Dic = Server.CreateObject(“Scripting.Dictionary”) Dic.Add “Đ”, “Đỏ”
Dic.Add “X”, “Xanh” Dic.Add “V”, “Vàng” Dic.Key(“T”) = “Tím”
Response.Write (“Giá trị của khoá T là: “ & Dic.Item(“T”))
Set Dic = nothing %>
</BODY> </HTML> Exists
Để kiểm tra một khoá đã có trong đối tượng Dictionary hay chưa ta dùng phương thức Exists. Phương thức này trả về true nếu khoá đã có trong Dictionary và trả về
false nếu khoá này tồn tại.
Cú pháp:
Dictionary.Exists (key, value)
Ví dụ: <HTML> <BODY> <% Dim Dic
Set Dic = Server.CreateObject(“Scripting.Dictionary”) Dic.Add “Đ”, “Đỏ”
Dic.Add “X”, “Xanh” Dic.Add “V”, “Vàng” Dic.Key(“T”) = “Tím”
If Dic.Exists (“V”) = true Then Response.Write “Khoá V tồn tại!”
Else
Response.Write “Khoá V không tồn tại!” End If
Set Dic = nothing %>
</BODY> </HTML> Items
Không phải lúc nào ta cũng thao tác trên các khoá của đối tượng Dictionary mà đôi lúc ta cũng phải thao tác trên dữ liệu của các khoá như: tìm kiếm một giá trị nào đó, sửa đổi giá trị,... Nếu ta duyệt lần lượt trên các khoá và lấy giá trị của chúng để so sánh thì ắt hẳn sẽ mất nhiều thời gian. Đối tượng Dictionary cung cấp cho ta phương thức Itemsđể lấy một mảng các giá trị của các khoá, và nhờ vào mảng này ta sẽ thao tác trên dữ liệu dễ dàng hơn. Cú pháp của phương thức Items như sau:
Dictionary.Items Ví dụ: <HTML> <BODY> <% Dim Dic
Set Dic = Server.CreateObject(“Scripting.Dictionary”) Dic.Add “Đ”, “Đỏ”
Dic.Add “X”, “Xanh” Dic.Add “V”, “Vàng” Dic.Key(“T”) = “Tím”
Response.Write(“<p>” & “Các giá trị: ” & “</p>”) Dim Arr, i
Arr = Dic.Items
For i = 0 to Dic.Count-1
Response.Write (Arr(i) & “<br>”) Next
Set Dic = nothing %>
</BODY> </HTML>
Keys
Thay vì trả về một mảng các giá trị như phương thức Items thì phương thức Keys
lại trả về một mảng các khoá trong đối tượng Dictionary.
Cú pháp: Dictionary.Keys Ví dụ: <HTML> <BODY> <% Dim Dic
Set Dic = Server.CreateObject(“Scripting.Dictionary”) Dic.Add “Đ”, “Đỏ”
Dic.Add “X”, “Xanh” Dic.Add “V”, “Vàng” Dic.Key(“T”) = “Tím”
Response.Write(“<p>” & “Các khoá: ” & “</p>”) Dim Arr, i
Arr = Dic.Keys
For i = 0 to Dic.Count-1
Response.Write (Arr(i) & “<br>”) Next
Set Dic = nothing %>
</BODY> </HTML> Remove
Phương thức này xoá một phần tử (một cặp khoá/giá trị) ra khỏi đối tượng
Dictionary. Cú pháp của phương thức này như sau: Dictionary.Remove (key)
<HTML> <BODY> <% Dim Dic
Set Dic = Server.CreateObject(“Scripting.Dictionary”) Dic.Add “Đ”, “Đỏ”
Dic.Add “X”, “Xanh” Dic.Add “V”, “Vàng” Dic.Key(“T”) = “Tím” Dic.Remove(“Đ”) Set Dic = nothing %>
</BODY> </HTML>
RemoveAll
Phương thức này dùng để xoá tất cả các phần tử của đối tượng Dictionary.
Cú pháp:
Dictionary.RemoveAll