Fonction split (dissocier) pour les utilisateurs de vb5

Commenter

Contenu du snippet

Ce code permet aux utilisateurs de VB5 d'employer la fonction Split (Dissocier), qui n'est apparue en Visual Basic qu'à partir de la version 6.

Source / Exemple : 


Function Dissocier(Chaîne As String, Optional Balise As String = _
" ") As Variant
    Dim Éléments() As String, LongChaîne As Long, PrécBalise As Long
    K = -1
    'Cas où aucune balise n'est spécifiée : le tableau n'a qu'une
    'entrée qui contient toute la chaîne 
    If Len(Balise) = 0 Then
        ReDim Éléments(0)
        Éléments(0) = Chaîne
        GoTo Fin
    End If
    Do
        K = K + 1
        LongChaîne = Len(Chaîne)
        'Recherche le dernier caractère avant la balise
        PrécBalise = InStr(1, Chaîne, Balise, vbBinaryCompare) - 1
        'Quand il n'y a plus d'occurrence de la balise, récupère 
        'la fin de la chaîne
        If PrécBalise = -1 Then PrécBalise = LongChaîne
        'Insère les données dans une entrée du tableau
        ReDim Preserve Éléments(K)
        Éléments(K) = Mid(Chaîne, 1, PrécBalise)
        If PrécBalise = LongChaîne Then Exit Do
        'Réduit la chaîne
        Chaîne = Right(Chaîne, LongChaîne - PrécBalise - Len(Balise))
    Loop
Fin:
    Dissocier = Éléments()
End Function

Conclusion :


Bonne programmation à tous.

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 (Cacophrene)