EXTRAIT UNE CHAINE ET SE QUI SUIT D'UNE AUTRE CHAINE (SANS LE GARDER DANS LA CHAINE SOURCE)

'**************************************************************
' 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