Sélectionne une partie d'un texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 884 fois - Téléchargée 29 fois

Contenu du snippet

Ce petit code permet de sélection une partie d'un texte

on indique
- le premier ou les premiers mot qu'il doit trouver (début de la sélection)
- le premier ou les premiers mot qu'il doit trouver (fin de la sélection)
- le texte d'origine (base)

la fonction insère la sélection dans un nouveau Texte.

Objet nécesaire : 1 Commandbutton , 2 TextBox

Source / Exemple :


Private Sub Command1_Click()
mot1 = "chat"            'ENTRER LA PREMIERE EXPRESSION (ex: "chat")
mot2 = "méchant"         'ENTRER LA DEUXIEME EXPRESSION  (ex: "méchant")
base = Text1             'ENTRER LE TEXTE D'ORIGINE QUE VOUS VOULER SELECTIONNER (ex: "TEXT1")

calcul = Right(base, Len(base) - InStr(1, base, mot1) + 1)
arriver = calcul
calcul = Left(arriver, (InStr(1, arriver, mot2)) + Len(mot2))

Text2 = calcul        ' RESULTAT (exemple : text2)
End Sub

Conclusion :


Je cherche une facon d'améliorer ce code, par exemple

en faisant une fonction du genre text2 selection("mot1","mot2","base")

que l'on pourrait dans un module..
Je suis débutant alors si quelqu'un sait faire.......

Merci. Ploupy33

A voir également

Ajouter un commentaire Commentaires
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
tu remplace cette ligne
Extrait = Mid(TxtSrc, pos1% + len(départ) , pos2% - pos1%)
Messages postés
202
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 mars 2008

voila 2 code tous simple qui marche parfaitement bien mais si on veut recupere celement le texte entre "chat" et "méchant" on fait comment sans que "chat" et "méchant" resorte dans la selection.
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
Voila un exemple vite fait de fonction :

Public Function Extrait(TxtSrc As String, Départ As String, Arriver As String)
pos1% = InStr(1, TxtSrc, Départ)
If pos1% = 0 Then Exit Function
pos2% = InStr(pos1%, TxtSrc, Arriver)
If pos2% = 0 Then Exit Function
Extrait = Mid(TxtSrc, pos1%, pos2% - pos1% + Len(Arriver))
End Function

Pour l'utliser !!!
Text2 = Extrait(Text1, "chat", "méchant")

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.