Test existance de texte dans une liste items

Commenter

Contenu du snippet 

REM Conception/Realisation @ASIMENGO
Public Function IsTextMatchItems(ByVal psText As String, ByVal psItems As String, Optional ByVal psItemsSeparator As String = "|") As Boolean
Dim aItems As Variant, i As Long
    If psItems = "*" Then
        'Si psItems égal "*" alors IsTextMatchItems renverra tjrs True
        IsTextMatchItems = True
    Else
        'Si psItems différent de "*" alors il y'a 3 cas de figure en fonction du premier Item de la liste
        aItems = Split(psItems, psItemsSeparator)
        Select Case aItems(0)
            Case "+":
                'Le premier Item est "+", pour indiquer à la fonction de retrouver psText dans la liste des items à partir du deuxième Item
                For i = 1 To UBound(aItems)
                    If psText = aItems(i) Then
                        IsTextMatchItems = True
                        Exit Function
                    End If
                Next i
            Case "-":
                'Le premier Item est "-", pour indiquer à la fonction de ne pas retrouver psText dans la liste des items à partir du deuxième Item
                For i = 1 To UBound(aItems)
                    If psText = aItems(i) Then
                        IsTextMatchItems = False
                        Exit Function
                    End If
                Next i
                IsTextMatchItems = True
            Case Else:
                'Le premier Item différent de "+" et "-", pour indiquer à la fonction de retrouver psText dans la liste de tous les items
                For i = 0 To UBound(aItems)
                    If psText = aItems(i) Then
                        IsTextMatchItems = True
                        Exit Function
                    End If
                Next i
        End Select
    End If
End Function

Compatibilité : VB6

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_asimengo)