Buscar texto desconocido en una variable

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Buscar texto desconocido en una variable
Posted: Sat Jul 08, 2017 01:40 AM

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>  </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

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Buscar texto desconocido en una variable
Posted: Sat Jul 08, 2017 04:54 PM

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>  </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 (fw): Select all Collapse

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.

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: Buscar texto desconocido en una variable
Posted: Sun Jul 09, 2017 09:56 PM

Angel muchas gracias.

Lo solucioné de la siguiente manera.

Code (fw): Select all Collapse

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

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

Carlos Mora

Posts: 989

Joined: Thu Nov 24, 2005 03:01 PM

Re: Buscar texto desconocido en una variable
Posted: Mon Jul 10, 2017 04:31 PM

¡Expresiones regulares!

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"

FiveTech Support Forums

Continue the discussion