Récupère une chaine avant le dernier séparateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 396 fois - Téléchargée 74 fois


Contenu du snippet

Renvoie la chaîne de caractères avant le dernier séparateur

Source / Exemple :


Function sGetLastLeftChamp(ByVal chp As String, ByVal sep As String) As String
    Dim pos As Integer, chaine As String, sauv As String, champ As String
    
    
    chaine = chp
    champ = vbNullString
    
    ' Si le paramêtre peut être traité.
    If Len(chaine) > 0 And Len(sep) > 0 Then
        Do While True
            pos = InStr(chaine, sep)
            If pos < 1 Then
                ' On ne peut aller plus loin et champ et vide :
                If Len(sauv) > 0 Then champ = champ & sauv
                If Len(champ) > 0 Then chaine = champ
                
                Exit Do
            End If
            
            ' Sauvegarde et recupération du champ avant le séparateur.
            If Len(sauv) > 0 Then champ = champ & sauv & sep
            sauv = sGetLeftChamp(chaine, sep)
            chaine = sGetRightChamp(chaine, sep)
        Loop
    End If
    
    sGetLastLeftChamp = chaine
End Function

Conclusion :


Cette fonction utilise les fonctions sGetLeftChamp() et sGetRightChamp().
Voir aussi la fonction sGetLastRightChamp()

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.