Buscar en un textbox

[krev16]

Iniciado por erbuson

Hola, primero te digo donde está el problema para que intentes solucionarlo tu mismo, con la única intención de que aprendas, si tienes algun problema te lo resuelvo.

La función MID no te devuelve Desde - Hasta, sino que devuelve Desde - Cuantos o se un número de caracteres, por ejemplo si Desde = 5 y Hasta = 12, te devuelve 12 Caracteres empezando en la posición 5, cuando lo que pretendes no es esto.

Saludos

Te agradezco! Ahora conociendo el funcionamiento correcto ya pude solucionarlo

Iniciado por A.H.H

Hola no se si te sirve para tu proyecto usar la funcion replace

sirve para reemplazar un string por otro

ejemplo:



En el ejemplo busca en la variable CADENA Los simbolos [ y los simbolos ] y Los reemplaza por lo que hay entre "" que en este caso es nada.
y nos queda la frase que hay en la variable CADENA limpia de simbolos.

salu2

Gracias, pero ya lo he solucionado a mi modo :)

Dejo la solución:

Código:

Dim Comienza As Integer 'Indice en donde se encuentra "[[[["
Dim Almacen As String 'Variable en donde se almacena la oracion
Dim Finaliza As Integer 'Indice en donde se encuentra "]"

Comienza = 1

    Comienza = InStr(Comienza, Text1, "[[[[")
    Finaliza = InStr(Comienza, Text1, "]")
    Almacen = Mid(Text1, Comienza, Finaliza - Comienza)
    MsgBox (Almacen)

Saludos!!