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