Extraer Una Palabra De Un Texto.


Objetivo: Extraer Una Palabra De Un Texto.
Tómese un control de texto, un textbox, o textArea o, en este caso un TextEdit.

Hágase doble_click sobre una palabra.

Imprímase qué palabra se ha elegido.

Lo he necesitado y lo he hecho... pero no me gusta un pijo el resultado.
¿Alguien lo tiene ya hecho o se le ocurre una manera elegante de hacerlo?

Se agradecerían ideas.

Saludos.

Perfil MP  
Objetivo: Re: Extraer Una Palabra De Un Texto.
Para no hacerlo muy arduo os pongo lo que yo he hecho...
Public Sub texto_DblClick()

Dim letra, palabra As String
Dim c, n, i As Integer
Dim apalabras As String[]

c = texto.Pos
apalabras = Split(texto.Text, " ,.:;")
For n = 0 To apalabras.count - 1
i += String.Len(apalabras[n]) + 1
If i > c Then
palabra = apalabras[n]
Break
Endif
Next

Print palabra

End

Pero no me gusta. gambas por defecto selecciona la palabra sobre la que hagas doble click. Lo que pasa es que no sé cómo interceptar esa selección en el evento DblClick, que sería lo elegante...
Venga, que estáis aburridos. Romperos el coco un poco.

última edición por shordi el Domingo, 17 Agosto 2014, 17:50; editado 1 vez
Perfil MP  
Objetivo: Re: Extraer Una Palabra De Un Texto.
...... lipsrsealed


Public Sub TextEdit1_MouseUp()

Print TextEdit1.Selection.Text

End

Perfil MP  
Objetivo: Re: Extraer Una Palabra De Un Texto.
Pues era lo que iba a decir, pero Vuott lo dijo antes.

Ey Vuott, te me adelantaste.

Estaba viendo también la propiedad Pos. Ahora os comento cuando lo acabe.
Uy, es que no sale bien la ayuda cuando hago F2 sobre el componente y tengo que usar la pagina wiki de Gambas.
Me sale, esta página no existe. Cosas del idioma, puede.

Saludos

Objetivo: Re: Extraer Una Palabra De Un Texto.
Ok, aquí os paso un ejemplo.

seleccionar_texto

Vale, las etiquetas inferiores no son muy descriptivas. Lo hice lo mas rápido posible y ya esta aquí la ...cena!.

Vale, si seleccionamos un texto. Vemos debajo de la etiqueta posición final, el texto seleccionado.
Ahora bien. Tengo dos eventos, TextArea1_MouseUp y TextAea2_MouseDown.

En MouseDown, se supone que se toma la posición inicial del texto y en MouseUp la ultima posición, con lo que "se supone"
que al final del evento MouseUp deberíamos "sin usar la propiedad Selection" saber que texto hemos seleccionado. ¿ Se puede ?.

"Ya voyyy...". Si es que no me dejan tranquilo. ( En realidad es mi tripa la que llama).

¿ Podréis conseguirlo ?. ¿ Podremos ?...lo veremos en el próximo mensaje!. La tensión aumenta!.

Saludos


SeleccionarTexto.tar.gz
Descripción:  
Descargar
Nombre del archivo: SeleccionarTexto.tar.gz
Tamaño: 5.91 KB
Descargado: 23 veces
SeleccionarTexto.tar.gz
Descripción:  
Descargar
Nombre del archivo: SeleccionarTexto.tar.gz
Tamaño: 5.91 KB
Descargado: 23 veces
SeleccionarTexto.tar.gz
Descripción:  
Descargar
Nombre del archivo: SeleccionarTexto.tar.gz
Tamaño: 5.91 KB
Descargado: 23 veces

Objetivo: Re: Extraer Una Palabra De Un Texto.
Cuestión:

¿ Como es que hay veces que la posición inicial es la máxima longitud del texto del TextArea ?.

Puede que no hagan falta las variables globales. Creo que se debe que conocerlas.
Por otro lado hay que reiniciarlas por ejemplo en el evento MouseUp.

Saludos

última edición por Shell el Domingo, 17 Agosto 2014, 20:43; editado 1 vez
Objetivo: Re: Extraer Una Palabra De Un Texto.
mmm.... no sé. MouseUp se dispara cada vez que levantas el botón del ratón, pero no veo cómo distinguir el click del doble clik del click-drag y soltar, etc.
En lo que estoy haciendo ya utilizo algunos de esos eventos y se me confunden las cosas.
Yo quiero hacerlo en el evento doble-click, que los otros ya los tengo pillaos.

Tendré que darle más vueltas.

Perfil MP  
Objetivo: Re: Extraer Una Palabra De Un Texto.
Probando lo de Vuott, quizá sea lo mejor. Se me dispara el evento en momentos que no quiero, pero no cuesta nada desechar los erróneos basándose en el texto seleccionado.

Un ejemplo más de la gran verdad del KISS... (Keep It Simple, Stupid!)

Saludos.

Perfil MP  
Objetivo: Re: Extraer Una Palabra De Un Texto.
Shell escribió: [Ver mensaje]
Pues era lo que iba a decir, pero Vuott lo dijo antes.

Ey Vuott, te me adelantaste.


Uhmmmm.... el Python, hipnotizandote, te dejó lento a reaccionar !

09_mowgli_kaa

última edición por vuott el Lunes, 18 Agosto 2014, 00:32; editado 1 vez
Perfil MP  
Objetivo: Re: Extraer Una Palabra De Un Texto.
Vuott:

Supongo que como estoy desentrenado, pues me ha faltado tiempo de respuesta.
Es que con Python ahora estoy igual. Épocas de mas trabajo, ya se sabe, menos tiempo para lo que gusta.

Saludos


Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.4417s (PHP: -80% SQL: 180%)
Consultas SQL: 50 - Debug off - GZIP Activado