Cú pháp:
Dictionary.RemoveAll
Các phương thức của đối tượng Dictionary
v Add
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> <%
Các đối tượng cơ bản và thao tác 66
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>
v 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"
Các đối tượng cơ bản và thao tác 67
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>
v 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
Các đối tượng cơ bản và thao tác 68
For i = 0 to Dic.Count-1
Response.Write (Arr(i) & "<br>") Next
Set Dic = nothing %>
</BODY> </HTML> v 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
Các đối tượng cơ bản và thao tác 69
Response.Write (Arr(i) & "<br>") Next
Set Dic = nothing %>
</BODY> </HTML>
v 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) 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" Dic.Remove("Đ") Set Dic = nothing %>
</BODY> </HTML>
Các đối tượng cơ bản và thao tác 70
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
Thao tác trên file hệ thống
(FileSystemObject)
Đối tượng FileSystemObject cung cấp thông tin về hệ thống tập tin, thư mục trên trình chủ và ta có thể sử dung đối tượng này để thao tác với các tập tin, thư mục,... có thể sử dung đối tượng này để thao tác với các tập tin, thư mục,...