Polar Studio

Filter

Public Function Filter(ByVal InputArray As Array(), ByVal Find As String, Optional ByVal Include As Boolean = True, Optional ByVal CompareMode As Long = 0, Optional ByVal UsePatternMatching As Boolean = False) As String()

Filters an array of strings for a specific value or pattern and returns an array of strings with the (non)matching items.

InputArray: The array to filter.
Find: The string or pattern to search for.
Include: If set to False, the matching values are excluded, if True included.
CompareMode: The way of comparing for searching or matching. Use vbBinaryCompare (0) for case sensitive or vbTextCompare (1) for case insensitive.
UsePatternMatching: Pass as True to use pattern matching (see the Like operator).

Dim lArray As String() = {"This", "is", "a", "demo"}
Dim lNewArray As String = Filter(lArray, "*i*", True, vbBinaryCompare, True) 'lNewArray now is {"This", "is"}
Dim lRestArray As String = Filter(lArray, "*i*", False, vbBinaryCompare, True) 'lRestArray now is {"a", "demo"}

See also: