Filter: Mengenal Fungsi String VB6

Filter- Kegunaan fungsi string dalam VB6.

Kegunaan Filter dalam VB6:

Fungsi Filter berguna untuk memfilter sebuah array (include atau exclude).

Contoh Filter dalam VB6:

Option Explicit

'Contoh include (memperoleh string yang sama dengan "B" dari arrTest)
'dan case-sensitive (memperdulikan apakah B huruf besar atau huruf kecil)
Private Sub cmdEvaluate_Click()
    Dim arrTest() As String
    Dim arrMatch() As String
    
    arrTest = Split("A,B,C,D,B,B,B,B,B,B,B,C", ",")
    arrMatch = Filter(arrTest, "B", True)
    
    MsgBox "Banyaknya string yang sesuai: " & UBound(arrMatch)
    txtResult.Text = arrMatch(0) & " " & arrMatch(1) & " " & arrMatch(2) & " " & arrMatch(3)
End Sub

'Contoh include (memperoleh string yang sama dengan "B" dari arrTest)
'dan case-insensitive (tidak memperdulikan apakah B huruf besar atau huruf kecil)
Private Sub cmdEvaluate_Click()
    Dim arrTest() As String
    Dim arrMatch() As String
    
    arrTest = Split("A,B,C,D,B,B,B,B,B,B,B,C", ",")
    arrMatch = Filter(arrTest, "B", True, vbTextCompare)
    
    MsgBox "Banyaknya string yang sesuai: " & UBound(arrMatch)
    txtResult.Text = arrMatch(0) & " " & arrMatch(1) & " " & arrMatch(2) & " " & arrMatch(3)
End Sub

'contoh exclude (memperoleh string yang tidak sama dengan "B" dari arrTest)
Private Sub cmdEvaluate_Click()
    Dim arrTest() As String
    Dim arrMatch() As String
    
    arrTest = Split("A,B,C,D,B,B,B,B,B,B,B,C", ",")
    arrMatch = Filter(arrTest, "B", False)
    
    MsgBox "Banyaknya string yang sesuai: " & UBound(arrMatch)
    txtResult.Text = arrMatch(0) & " " & arrMatch(1) & " " & arrMatch(2) & " " & arrMatch(3)
End Sub

Demikian contoh fungsi string Filter sebuah Array dalam VB6.