Guardar HTM como TXT (por programacion)

[marcelobuenosaires]

Muchachos, que funcion de la api debo utilizar
para grabar una pagina .Htm al formato .Txt

NO quiero traer el cuadro de Dialogo sino
grabar por programacion una pagina HTM
al formato TXT

Marcelo
Buenos Aires
ARgentina

[Esparta Palma]

Has intentado con automatización de Internet Explorer?

Post by marcelobuenosaires
Muchachos, que funcion de la api debo utilizar
para grabar una pagina .Htm al formato .Txt
NO quiero traer el cuadro de Dialogo sino
grabar por programacion una pagina HTM
al formato TXT

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
email:mexicoSINSPAM[Arroba]portalfox.com

----------------------------------------------
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa
-----------------------------------------------

[Emiliano]

Por ejemplo

oie = createobject('internetexplorer.application')
oie.visible = .t.
oie.navigate('www.portalfox.com') && espera que cargue.
a = oie.document.documentelement.innertext
create table 'pp' ( dato m )
insert into 'pp' values ( a )
brow

Saludos.
Emiliano

Post by marcelobuenosaires
Muchachos, que funcion de la api debo utilizar
para grabar una pagina .Htm al formato .Txt
NO quiero traer el cuadro de Dialogo sino
grabar por programacion una pagina HTM
al formato TXT
Marcelo
Buenos Aires
ARgentina

[marcelobuenosaires]

El codigo me manda ERROR en a = oie.document.documentelement.innertext

Marcelo

Post by Emiliano
Por ejemplo
oie = createobject('internetexplorer.application')
oie.visible = .t.
oie.navigate('www.portalfox.com') && espera que cargue.
a = oie.document.documentelement.innertext
create table 'pp' ( dato m )
insert into 'pp' values ( a )
brow
Saludos.
Emiliano

Post by marcelobuenosaires
Muchachos, que funcion de la api debo utilizar
para grabar una pagina .Htm al formato .Txt
NO quiero traer el cuadro de Dialogo sino
grabar por programacion una pagina HTM
al formato TXT
Marcelo
Buenos Aires
ARgentina

[Emiliano]

Pues deberia funcionarte, que version de Internet Explorer usas ??
Esperaste a que termine de cargar la pagina ?, luego del
oie.navigate('www.portalfox.com') ????????

Saludos, Emiliano.

[Esparta Palma]

Lo que te comenta el compañero Emiliano es cierto tu código debe esperar a
que termine de cargar la página... Le he hecho algunos cambios al código
para que tenga contemplado ese tema:

lcURL = "http://www.portalfox.com"
loIE = CreateObject('internetexplorer.application')
loIE.Visible = .F. && No necesita que esté visible...
loIE.Navigate(lcURL)
**** Obtener la hora actual...
ltActualTime = Datetime()
**** Tiempo máximo de espera, 10 segundos, puede cambiarse...
lnMaxTime = 10
ltTime = DATETIME()
DO WHILE loIE.Busy OR (DATETIME()-ltTime) < lnMaxTime
WAIT WINDOW "Cargando la página en "+lcURL NOWAIT
**** Ciclo de espera, hasta que termine de cargar o llegue
**** al tiempo máximo...
ENDDO
WAIT WINDOW "Guardando el documento como TXT" NOWAIT
IF (DATETIME()-ltTime)> lnMaxTime
MESSAGEBOX("Ha superado el tiempo máximo de espera....")
ELSE
lcTextFile =
STRTOFILE(loie.Document.Documentelement.innertext,"temp.txt")
MODIFY FILE "temp.txt"
ENDIF

loIE.Quit()
RELEASE loIE





Espero te sirva.

Post by marcelobuenosaires
El codigo me manda ERROR en a = oie.document.documentelement.innertext
Marcelo
Por ejemplo
oie = createobject('internetexplorer.application')
oie.visible = .t.
oie.navigate('www.portalfox.com') && espera que cargue.
a = oie.document.documentelement.innertext
create table 'pp' ( dato m )
insert into 'pp' values ( a )
brow
Saludos.
Emiliano

