Filter 関数

Filter(aryStrings, strString [, blnInc, lngCmp])

一次元配列の各要素を指定された文字列によって検索し、フィルタリングされた結果の配列を返します。

引数

aryStrings

検索先の一次元配列の文字列を指定します。
一次配列でない、またはNUL値に場合は実行時エラーが発生します。

strString

検索する文字列を指定します。

blnInc

省略可能です。
要素の抽出モードを True または False で指定します。（省略した場合は True が設定されます）
True を設定した場合は文字列 strString を含む要素のみの配列を、False を設定した場合は文字列 strString を含まない要素のみの配列を返します。

lngCmp

省略可能です。
文字列比較のモードを指定します。（省略した場合はバイナリモードドで比較を行います）

定数	値	内容
vbBinaryCompare	0	バイナリモードで比較を行います。
vbTextCompare	1	テキストモードで比較を行います。

使用例

次のコードは、Filter 関数を使って "山" を含む配列を返す例です。

Dim aryIndex
Dim aryStrings
aryStrings = Array("山田", "佐藤", "中山", "山本", "鈴木")
aryIndex = Filter(aryStrings, "山", True, 1)     '"山田", "中山", "山本" の３要素がセットされます。
aryIndex = Filter(aryStrings, "山", False, 1)    '"佐藤", "鈴木" の２要素がセットされます。