Buscar texto desconocido en una variable

[D.Fernandez]

Hola amigos, estoy molestando nuevamente.

Tengo una variable cPaginaWeb, donde está en formato texto, todo el contenido de una página web.
Busco y encuentro un ctextoabuscar := ""moneda">D¢lar</p> </div> </td> <td>&nbsp;&nbsp;</td> <td> <div class="linea"> <p class="valor">"
Ahora necesito extraer los caracteres siguientes a ese cTextoaBuscar, que en realidad es la cotización del Dólar.

Muchas gracias.
Saludos
Ruben Dario Fernandez

[AngelSalom]

Tengo una variable cPaginaWeb, donde está en formato texto, todo el contenido de una página web.
Busco y encuentro un ctextoabuscar := ""moneda">D¢lar</p> </div> </td> <td>&nbsp;&nbsp;</td> <td> <div class="linea"> <p class="valor">"
Ahora necesito extraer los caracteres siguientes a ese cTextoaBuscar, que en realidad es la cotización del Dólar.

Code: Select all  Expand view

cValorDolar:=Substr(cPaginaweb, At ( cTextoaBuscar, cPaginaweb )+Len(cTextoaBuscar)+1, nAnchoValorDolar))
 

No lo he probado pero debería funcionar. Básicamente localizas la posición del cTextoaBuscar dentro de la cadena y empiezas a coger caracteres desde donde acaba cTextoaBuscar en cPAginaWeb.

[D.Fernandez]

Angel muchas gracias.

Lo solucioné de la siguiente manera.

Code: Select all  Expand view

FUNCTION BROUCOTIZA()
LOCAL  cTipodecambio:= " "  ,cCotiaBuscar:= "",ct4, ctx := "D.lar\s*<.+?(\d+,\d+).+?(\d+,\d+)"  
                                                         
cTipodecambio := LEERCOTIZACION()

ct4 := HB_RegExAtx( ctx, cTipodecambio,.F.,.T.  )

cCotiCompra := SubStr( xTrim( ct4[2][1]),1,6)    /// me da la compra
cCotiVenta := SubStr( xTrim( ct4[3][1]),1,6)     /// me da la venta


RETURN(.T.)
//---------------------------------------//
FUNCTION LEERCOTIZACION()
LOCAL curl:="https://www.portal.brou.com.uy/cotizaciones/"
LOCAL oHttp:= CreateObject("winhttp.winhttprequest.5.1")

oHttp:SetTimeouts(30000, 30000, 30000, 30000 )
oHttp:Open("GET", cUrl, .f. )
oHttp:Send()
cTexToHTML:= oHttp:ResponseText()

RETURN(cTexToHTML)

   

Gracias Saludos
Ruben Dario Fernandez

[Carlos Mora]

¡Expresiones regulares!