Post by marcelobuenosaires
Muchachos, que funcion de la api debo utilizar
para grabar una pagina .Htm al formato .Txt
NO quiero traer el cuadro de Dialogo sino
grabar por programacion una pagina HTM
al formato TXT
Marcelo
Buenos Aires
ARgentina

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
email:mexicoSINSPAM[Arroba]portalfox.com


-----------------------------------------------
PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
-----------------------------------------------

[marcelobuenosaires]

Gracias muchachos !
Era exactamente lo que necesitaba.

Marcelo
Buenos Aires
ARgentina

Post by Esparta Palma
Lo que te comenta el compañero Emiliano es cierto tu código debe esperar a
que termine de cargar la página... Le he hecho algunos cambios al código
lcURL = "http://www.portalfox.com"
loIE = CreateObject('internetexplorer.application')
loIE.Visible = .F. && No necesita que esté visible...
loIE.Navigate(lcURL)
**** Obtener la hora actual...
ltActualTime = Datetime()
**** Tiempo máximo de espera, 10 segundos, puede cambiarse...
lnMaxTime = 10
ltTime = DATETIME()
DO WHILE loIE.Busy OR (DATETIME()-ltTime) < lnMaxTime
WAIT WINDOW "Cargando la página en "+lcURL NOWAIT
**** Ciclo de espera, hasta que termine de cargar o llegue
**** al tiempo máximo...
ENDDO
WAIT WINDOW "Guardando el documento como TXT" NOWAIT
IF (DATETIME()-ltTime)> lnMaxTime
MESSAGEBOX("Ha superado el tiempo máximo de espera....")
ELSE
lcTextFile =
STRTOFILE(loie.Document.Documentelement.innertext,"temp.txt")
MODIFY FILE "temp.txt"
ENDIF
loIE.Quit()
RELEASE loIE
Espero te sirva.

Post by marcelobuenosaires
El codigo me manda ERROR en a = oie.document.documentelement.innertext
Marcelo
Por ejemplo
oie = createobject('internetexplorer.application')
oie.visible = .t.
oie.navigate('www.portalfox.com') && espera que cargue.
a = oie.document.documentelement.innertext
create table 'pp' ( dato m )
insert into 'pp' values ( a )
brow
Saludos.
Emiliano

Post by marcelobuenosaires
Muchachos, que funcion de la api debo utilizar
para grabar una pagina .Htm al formato .Txt
NO quiero traer el cuadro de Dialogo sino
grabar por programacion una pagina HTM
al formato TXT
Marcelo
Buenos Aires
ARgentina

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
email:mexicoSINSPAM[Arroba]portalfox.com
-----------------------------------------------
PortalFox :: Nada corre como un zorro
http://www.portalfox.com
PortalFox - NNTP Forum Gateway
-----------------------------------------------

[Jorge Pérez]

Hola Marcelo,

El Plugin HTML es una extención para AFP3 - Active FoxPro Pages - y
cualquier lenguaje de programación que admita COM .

Puedes obtener un instalador aquí:
http://www.vfpnetwork.com/afpsamples/htmlplugin.htm
Selecciona la versión ejecutable.

Una vez instalado el Plugin, regístralo utilizando regsvr32. El siguiente es
el código para quitar todos los tags de HTML de cualquier documento:

m.cFile = GetFile( "HTM" )

If Empty( m.cFile )
Return
EndIf

HTML = CreateObject( "AFPPlugin.HTML" )

m.cString = StrTran( HTML.StripTags( FileToStr( m.cFile )), "&nbsp;", "" )

StrToFile( m.cString, "c:\temporal\SinHtml.Txt" )
Modify File ( "c:\temporal\sinhtml.txt" ) NoEdit

Html = ""

Disfrútalo, cordial saludo,

Jorge Pérez
http://www.vfpnetwork.com

Post by marcelobuenosaires
Muchachos, que funcion de la api debo utilizar
para grabar una pagina .Htm al formato .Txt
NO quiero traer el cuadro de Dialogo sino
grabar por programacion una pagina HTM
al formato TXT
Marcelo
Buenos Aires
ARgentina