Determiner n° ligne n° colonne d'un mot selectionne dans une zone TEXT
chico79
Messages postés
22
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
20 mai 2003
-
19 sept. 2002 à 09:31
Utilisateur anonyme - 19 sept. 2002 à 15:12
Utilisateur anonyme - 19 sept. 2002 à 15:12
A voir également:
- Determiner n° ligne n° colonne d'un mot selectionne dans une zone TEXT
- Créer un mot mélé en ligne - Forum Java
- Melangeur de mot - Forum VB.NET
- Saut de ligne \n ✓ - Forum PHP
- Sql ajouter une colonne dans un select - Forum SQL
- Saut de ligne /n ✓ - Forum PHP
4 réponses
Utilisateur anonyme
19 sept. 2002 à 09:43
19 sept. 2002 à 09:43
Salut
Tu devrais éssayer avec un richtextbox pour la recherche c'est géniale:
pour trouver la position dans le texte : (dt$= chaine à retrouver et pos=position ou il doit commencer à chercher):
"foundpos = principal.RichTextBox1.Find(dt$, pos, , 1)"
Et pour le numéro de ligne c'est:
ligne =(principal.RichTextBox1.GetLineFromChar(foundpos))
Tu devrais éssayer avec un richtextbox pour la recherche c'est géniale:
pour trouver la position dans le texte : (dt$= chaine à retrouver et pos=position ou il doit commencer à chercher):
"foundpos = principal.RichTextBox1.Find(dt$, pos, , 1)"
Et pour le numéro de ligne c'est:
ligne =(principal.RichTextBox1.GetLineFromChar(foundpos))
Utilisateur anonyme
19 sept. 2002 à 09:45
19 sept. 2002 à 09:45
Désolé, il faut enlever le "principal" derrière le richtextbox1.
chico79
Messages postés
22
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
20 mai 2003
19 sept. 2002 à 14:39
19 sept. 2002 à 14:39
J'ai l'impressin que y a personne
qui a compris mon problème
je fais pas de la recherche des chaines de carachtères ... c'est des controles souris que je
recherche
Lorsque l'utilisateur selectionne un mot ou une phrase la souris,je veux qu'il me renvoie la colonne et la ligne
------------------
merci
a+
-------------
Réponse au message :
-------------------------------
Salut
Tu devrais éssayer avec un richtextbox pour la recherche c'est géniale:
pour trouver la position dans le texte : (dt$= chaine à retrouver et pos=position ou il doit commencer à chercher):
"foundpos = principal.RichTextBox1.Find(dt$, pos, , 1)"
Et pour le numéro de ligne c'est:
ligne =(principal.RichTextBox1.GetLineFromChar(foundpos))
qui a compris mon problème
je fais pas de la recherche des chaines de carachtères ... c'est des controles souris que je
recherche
Lorsque l'utilisateur selectionne un mot ou une phrase la souris,je veux qu'il me renvoie la colonne et la ligne
------------------
merci
a+
-------------
Réponse au message :
-------------------------------
Salut
Tu devrais éssayer avec un richtextbox pour la recherche c'est géniale:
pour trouver la position dans le texte : (dt$= chaine à retrouver et pos=position ou il doit commencer à chercher):
"foundpos = principal.RichTextBox1.Find(dt$, pos, , 1)"
Et pour le numéro de ligne c'est:
ligne =(principal.RichTextBox1.GetLineFromChar(foundpos))
Utilisateur anonyme
19 sept. 2002 à 15:12
19 sept. 2002 à 15:12
Re-salut
T'as pas non plus éssayé un richtexbox, alors tu fais un nouveau avec un richtext et tucolles ce code:
Private Sub Form_Load()
RichTextBox1.Text = "Test d'une sélection texte" & vbCrLf & _
"En vue d'afficher la ligne" & vbCrLf & _
"Et en plus la position du premier chr séléctionné..." & _
vbCrLf & "Sélectionnez un morceau de ce texte avec la souris pour éssayer !..."
End Sub
Private Sub RichTextBox1_SelChange()
dt$ = RichTextBox1.SelText
pos = 1
foundpos = RichTextBox1.Find(dt$, pos, , 1) 'cherche la position du 1° chr du texte (dt$)
If foundpos <> -1 Then 'quand il ne trouve pas le texte (dt$) la valeur est toujours = -1
ligne = (RichTextBox1.GetLineFromChar(foundpos))
RichTextBox1.Text = RichTextBox1.Text & vbCrLf & " - Le texte <<" & dt$ & ">> est à la ligne " & ligne & " et la position du 1°n chr est " & foundpos
End If
End Sub
Pour le n° de colonne, vu que c'est un texte il y a que toi qui peut savoir.
Tu me diras ce que ca a donné....
T'as pas non plus éssayé un richtexbox, alors tu fais un nouveau avec un richtext et tucolles ce code:
Private Sub Form_Load()
RichTextBox1.Text = "Test d'une sélection texte" & vbCrLf & _
"En vue d'afficher la ligne" & vbCrLf & _
"Et en plus la position du premier chr séléctionné..." & _
vbCrLf & "Sélectionnez un morceau de ce texte avec la souris pour éssayer !..."
End Sub
Private Sub RichTextBox1_SelChange()
dt$ = RichTextBox1.SelText
pos = 1
foundpos = RichTextBox1.Find(dt$, pos, , 1) 'cherche la position du 1° chr du texte (dt$)
If foundpos <> -1 Then 'quand il ne trouve pas le texte (dt$) la valeur est toujours = -1
ligne = (RichTextBox1.GetLineFromChar(foundpos))
RichTextBox1.Text = RichTextBox1.Text & vbCrLf & " - Le texte <<" & dt$ & ">> est à la ligne " & ligne & " et la position du 1°n chr est " & foundpos
End If
End Sub
Pour le n° de colonne, vu que c'est un texte il y a que toi qui peut savoir.
Tu me diras ce que ca a donné....
