|
|
|
Click here to copy the following block |
Sub 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 count = count + 1 If index <> count Then arr(count) = arr(index) End If End If Next If count < UBound(arr) Then ReDim Preserve arr(LBound(arr) To count) As String End If End Sub |
|
|
|
Submitted By :
Nayan Patel
(Member Since : 5/26/2004 12:23:06 PM)
|
|
|
Job Description :
He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting. |
View all (893) submissions by this author
(Birth Date : 7/14/1981 ) |
|
|