Separation d'une chaine de caractere

Télécharger le projet
Commenter

Description

Fonction qui separe une chaine de caractere en deux autres par rapport à un séparateur de taille quelconque
il y a déja beaucoup de source dans le meme genre sur ce site mais celle que j'ai voulu utilisé au début bouclais à l'infini si elle ne trouvait pas le séparateur

Source / Exemple : 


' *****************************************************
' *                                                   *
' *** Fonction Néocracker : neocracker@caramail.com ***
' *                                                   *
' *****************************************************

' Vous pouvez utilisez cette fonction dans vos programmes,
' mais dans le cas ou ce programme se retrouve sur VBFrance.com
' prévenez moi j'irais le voir

' Je m'excuse pour les multiples fautes d'orthographes qui
' doivent se trouvé dans cette source

' =========================================================

' Le séparateur n'a pas de taille défini
' Le séparateur ne doit se trouver qu'une seul fois dans le texte, sinon :
' EXEMPLE : texte : "x+5 = 25 = 5y" / séparateur : " = "
'           gauche : "x+5"
'           droite : "25 = 5y"

Function separe(chaine As String, separateur As String, Optional partie_droite As Boolean) As String
    For i = Len(separateur) To Len(chaine)
        If Right(Left(chaine, i), Len(separateur)) = separateur Then
            If partie_droite = False Then
                separe = Left(chaine, i - Len(separateur))
            Else
                separe = Right(chaine, Len(chaine) - i)
            End If
        End If
    Next i
End Function
Télécharger le projet

Codes Sources

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