Como obtengo un dato de una pagina web (html) (SOLUCIONADO)

Posts: 400

Joined: Tue Oct 16, 2007 05:51 PM

Como obtengo un dato de una pagina web (html) (SOLUCIONADO)
Posted: Wed Feb 04, 2015 04:30 PM

Saludos,

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

http://www.elrif.com/index.php?rif=J-08516667-0

Aqui el codigo que estoy usando :

Code (fw): Select all Collapse

#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,

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com

karinha

Posts: 8515