Recupértaion d'une chaîne de caractères dans une autre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 225 fois - Téléchargée 92 fois


Contenu du snippet

L'argument position permet de donner une position de départ pour la recherche

Source / Exemple :


' ------------------------------------------------------------
' Récupère une chaine de caractère à gauche d'un séparateur :
'
Function sGetLeftChamp(ByVal ligne As String, ByVal leSeparateur As String, Optional position As Variant) As String
    Dim nbCar As Integer, champ As String, pos As Integer
    
    
    pos = 0
    champ = ligne
    
    If Len(champ) > 0 And Len(leSeparateur) > 0 Then
        If IsMissing(position) = False Then pos = position
        
        ' Récupération du champ
        nbCar = InStr(champ, leSeparateur)
        
        ' Nombre de caractere(s) a récupérer.
        If nbCar > 0 Then champ = Left(champ, nbCar - 1)      ' Recuperation du champ.
    End If
    
    sGetLeftChamp = champ
End Function

A voir également

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.