Extrait une chaine et se qui suit d'une autre chaine (sans le garder dans la chaine source)

Commenter

Contenu du snippet

Cette fonction extrait la chaine qui se trouve après la chaine cherche$ à partir de la chaine buffer$. La partie extraite est supprimée de la chaine source buffer$. La chaîne extraite se trouve dans data$.

Source / Exemple : 


'**************************************************************
' Fonction qui extrait la chaine située après le $cherche dans $buffer,
' place cette chaine dans $data et efface cette chaine de $buffer
'**************************************************************
Public Function Extract(buffer As String, data As String, cherche As String)
    ' Variables locales
        Dim pos As Integer
        
    ' Recherche de la chaine
    pos = InStr(1, buffer, cherche, vbBinaryCompare)
    
    ' Teste si non trouvée
    If pos = 0 Then
        data = ""
    Else
        data = Mid(buffer, pos)
        buffer = Left(buffer, Len(buffer) - Len(data))
    End If
End Function

Conclusion :


Note: data = "" si la chaine cherche$ n'a pas été trouvée dans la chaine buffer$.

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