Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 304 fois - Téléchargée 39 fois
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
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
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.