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 393 fois - Téléchargée 54 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$.

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

Ajouter un commentaire

Commentaires

cs_abir123
Messages postés
8
Date d'inscription
mercredi 8 mars 2006
Statut
Membre
Dernière intervention
3 mai 2006
-
merci bien
je cherche un logiciel qui converi les extrait de chaine suit d'une autre chaine sans gardes dans chaine source
cs_slayer
Messages postés
202
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 mars 2008
-
pas de zip !!!

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.