Recherche d'une variable dans un texte et la recuperer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 410 fois - Téléchargée 41 fois

Contenu du snippet

Permet de rechercher une variable dans un texte
tout est décrit dans la sources

Source / Exemple :


Public Function Recherche(Texte As String, Expression_debut As String, Expression_fin As String) As String
Dim Variable, Valeur
Valeur = Split(Texte, Expression_debut)
Variable = Split(Valeur(1), Expression_fin)
Recherche = Variable(0)
End Function

'EXEMPLE
'pour appeler la fonction

Private Sub Form_Load()
Dim ligne As String
ligne = "[test=toto]"
Form1.Caption = Recherche(ligne, "[test=", "]")
End Sub

Conclusion :


La fonction retourne toto car il est entre "[test=" et "]"

A voir également

Ajouter un commentaire Commentaires
cs_Arnaud Messages postés 33 Date d'inscription dimanche 11 mars 2001 Statut Membre Dernière intervention 11 juillet 2002
30 oct. 2005 à 00:52
je ne programme plus en vb depuis presque 3ans donc je n'est pas beaucoup le temps de me pencher sur une solution
mais tu peux envoyer ligne par ligne.
ou rassemble les lignes en une seul
ce n'est pas tres propre mais sa devrait fonctionner.

Desoler de ne pouvoir t'avancer plus contact moi si sa te pose de gros probleme

Arnaud
WhiteDwarf Messages postés 510 Date d'inscription samedi 29 décembre 2001 Statut Membre Dernière intervention 23 mai 2008
28 oct. 2005 à 12:21
Ca ne marche pas lorsqu'il il ya plusieures lignes, aurais tu une solution ?
cs_Pof Messages postés 78 Date d'inscription lundi 11 février 2002 Statut Membre Dernière intervention 7 février 2006 1
20 nov. 2002 à 23:32
pratique par exemple pour recuperer des liens dans une page en html ^^

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.