To clean up the files from HTML code

[Ugo]

Hi fwh's,

to clean up the files from HTML code,
exists some function?

[Rochinha]

Friend

I recomend to you ASP. Use the FSO object to manipulate files on server.

Here some examples with this functions:

Web Explorer
FileMan. The best.

[Ugo]

Friend

I recomend to you ASP. Use the FSO object to manipulate files on server.

Here some examples with this functions:

Web Explorer
FileMan. The best.

Rochinha,
thank you for your answer.

I am searching one simple function in order to remove the code from HTML files directly from xHarbour - Fivewin.

[James Bott]

Ugo,

Perhaps you can use IE and OLE.

http://msdn.microsoft.com/library/defau ... plorer.asp

There is a command to "selectall" and another for "removeformat." So, you could open IE and load the HTML file, then use these commands, then copy to the clipboard, then paste from the clipboard (using FWH) and save to a file.

James

[Enrico Maria Giordano]

Try this:

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL oExplorer := CREATEOBJECT( "InternetExplorer.Application" )

    oExplorer:Navigate2( "www.emagsoftware.it/gratis.htm" )

    WHILE oExplorer:ReadyState <> 4
        HB_IDLESLEEP( 1 )
    ENDDO

    ? oExplorer:Document:Body:InnerText

    oExplorer:Quit()

    INKEY( 0 )

    RETURN NIL

EMG

[Ugo]

Ugo,

Perhaps you can use IE and OLE.

http://msdn.microsoft.com/library/defau ... plorer.asp

There is a command to "selectall" and another for "removeformat." So, you could open IE and load the HTML file, then use these commands, then copy to the clipboard, then paste from the clipboard (using FWH) and save to a file.

Dear James,
this solution is interesting, tries it!
Thanks.

[Ugo]

Try this:

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL oExplorer := CREATEOBJECT( "InternetExplorer.Application" )

    oExplorer:Navigate2( "www.emagsoftware.it/gratis.htm" )

    WHILE oExplorer:ReadyState <> 4
        HB_IDLESLEEP( 1 )
    ENDDO

    ? oExplorer:Document:Body:InnerText

    oExplorer:Quit()

    INKEY( 0 )

    RETURN NIL

Enrico,
it is perfect!

Many thanks.

[Ugo]

Try this:

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL oExplorer := CREATEOBJECT( "InternetExplorer.Application" )

    oExplorer:Navigate2( "www.emagsoftware.it/gratis.htm" )

    WHILE oExplorer:ReadyState <> 4
        HB_IDLESLEEP( 1 )
    ENDDO

    ? oExplorer:Document:Body:InnerText

    oExplorer:Quit()

    INKEY( 0 )

    RETURN NIL

EMG

Dear Enrico,
this function on Vista Business and IE7 return this error:
"Error InternetExplorer.Application/1722 Unknown error: READYSTATE"
i do not know on ther O.S.
can you confirm and help me to fix?

[Enrico Maria Giordano]

A bug on Vista?

EMG

[Otto]

Have you tried to run the program as Administrator?

[NK]

Hi fwh's,

to clean up the files from HTML code,
exists some function?

look at this tool:

http://www.baccan.it/opensource/html2txt201.zip

Regards, Norbert

[Ugo]

A bug on Vista?

or IE7 Bug?

[Ugo]

Have you tried to run the program as Administrator?

Otto,
Yes, i'm administrator of my computer

[Ugo]

look at this tool:

http://www.baccan.it/opensource/html2txt201.zip

Regards, Norbert

Norbert,
thanks but the problem now is to receive the html page!

[Enrico Maria Giordano]

A bug on Vista?

or IE7 Bug?

Doesn't seem so. I'm also using IE7 (Windows XP) and not having that problem.

EMG