Recupere une chaine et renvoi une chaine sans celle supprimée


Commenter

Contenu du snippet

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

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)