Recupère la chaine de caractères placée avant le séparateur, et met a jour la chaine principale, en supprimant les caractères récupérés
Source / Exemple :
Function sRecupItem(ByRef chaine As String, ByVal sep As String) As String
Dim pos As Integer, item As String
On Error GoTo ErrRecupItem
sRecupItem = vbNullString
If Len(Trim(chaine)) <= 0 Then Exit Function
' Récupération de l'item :
pos = InStr(chaine, sep)
If pos > 0 Then
item = Left(chaine, pos - 1)
chaine = Right(chaine, Len(chaine) - (Len(item) + Len(sep)))
Else
item = chaine
chaine = vbNullString
End If
If Left(item, 1) = """" Then item = Right(item, Len(item) - 1)
If Right(item, 1) = """" Then item = Left(item, Len(item) - 1)
sRecupItem = item
ErrRecupItem:
End Function
Conclusion :
Voir aussi les fonctions sGetLeftChamp(), sGetRightChamp(), sGetLastRightChamp() et sGetLastLeftChamp()
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.