[AYUDA] Usar INSTR 2 veces

[Rudy21]

jeje pues no c como explicarlo jeje

pero ahi va

uso esta funcion para que me busque una cadena de texto:

Código [Seleccionar] Expandir

Datos = Text2.Text
mensaje = Mid(Datos, InStr(Datos, "/jm/calif?act=califnow&subAct=calif&as_choose"), 69)

entonces mensaje = la primera vez que encontró eso mas 69 letras mas correcto??

como hago para que haga exactamente lo mismo pero para la 2da vez que encuentre

/jm/calif?act=califnow&subAct=calif&as_choose

eske el texto de text2 dice:

Código [Seleccionar] Expandir


href ="/jm/calif?act=califnow&subAct=calif&as_choose=2323232323">blabla</a>
<a href="/jm/calif?act=califnow&subAct=calif&as_choose=94343443">2323</a>

osea que viene una varibale y yo necesito que me de lo de la numero 2 y no la numero 1

espero haberme explicado

desde ya

graias

[cassiani]

No se con que fin, pero podrias hacer algo como esto:

Código (vb) [Seleccionar] Expandir


    sCadenaBuscar = "/jm/calif?act=califnow&subAct=calif&as_choose"
    sCadena = Text1.Text
    Posicion = InStr(sCadena, sCadenaBuscar)
    sMensaje = Mid(sCadena, InStr(Posicion + 69, sCadena, sCadenaBuscar),  Len(sCadenaBuscar))
    MsgBox sMensaje


Pero como no entendi bien lo que quieres...

[Rudy21]

lo que quiero es un "BUSCAR SIGUIENTE""

encontro el primero

pero ahora hacer que busque el SIGUIENTE TEXTO QUE CONCIDA CON MI BUSQUEDA

como la telca F3 cuando usas buscar en el wordad o en el bloc de notas o asi

es un "BUSCAR SIGUIENTE" la siguiente coincidencia apartir del punto actual jejeje

espero haberme explicado

salu2

[cassiani]

En ese caso adapta lo que te deje a tu poyecto, le haces algunas modificaciones y listo!!

[Rudy21]

jajaja

pues lo que no c es como hacer la modificacion

osea

darle la posicion del 2do y no del 1ro

si me hechas un cable en eso x fa

salu2

[cassiani]

No, pone de tu parte hermano... lo tenes todo echo, usa un for, convierte eso en función.