Autor Tema: Resaltar Palabras Clave (Leído 2213 veces)

Daggoth · « **en:** Martes 27 de Febrero de 2007, 21:24 »

Hola a todos!!!!!

Mi nueva duda es la siguiente:

Como se podria hacer que al escribir en un control RichTextBox se vayan coloreando las palabras clave que yo ya tenga indicadas en alguna parte.
He pensado que tal vez se podria hacer guardando las palabras en un archivo de texto o algo por el estilo y cargarlas en memoria a la vez que el programa y que cada vez que se modifique el RichTextBox se busque si hay alguna palabra escrita que coincida con las cargadas en memoria y de ser asi, que la escriba en algun color, pero no se como se podria hacer ni si esa es la mejor opcion.

Espero vuestros comentarios como agua de mayo.

Saludos y gracias por adelantado!!!!!

cpmario

Una de las maneras puede ser esta...
Cargar el listado de palabras clave en un Array de texto.
Al ser modificado el texto del RichTextBox, colocar en otro array de texto lo obtenido con la función Split. Comparar ambos array de texto, si hay coincidencia entonces proceder a localizar la palabra en el RichTextBox con Find (Método) y marcarla con color con la Propiedad SelColor del RichTextBox.

Daggoth

Gracias qiyo!!!!!

Entiendo lo que me dices y se a que te refieres pero si te soy sincero no soy capaz de ponerlo en practica. No te pido que me lo hagas tu, quiero hacerlo yo pero no soy capaz, es decir, no se como hacerlo aun entendiendo el metodo que me pones.

Los arrrays, aun no los domino mucho y tal vez por eso no soy capaz de hacerlo, ademas, comparar dos arrays

, nu se como hacerlo.
Se que suena a tonto, pero no se como hacerlo.

Saludos iyo!!!!!!

cpmario

Si tienes un problema grande, la mejor manera es manejarlo en partes. Y si tienes poco conocimiento, estudia en los tutoriales de vb y pregunta lo que no entiendas.

Para el problema que planteas tomaré la primera parte para darte una idea de como resolverla.

Citar

Cargar el listado de palabras clave en un Array de texto.

Suponiendo que el listado de palabras clave es pequeño (si es grande hay mejores métodos que este)

Abre un proyecto en VB6 con una forma, un commandbutton y un listbox y coloca este código dentro de la forma.

Código: Text

Option Explicit
 
Dim mstrArray(10) As String
 
Private Sub Command1_Click()
    Unload Me
End Sub
 
Private Sub Form_Load()
    Call CargarArray
    ' Lo siguiente no es necesario pero sirve para demostrar 
    ' lo que puede hacerse con el array una vez cargado
    Call CargarCombo
End Sub
 
Sub CargarArray()
    mstrArray(1) = &#34;ROJO&#34;
    mstrArray(2) = &#34;VERDE&#34;
    mstrArray(3) = &#34;AZUL&#34;
    mstrArray(4) = &#34;AMARILLO&#34;
    mstrArray(5) = &#34;MAGENTA&#34;
    mstrArray(6) = &#34;NEGRO&#34;
    mstrArray(7) = &#34;NARANJA&#34;
    mstrArray(8) = &#34;CELESTE&#34;
    mstrArray(9) = &#34;CAFE&#34;
    mstrArray(10) = &#34;VIOLETA&#34;
End Sub
 
Sub CargarCombo()
    Dim lngCnt As Long
    For lngCnt = 1 To 10
        List1.AddItem mstrArray(lngCnt)
    Next lngCnt
End Sub
 
 

Esto te dará una idea de como manejar los array de texto.

SoloCodigo

Autor Tema: Resaltar Palabras Clave (Leído 2213 veces)

Daggoth

Resaltar Palabras Clave

cpmario

Re: Resaltar Palabras Clave

Daggoth

Re: Resaltar Palabras Clave

cpmario

Re: Resaltar Palabras Clave