Récupération de la dernière chaine de caractère

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 160 fois - Téléchargée 75 fois


Commenter

Contenu du snippet

Renvoie la dernière chaine de caractères aprés le dernier séparateur

Source / Exemple : 


Function sGetLastRightChamp(ByVal chp As String, ByVal sep As String, Optional ByRef nbSep As Variant) As String
    Dim pos As Integer, sauv As String, champ As String
    
    
    champ = chp
    If IsMissing(nbSep) = False Then nbSep = 0
    
    ' Si le paramêtre peut être traité.
    If Len(champ) > 0 And Len(sep) > 0 Then
        Do While True
            pos = InStr(champ, sep)
            If pos < 1 Then
                ' On ne peut aller plus loin et le champ est vide :
                If Len(champ) <= 0 Then
                    If Right(sauv, 1) <> sep Then champ = sauv
                End If
                
                Exit Do
            End If
            
            ' Sauvegarde et recuperation de la suite du champ.
            sauv = champ
            champ = sGetRightChamp(champ, sep)
            If IsMissing(nbSep) = False Then nbSep = nbSep + 1
        Loop
    End If
    
    sGetLastRightChamp = champ
End Function

Conclusion :


Cette fonction utilise une autre fonction nommée SGetRightChamp()

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