Necesito obtener la razon social o nombre de un contribuyente desde una pagina web (html).
Le he dado vueltas pero no consigo como obtenerlo, cuando veo el codigo fuente html de la pagina el nombre esta dentro de <title>.....</title> .
La pagina es la siguiente :
- Code: Select all Expand view
http://www.elrif.com/index.php?rif=J-08516667-0
Aqui el codigo que estoy usando :
- Code: Select all Expand view
#include "FiveWin.ch"
Function Main()
Local oIe, oDoc, oForm, oObj, oBody, cName
Local cRif:= "J-08516667-0"+Space(10)
Local cHtml2
if !IsInternet()
MsgStop("No Hay Internet")
Return Nil
endif
if !MsgGet("Consulta de Rif", "Rif :", @cRif)
Return Nil
endif
TRY
oIE:= CreateObject("InternetExplorer.Application")
CATCH
MsgStop('Error al crear el componente InternetExplorer.Application')
RETURN NIL
END
oIE:Navigate2( "http://www.elrif.com/index.php?rif="+cRif )
oIe:Visible:= .T.
do While oIE:busy
// SysRefresh()
enddo
oDoc:= oIE:Document
oForm:= oDoc:Forms
oBody:= oDoc:Body
cName:= oDoc:getElementsByTagName("Table")
// oIE:Stop()
// oIE:Quit()
// ? cName *** Aqui necesito que me devuelva el nombre de la empresa "POLLO SABROSO C.A. (POLLO SABROSO CA)"
? ValType(cName)
Return NIL
Gracias,
