Filter – A replacement for VB6’s Filter function under VB5

' A replace for the Filter function under VB4 and VB5'' Note that the source array is modified. For this reason' this is declared as a Sub rather than a FunctionSub Filter(arr() As String, ByVal Search As String, Optional ByVal Include As _    Boolean, Optional ByVal CompareMethod As VbCompareMethod = vbBinaryCompare)    Dim index As Long    Dim count As Long        count = LBound(arr) - 1        For index = LBound(arr) To UBound(arr)        If (InStr(1, arr(index), Search, CompareMethod) > 0) = Include Then            ' this item must be included            count = count + 1            If index <> count Then                ' copy data only if necessary                arr(count) = arr(index)            End If        End If    Next        ' trim items in excess    If count < UBound(arr) Then        ReDim Preserve arr(LBound(arr) To count) As String    End If    End Sub

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: