ASP 使用Filter函數來檢索數組的實現代碼

文法說明：

Filter 函數
返回下標從零開始的 數組，其中包含以特定過濾條件為基礎的字串數組的子集。
Filter(InputStrings, Value[, Include[, Compare]])
參數
InputStrings
必選項。一維數組，要在其中搜尋字串。
Value
必選項。要搜尋的字串。
Include
可選項。Boolean 值，指定返回的子字串是否包含 Value。如果 Include 為 True，Filter 將返回包含子字串 Value 的數組子集。如果 Include 為 False，Filter 將返回不包含子字串 Value 的數組子集。
Compare
可選項。數字值指出使用的比較字串 類型.請參閱值設定部分.
設定
Compare 參數可以有以下值：
常數
值
描述
vbBinaryCompare
0
執行二進位比較。
vbTextCompare
1
執行文本比較。
說明
如果在 InputStrings 中沒有找到與 Value 匹配的值，Filter 將返回空數組。如果 InputStrings 為 Null 或者不是一維數組，則會發生錯誤。
由 Filter 函數返回的數組僅包含足以包含匹配項數目的元素。

下面例子利用 Filter 函數返回包含搜尋條件 "Mon" 的數組: 複製代碼 代碼如下:Dim MyIndex
Dim MyArray (3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyIndex = Filter(MyArray, "Mon") 'MyIndex(0) 包含 "Monday"。

在紅色的位置需要注意一下，MyIndex是一個數組！~ 複製代碼 代碼如下:Dim MyIndex,IndexItem
Dim MyArray(2)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Monday"
MyIndex = Filter(MyArray,"Tuesday")
For IndexItem = 0 To UBound(MyIndex)
Response.Write MyIndex(Monday)&"<br />"
Next