seleccionar texto en una cadena cuantas veces aparezca

[omar_cb11]

Hola, espero me puedan ayudar, tengo un textbox donde introduzco un texto cualquiera y tengo otro textbox donde ya hay mucho texto, como puedo hacer para que el texto que escribo en el primer textbox me lo busque en el segundo textbox y me lo seleccione cuantas veces esté ese texto, es decir, si escribo hola en el 1ero y en el 2do se encuentra 5 veces hola, q aparezcan seleccionados esos 5 holas.

Gracias

[omar_cb11]

[Iodem Asakura]

Segun tengo entendido estos textbox no tienen tales posibilidades (la de tener diferentes partes del texto seleccionadas), pues su estructura es muy sencilla. Lamentablemente sus propiedades solo te permiten hacer una seleccion unica.

Lo que podrias hacer es que tu aplicacion busque la primera vez que aparesca y luego ir buscando las otras una a una, segun se desee. Si de esta manera te funciona y necesitas ayuda para hacerlo, avisa.

[Insomnia]

Hola

Es cierto, las propiedades del textbox son muy limitadas, puedes probar con el RichTextBox, que puedes añadirlo desde Proyecto / Componentes / Microsoft RichTextBox Control.

Un ejemplo para empezar a trabajar podría ser el siguiente:

Código:

Private Sub Command1_Click()

    Dim num As Integer
    Dim cont As Integer
    
    cont = 1
    
    num = Len(Text1.Text)
    While Len(RichTextBox1.Text) > cont
        If Mid(RichTextBox1.Text, cont, num) = Text1.Text Then
            RichTextBox1.SelStart = cont - 1
            RichTextBox1.SelLength = num
            RichTextBox1.SelBold = True
        End If
        
        cont = cont + 1
    Wend
    
End Sub

Para el ejemplo agrega a un proyecto en blanco un textbox, un richtextbox y un botón. En este ejemplo busco la palabra escrita en el text1 en el richtextbox1 y subrayo las coincidencias de esa palabra. Luego podrás adaptar el código a tus necesidades concretas.

--Saludos--

[omar_cb11]

muchas gracias, eso es lo que queria