FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour 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>&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

Dario Fernandez

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

Maldonado - Uruguay
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>&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 (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
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
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
鈥淚f you think education is expensive, try ignorance"

Continue the discussion