Fonction split (dissocier) pour les utilisateurs de vb5

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 255 fois - Téléchargée 30 fois

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

Ajouter un commentaire Commentaires
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
Ah ba là ! mon vieux... c'est sur... pourtant normalement Win XP Sp1 ne devrait pas poser de pb... mais bon...
As-tu lis la page : http://download.microsoft.com/download/E/F/7/EF70AE8C-FF6E-46D4-A007-F4ECE1D4D95D/VS2008ExpressReadme.htm
Sinon faire une mise à jour de Windows au près de Microsoft...

Bon courage,
Amicalement,
Us.

PS : Désolé Cacophrène de prendre qlq posts sur ta source, pour cet écart... En espérant de revoir (toujours avec plaisir) ailleurs sur VBF...
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
Merci pour cette merveilleuse réponse mais ! voilà!
Je suis comme les vieux (en fait je suis un vieux )!
Windows XP sp1 n'est pas accepté! Encore un CD a acheté mille tonnerre de brest ! pas grave j'attendrais queques jours ...
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
... euh, tout est expliquer sur la page précédente... Lire Etape 3 !

Amicalement,
Us.
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
La licence est gratuite, il suffit d'accepter et de s'enregistrer...

Amicalement,
Us.
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
Merci pour le lien, mais et la licence ? est ce que la mienne est prise en compte ?
Afficher les 13 commentaires

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.