Chức năng: Xác định sự tồn tại của một giá trị hay một đối tượng trong một mảng bất kỳ
Ngôn ngữ: asp - Nhóm: array
CÚ PHÁP
boolean = bIsInArray(ValueToFind, aArray)
Hàm này rất tiện dụng cho việc kiểm tra một giá trị hoặc một con trỏ có tồn tại trong một mảng đa chiều hay không. Thông thường sử dụng LBountd/Ubound để duyệt hết tất cả các phần tử mảng, xữ lý với mảng đa chiều thường là một công việc tốn nhiều thời gian. Đây là một cách để kiểm tra giá trị trong mảng rất nhanh.
VÍ DỤ
<%
Dim vArr(100, 100), n, m
For n = 1 To 100
For m = 1 To 100
vArr(n, m) = Int(Rnd * 100)
Next
Next
'--- Force last element as target; worst case
vArr(100, 100) = 500
response.write bIsInArray(500, vArr)
'--- returns: True
%>
ASP Code
<%
Public Function bIsInArray(ByRef FindValue, ByRef vArr)
Dim vArrEach
For Each vArrEach In vArr
If IsObject(FindValue) Then
bIsInArray = FindValue Is vArrEach
Else
bIsInArray = (FindValue = vArrEach)
End If
If bIsInArray Then Exit For
Next
End Function
%>
