RECHERCHER DU TEXTE DANS UN TEXTBOX ET LE REMPLACER PAR UN AUTRE MOT
rotoillon
Messages postés11Date d'inscriptionmercredi 8 mai 2002StatutMembreDernière intervention 9 septembre 2005
-
8 mai 2002 à 13:52
z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 2007
-
7 juin 2003 à 18:04
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 20072 7 juin 2003 à 18:04
Moi je viens de mettre 10 car je cherchais un code simple et court pour sélectionner un texte. Parfait !
Pour le reste, je n'ai pas regardé...
cs_demon5439
Messages postés10Date d'inscriptionlundi 25 novembre 2002StatutMembreDernière intervention21 avril 2003 2 janv. 2003 à 15:57
If remplacer <> 0 Then ' si le nombre de fois que "." est présent dans mht.text EST INFERIEUR a 0, alors ...
petit détail aussi, pour que ca fonctionne dès qu'un caractere est tapé dans un textbox, il faux que ce code soit dans l'evenement "TextChanged" de ce textbox.
(scusez moi)
cs_demon5439
Messages postés10Date d'inscriptionlundi 25 novembre 2002StatutMembreDernière intervention21 avril 2003 2 janv. 2003 à 15:53
je te remerci pour ce code extrement simple (une fois compri !) c'est exactement se que je cherchai ... enfin non pas vraiment, mais je l'ai suivi pas a pas et l'ai modifié de maniere a se qu'il change un caractère souhaité dans un textbox. par exemple si je tape "." il sera automatiquement remplacé par ",", voila le code :
Dim remplacer
remplacer = InStr(mht.Text, ".")
' la variable "remplacer" est égale au nombre de fois que "." est présent dans le texte du textbox "mht"
If remplacer <> 0 Then ' si le nombre de fois que "." est présent dans mht.text, alors ...
mht.Focus() ' le focus est sur mht
mht.SelectionStart = remplacer - 1 ' je selectionne a partir du dernier caractere se trouvant juste avant le 1er qui "." qui a été trouvé
mht.SelectionLength = Len(",") ' la longueur du texte séléctionné est egale a la longueure du / des caractere a remplacer
mht.SelectedText = "," ' le texte selectionné (c'est a dire ".") est remplacé par ","
End If
Désolé si je suis pas très compréhensible ;) encore merci a l'auteur de ce sujet !
rotoillon
Messages postés11Date d'inscriptionmercredi 8 mai 2002StatutMembreDernière intervention 9 septembre 2005 8 mai 2002 à 13:52
Ce code fonctionne correctement mais j'aimerais bien savoir comment on fait pour créer un bouton suivant ou précédent pour afficher le caractère suivant correspondant à la recherche!!!!
Si qqun le sait n'hésitez pas à m'écrire!!!
g.miserez@net2000.ch
7 juin 2003 à 18:04
Pour le reste, je n'ai pas regardé...
2 janv. 2003 à 15:57
petit détail aussi, pour que ca fonctionne dès qu'un caractere est tapé dans un textbox, il faux que ce code soit dans l'evenement "TextChanged" de ce textbox.
(scusez moi)
2 janv. 2003 à 15:53
Dim remplacer
remplacer = InStr(mht.Text, ".")
' la variable "remplacer" est égale au nombre de fois que "." est présent dans le texte du textbox "mht"
If remplacer <> 0 Then ' si le nombre de fois que "." est présent dans mht.text, alors ...
mht.Focus() ' le focus est sur mht
mht.SelectionStart = remplacer - 1 ' je selectionne a partir du dernier caractere se trouvant juste avant le 1er qui "." qui a été trouvé
mht.SelectionLength = Len(",") ' la longueur du texte séléctionné est egale a la longueure du / des caractere a remplacer
mht.SelectedText = "," ' le texte selectionné (c'est a dire ".") est remplacé par ","
End If
Désolé si je suis pas très compréhensible ;) encore merci a l'auteur de ce sujet !
8 mai 2002 à 13:52
Si qqun le sait n'hésitez pas à m'écrire!!!
g.miserez@net2000.ch