Extrait une chaine et se qui suit d'une autre chaine (sans le garder dans la chaine source)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 637 fois - Téléchargée 57 fois
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$.
Note: data = "" si la chaine cherche$ n'a pas été trouvée dans la chaine buffer$.
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
- Extrait une chaine et se qui suit d'une autre chaine (sans le garder dans la chaine source)
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Sous chaine en python - Forum Python
- Le format de la chaîne d'entrée est incorrect - Forum C# / .NET
- Inverser une chaine de caractere en c - Forum C++ & C++ .NET
- Parcourir une chaine de caractère java - Forum Java
3 mai 2006 à 12:37
je cherche un logiciel qui converi les extrait de chaine suit d'une autre chaine sans gardes dans chaine source
18 nov. 2003 à 23:22
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.