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