Filter programma schrijven.

[Morse92]

Beste lezer,

ik wil graag een programmatje schrijven die namen filtert.

Bijvoorbeeld:

Lijst 1
Piet
Jan
Peter
Simon

Lijst 2
Piet
Jan
Peter

Piet
Jan
Simon

dan wil ik zorgen dat Simon en Peter op mijn scherm verschijnen als ik op de controleer buton druk, omdat die wel in Lijst 1 staan maar niet in lijst 2 en/of 3.
Kan iemand me daar bij helpen? of is dit wel een erg groote uitdaging?

 

[evertVB]

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Namen1() As String
        Dim Namen2() As String
        Dim Namen3() As String
        Dim NaamZitIn2() As Boolean
        Dim NaamZitIn3() As Boolean
        Dim i As Integer
        Dim j As Integer

        ReDim Namen1(0 To 7)
        Namen1(0) = "Piet"
        Namen1(1) = "Jan"
        Namen1(2) = "Peter"
        Namen1(3) = "Simon"
        Namen1(4) = "Truus"
        Namen1(5) = "Babet"
        Namen1(6) = "Klaartje"
        Namen1(7) = "Simone"

        ReDim Namen2(0 To 4)
        Namen2(0) = "Piet"
        Namen2(1) = "Jan"
        Namen2(2) = "Peter"
        Namen2(3) = "Truus"
        Namen2(4) = "Babet"

        ReDim Namen3(0 To 4)
        Namen3(0) = "Piet"
        Namen3(1) = "Jan"
        Namen3(2) = "Simon"
        Namen3(3) = "Truus"
        Namen3(4) = "Babet"

        ReDim NaamZitIn2(0 To UBound(Namen1))
        ReDim NaamZitIn3(0 To UBound(Namen1))

        For i = LBound(Namen1) To UBound(Namen1)
            NaamZitIn2(i) = False
            NaamZitIn3(i) = False
        Next i

        For i = LBound(Namen1) To UBound(Namen1)
            For j = LBound(Namen2) To UBound(Namen2)
                If Namen1(i) = Namen2(j) Then
                    NaamZitIn2(i) = True
                End If
            Next j
            For j = LBound(Namen3) To UBound(Namen3)
                If Namen1(i) = Namen3(j) Then
                    NaamZitIn3(i) = True
                End If
            Next j
        Next i
        For i = LBound(Namen1) To UBound(Namen1)
            If Not (NaamZitIn2(i) And NaamZitIn3(i)) Then
                MsgBox("Deze naam doet mee : " & Namen1(i))
            End If
        Next i
    End Sub