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$.
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.