bonjour,
dans mon RTB, j'arrive =E0 r=E9cup=E9rer l'emplacement(le num=E9ro=20
du pixel)du mot o=F9 l'utilisateur clic, ainsi que le mot
(morceau du mot) qui correspond. J'aimerais faire une=20
fonction qui gr=E2ce =E0 ce que j'ai r=E9cup=E9r=E9 me donne le mot=20
entier (tout ce qui est soulign=E9 avant et apr=E8s le morceau=20
du mot).
exemple : si je clic sur "J40-J47"(qui est soulign=E9), avec=20
mes 2 fonctions, je r=E9cup=E8re "J40" et sa position 132. Je=20
voudrais r=E9cup=E9rer la totalit=E9 "J40-J47" gr=E2ce au crit=E8re=20
soulign=E9.
en esp=E9rant =EAtre claire
merci
mimi
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrice Henrio
A partir de la position P, il faut parcourir avant et après jusqu'au prochain séparateur. Tu obtiens J40 car "-" est considéré comme séparateur. Non testé.
Function MotCliqué(Texte as string, P as long) as string 'Texte est le texte du RTB en tant que texte et non en tant que texte formaté, les codes de formatage n'y figurent pas 'P est la position cliqué dans le texte c'est le numéron du caractère correspondant au clic Dim I as long, Trouvé as boolean, Début as long,Fin as long, Longueur as long I=P Do If ( Mid$(Texte,I,1)=" ") then Exit do Else I=I-1 End If Loop Until I=0 Début=I+1 Fin=InStr(P,texte," ") If Fin=0 then Fin=Len(Texte) Longueur=Fin-Début+1 MotCliqué=Mid$(Texte,Début,Longueur)
End Function
"mimi" a écrit dans le message de news:079801c3d9be$5515ede0$ bonjour, dans mon RTB, j'arrive à récupérer l'emplacement(le numéro du pixel)du mot où l'utilisateur clic, ainsi que le mot (morceau du mot) qui correspond. J'aimerais faire une fonction qui grâce à ce que j'ai récupéré me donne le mot entier (tout ce qui est souligné avant et après le morceau du mot). exemple : si je clic sur "J40-J47"(qui est souligné), avec mes 2 fonctions, je récupère "J40" et sa position 132. Je voudrais récupérer la totalité "J40-J47" grâce au critère souligné. en espérant être claire merci mimi
A partir de la position P, il faut parcourir avant et après jusqu'au
prochain séparateur. Tu obtiens J40 car "-" est considéré comme séparateur.
Non testé.
Function MotCliqué(Texte as string, P as long) as string
'Texte est le texte du RTB en tant que texte et non en tant que texte
formaté, les codes de formatage n'y figurent pas
'P est la position cliqué dans le texte c'est le numéron du caractère
correspondant au clic
Dim I as long, Trouvé as boolean, Début as long,Fin as long, Longueur as
long
I=P
Do
If ( Mid$(Texte,I,1)=" ") then
Exit do
Else
I=I-1
End If
Loop Until I=0
Début=I+1
Fin=InStr(P,texte," ")
If Fin=0 then Fin=Len(Texte)
Longueur=Fin-Début+1
MotCliqué=Mid$(Texte,Début,Longueur)
End Function
"mimi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:079801c3d9be$5515ede0$a501280a@phx.gbl...
bonjour,
dans mon RTB, j'arrive à récupérer l'emplacement(le numéro
du pixel)du mot où l'utilisateur clic, ainsi que le mot
(morceau du mot) qui correspond. J'aimerais faire une
fonction qui grâce à ce que j'ai récupéré me donne le mot
entier (tout ce qui est souligné avant et après le morceau
du mot).
exemple : si je clic sur "J40-J47"(qui est souligné), avec
mes 2 fonctions, je récupère "J40" et sa position 132. Je
voudrais récupérer la totalité "J40-J47" grâce au critère
souligné.
en espérant être claire
merci
mimi
A partir de la position P, il faut parcourir avant et après jusqu'au prochain séparateur. Tu obtiens J40 car "-" est considéré comme séparateur. Non testé.
Function MotCliqué(Texte as string, P as long) as string 'Texte est le texte du RTB en tant que texte et non en tant que texte formaté, les codes de formatage n'y figurent pas 'P est la position cliqué dans le texte c'est le numéron du caractère correspondant au clic Dim I as long, Trouvé as boolean, Début as long,Fin as long, Longueur as long I=P Do If ( Mid$(Texte,I,1)=" ") then Exit do Else I=I-1 End If Loop Until I=0 Début=I+1 Fin=InStr(P,texte," ") If Fin=0 then Fin=Len(Texte) Longueur=Fin-Début+1 MotCliqué=Mid$(Texte,Début,Longueur)
End Function
"mimi" a écrit dans le message de news:079801c3d9be$5515ede0$ bonjour, dans mon RTB, j'arrive à récupérer l'emplacement(le numéro du pixel)du mot où l'utilisateur clic, ainsi que le mot (morceau du mot) qui correspond. J'aimerais faire une fonction qui grâce à ce que j'ai récupéré me donne le mot entier (tout ce qui est souligné avant et après le morceau du mot). exemple : si je clic sur "J40-J47"(qui est souligné), avec mes 2 fonctions, je récupère "J40" et sa position 132. Je voudrais récupérer la totalité "J40-J47" grâce au critère souligné. en espérant être claire merci mimi
Patrice Henrio
Je crois que je me suis un peu précipité pour la réponse qui ne répond pas au problème posé. cependant on doit pouvoir adapter le code avec un usage des propriétés SelUnderline, SelLength, SelStart et Seltext.
J'étais en train de vérifier cela lorsqu'une panne de courant inoportune a éteint l'ordinateur.
"Patrice Henrio" a écrit dans le message de news:%
A partir de la position P, il faut parcourir avant et après jusqu'au prochain séparateur. Tu obtiens J40 car "-" est considéré comme
séparateur.
Non testé.
Function MotCliqué(Texte as string, P as long) as string 'Texte est le texte du RTB en tant que texte et non en tant que texte formaté, les codes de formatage n'y figurent pas 'P est la position cliqué dans le texte c'est le numéron du caractère correspondant au clic Dim I as long, Trouvé as boolean, Début as long,Fin as long, Longueur as long I=P Do If ( Mid$(Texte,I,1)=" ") then Exit do Else I=I-1 End If Loop Until I=0 Début=I+1 Fin=InStr(P,texte," ") If Fin=0 then Fin=Len(Texte) Longueur=Fin-Début+1 MotCliqué=Mid$(Texte,Début,Longueur)
End Function
"mimi" a écrit dans le message de news:079801c3d9be$5515ede0$ bonjour, dans mon RTB, j'arrive à récupérer l'emplacement(le numéro du pixel)du mot où l'utilisateur clic, ainsi que le mot (morceau du mot) qui correspond. J'aimerais faire une fonction qui grâce à ce que j'ai récupéré me donne le mot entier (tout ce qui est souligné avant et après le morceau du mot). exemple : si je clic sur "J40-J47"(qui est souligné), avec mes 2 fonctions, je récupère "J40" et sa position 132. Je voudrais récupérer la totalité "J40-J47" grâce au critère souligné. en espérant être claire merci mimi
Je crois que je me suis un peu précipité pour la réponse qui ne répond pas
au problème posé. cependant on doit pouvoir adapter le code avec un usage
des propriétés SelUnderline, SelLength, SelStart et Seltext.
J'étais en train de vérifier cela lorsqu'une panne de courant inoportune a
éteint l'ordinateur.
"Patrice Henrio" <patrice.henrio.pasdepub@laposte.net> a écrit dans le
message de news:%23NWmsJd2DHA.1924@TK2MSFTNGP10.phx.gbl...
A partir de la position P, il faut parcourir avant et après jusqu'au
prochain séparateur. Tu obtiens J40 car "-" est considéré comme
séparateur.
Non testé.
Function MotCliqué(Texte as string, P as long) as string
'Texte est le texte du RTB en tant que texte et non en tant que texte
formaté, les codes de formatage n'y figurent pas
'P est la position cliqué dans le texte c'est le numéron du caractère
correspondant au clic
Dim I as long, Trouvé as boolean, Début as long,Fin as long, Longueur as
long
I=P
Do
If ( Mid$(Texte,I,1)=" ") then
Exit do
Else
I=I-1
End If
Loop Until I=0
Début=I+1
Fin=InStr(P,texte," ")
If Fin=0 then Fin=Len(Texte)
Longueur=Fin-Début+1
MotCliqué=Mid$(Texte,Début,Longueur)
End Function
"mimi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:079801c3d9be$5515ede0$a501280a@phx.gbl...
bonjour,
dans mon RTB, j'arrive à récupérer l'emplacement(le numéro
du pixel)du mot où l'utilisateur clic, ainsi que le mot
(morceau du mot) qui correspond. J'aimerais faire une
fonction qui grâce à ce que j'ai récupéré me donne le mot
entier (tout ce qui est souligné avant et après le morceau
du mot).
exemple : si je clic sur "J40-J47"(qui est souligné), avec
mes 2 fonctions, je récupère "J40" et sa position 132. Je
voudrais récupérer la totalité "J40-J47" grâce au critère
souligné.
en espérant être claire
merci
mimi
Je crois que je me suis un peu précipité pour la réponse qui ne répond pas au problème posé. cependant on doit pouvoir adapter le code avec un usage des propriétés SelUnderline, SelLength, SelStart et Seltext.
J'étais en train de vérifier cela lorsqu'une panne de courant inoportune a éteint l'ordinateur.
"Patrice Henrio" a écrit dans le message de news:%
A partir de la position P, il faut parcourir avant et après jusqu'au prochain séparateur. Tu obtiens J40 car "-" est considéré comme
séparateur.
Non testé.
Function MotCliqué(Texte as string, P as long) as string 'Texte est le texte du RTB en tant que texte et non en tant que texte formaté, les codes de formatage n'y figurent pas 'P est la position cliqué dans le texte c'est le numéron du caractère correspondant au clic Dim I as long, Trouvé as boolean, Début as long,Fin as long, Longueur as long I=P Do If ( Mid$(Texte,I,1)=" ") then Exit do Else I=I-1 End If Loop Until I=0 Début=I+1 Fin=InStr(P,texte," ") If Fin=0 then Fin=Len(Texte) Longueur=Fin-Début+1 MotCliqué=Mid$(Texte,Début,Longueur)
End Function
"mimi" a écrit dans le message de news:079801c3d9be$5515ede0$ bonjour, dans mon RTB, j'arrive à récupérer l'emplacement(le numéro du pixel)du mot où l'utilisateur clic, ainsi que le mot (morceau du mot) qui correspond. J'aimerais faire une fonction qui grâce à ce que j'ai récupéré me donne le mot entier (tout ce qui est souligné avant et après le morceau du mot). exemple : si je clic sur "J40-J47"(qui est souligné), avec mes 2 fonctions, je récupère "J40" et sa position 132. Je voudrais récupérer la totalité "J40-J47" grâce au critère souligné. en espérant être claire merci mimi
mimi
merci pour ta réponse ;-) En fait j'ai trouvé : je récupère le caractère cliqué puis je regarde avant et après le mot tant que le mot est souligné. Un peu lourd mais ça marche. mimi
-----Message d'origine----- Je crois que je me suis un peu précipité pour la réponse
qui ne répond pas
au problème posé. cependant on doit pouvoir adapter le
code avec un usage
des propriétés SelUnderline, SelLength, SelStart et
Seltext.
J'étais en train de vérifier cela lorsqu'une panne de
courant inoportune a
éteint l'ordinateur.
"Patrice Henrio" a
écrit dans le
message de news:%
A partir de la position P, il faut parcourir avant et
après jusqu'au
prochain séparateur. Tu obtiens J40 car "-" est
considéré comme
séparateur.
Non testé.
Function MotCliqué(Texte as string, P as long) as string 'Texte est le texte du RTB en tant que texte et non en
tant que texte
formaté, les codes de formatage n'y figurent pas 'P est la position cliqué dans le texte c'est le
numéron du caractère
correspondant au clic Dim I as long, Trouvé as boolean, Début as long,Fin as
long, Longueur as
long I=P Do If ( Mid$(Texte,I,1)=" ") then Exit do Else I=I-1 End If Loop Until I=0 Début=I+1 Fin=InStr(P,texte," ") If Fin=0 then Fin=Len(Texte) Longueur=Fin-Début+1 MotCliqué=Mid$(Texte,Début,Longueur)
End Function
"mimi" a écrit
dans le message de
news:079801c3d9be$5515ede0$ bonjour, dans mon RTB, j'arrive à récupérer l'emplacement(le
numéro
du pixel)du mot où l'utilisateur clic, ainsi que le mot (morceau du mot) qui correspond. J'aimerais faire une fonction qui grâce à ce que j'ai récupéré me donne le
mot
entier (tout ce qui est souligné avant et après le
morceau
du mot). exemple : si je clic sur "J40-J47"(qui est souligné),
avec
mes 2 fonctions, je récupère "J40" et sa position 132.
Je
voudrais récupérer la totalité "J40-J47" grâce au
critère
souligné. en espérant être claire merci mimi
.
merci pour ta réponse ;-)
En fait j'ai trouvé : je récupère le caractère cliqué puis
je regarde avant et après le mot tant que le mot est
souligné. Un peu lourd mais ça marche.
mimi
-----Message d'origine-----
Je crois que je me suis un peu précipité pour la réponse
qui ne répond pas
au problème posé. cependant on doit pouvoir adapter le
code avec un usage
des propriétés SelUnderline, SelLength, SelStart et
Seltext.
J'étais en train de vérifier cela lorsqu'une panne de
courant inoportune a
éteint l'ordinateur.
"Patrice Henrio" <patrice.henrio.pasdepub@laposte.net> a
écrit dans le
message de news:%23NWmsJd2DHA.1924@TK2MSFTNGP10.phx.gbl...
A partir de la position P, il faut parcourir avant et
après jusqu'au
prochain séparateur. Tu obtiens J40 car "-" est
considéré comme
séparateur.
Non testé.
Function MotCliqué(Texte as string, P as long) as string
'Texte est le texte du RTB en tant que texte et non en
tant que texte
formaté, les codes de formatage n'y figurent pas
'P est la position cliqué dans le texte c'est le
numéron du caractère
correspondant au clic
Dim I as long, Trouvé as boolean, Début as long,Fin as
long, Longueur as
long
I=P
Do
If ( Mid$(Texte,I,1)=" ") then
Exit do
Else
I=I-1
End If
Loop Until I=0
Début=I+1
Fin=InStr(P,texte," ")
If Fin=0 then Fin=Len(Texte)
Longueur=Fin-Début+1
MotCliqué=Mid$(Texte,Début,Longueur)
End Function
"mimi" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:079801c3d9be$5515ede0$a501280a@phx.gbl...
bonjour,
dans mon RTB, j'arrive à récupérer l'emplacement(le
numéro
du pixel)du mot où l'utilisateur clic, ainsi que le mot
(morceau du mot) qui correspond. J'aimerais faire une
fonction qui grâce à ce que j'ai récupéré me donne le
mot
entier (tout ce qui est souligné avant et après le
morceau
du mot).
exemple : si je clic sur "J40-J47"(qui est souligné),
avec
mes 2 fonctions, je récupère "J40" et sa position 132.
merci pour ta réponse ;-) En fait j'ai trouvé : je récupère le caractère cliqué puis je regarde avant et après le mot tant que le mot est souligné. Un peu lourd mais ça marche. mimi
-----Message d'origine----- Je crois que je me suis un peu précipité pour la réponse
qui ne répond pas
au problème posé. cependant on doit pouvoir adapter le
code avec un usage
des propriétés SelUnderline, SelLength, SelStart et
Seltext.
J'étais en train de vérifier cela lorsqu'une panne de
courant inoportune a
éteint l'ordinateur.
"Patrice Henrio" a
écrit dans le
message de news:%
A partir de la position P, il faut parcourir avant et
après jusqu'au
prochain séparateur. Tu obtiens J40 car "-" est
considéré comme
séparateur.
Non testé.
Function MotCliqué(Texte as string, P as long) as string 'Texte est le texte du RTB en tant que texte et non en
tant que texte
formaté, les codes de formatage n'y figurent pas 'P est la position cliqué dans le texte c'est le
numéron du caractère
correspondant au clic Dim I as long, Trouvé as boolean, Début as long,Fin as
long, Longueur as
long I=P Do If ( Mid$(Texte,I,1)=" ") then Exit do Else I=I-1 End If Loop Until I=0 Début=I+1 Fin=InStr(P,texte," ") If Fin=0 then Fin=Len(Texte) Longueur=Fin-Début+1 MotCliqué=Mid$(Texte,Début,Longueur)
End Function
"mimi" a écrit
dans le message de
news:079801c3d9be$5515ede0$ bonjour, dans mon RTB, j'arrive à récupérer l'emplacement(le
numéro
du pixel)du mot où l'utilisateur clic, ainsi que le mot (morceau du mot) qui correspond. J'aimerais faire une fonction qui grâce à ce que j'ai récupéré me donne le
mot
entier (tout ce qui est souligné avant et après le
morceau
du mot). exemple : si je clic sur "J40-J47"(qui est souligné),
avec
mes 2 fonctions, je récupère "J40" et sa position 132.
