Results 1 to 2 of 2

Thread: Classic VB - Filtering Arrays

  1. #1

    Thread Starter
    PowerPoster RhinoBull's Avatar
    Join Date
    Mar 2004
    Location
    New Amsterdam
    Posts
    24,132

    Classic VB - Filtering Arrays

    First I'd like to mention that credits for this FAQ post must go to RANDEM - he reminded me about the (long forgotten ) Filter function some time ago but I couldn't find that particular post...
    So, anyway, here is a quick wrapper for the Filter function:
    Code:
    Option Explicit
    
    'declare a dynamic array
    Dim arTest() As String
    
    Private Sub Form_Load()
    Dim i%
    
        ReDim arTest(25) 'I'm just using upper case characters for demonstration
        
        '----------------------------------------------------------
        'NOTE: you may add a listbox to your form
        '      so you can see what's being loaded into array
        '      if you do that then uncomment one line in the loop
        '----------------------------------------------------------
        
        For i = 0 To UBound(arTest)
            arTest(i) = "Item " & i + 1 & " - " & Chr(65 + i)
            'List1.AddItem "Item " & i + 1 & " - " & Chr(65 + i)
        Next i
    
    End Sub
    
    Private Sub Command1_Click()
    Dim arTemp() As String
    Dim i As Integer
    
        'get all items that contain "1" character
        arTemp = FilterArray(arTest, "1", True, vbTextCompare)
        
        Debug.Print "List of items containing '1' character" & vbNewLine
        If Not IsEmpty(arTemp) Then
            For i = 0 To UBound(arTemp)
                Debug.Print arTemp(i)
            Next i
        End If
        
        'get all items that don't have a "1" character
        arTemp = FilterArray(arTest, "1", False, vbTextCompare)
        
        Debug.Print vbNewLine & "List of items that do not have '1' character" & vbNewLine
        If Not IsEmpty(arTemp) Then
            For i = 0 To UBound(arTemp)
                Debug.Print arTemp(i)
            Next i
        End If
    
    End Sub
    
    Public Function FilterArray(sourcearray() As String, _
                                searchvalue As String, _
                                include As Boolean, _
                                compare As Integer) As String()
    '=================================================================
    'Returns a zero-based array containing subset of a
    'string array based on a specified filter criteria
    '----
    'compare argument can be one of the following:
    '   vbBinaryCompare = 0, vbTextCompare = 1, vbDatabaseCompare = 2
    'but most of time you'd probably need the vbTextCompare
    '=================================================================
    Dim arTemp() As String
    
        arTemp = Filter(sourcearray, searchvalue, include)
        FilterArray = arTemp
    
    End Function
    edit: changed title to indicate the "classic vb".

  2. #2
    Hyperactive Member Daniel Duta's Avatar
    Join Date
    Feb 2011
    Location
    Bucharest, Romania
    Posts
    396

    Re: Classic VB - Filtering Arrays

    I'd like to mention that credits for this FAQ post must go to RANDEM
    I am just curious, why should someone get credit for a classic vb function as long as it is well known that function is official documentated in the MSDN Library ?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width