Sélectionne une partie d'un texte

Commenter

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

S'inscrire maintenant

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.