http://dieseyer.de • all rights reserved • © 2011 v11.4
'*** v8.2 *** www.dieseyer.de ****************************
'
' Datei: html2txt.vbs
' Autor: dieseyer@gmx.de
' Auf: www.dieseyer.de
'
' http://www.source-center.de/forum/showthread.php?t=25764
'
' Speichert den Quelltext (ohne Bilder, ohne CSS) in einer
' Datei (die gestartet wird).
'
'*********************************************************
Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl
Dim WWWSite : WWWSite = "http://dieseyer.de/tip/all128/index.html"
Dim SpeichernIn : SpeichernIn = "C:\html2txt.htm"
SpeichernIn = "C:\html2txt.txt"
Call Html2Txt( WWWSite, SpeichernIn )
WScript.CreateObject ("WScript.Shell").Run SpeichernIn
WScript.Quit
'*** v8.2 *** www.dieseyer.de ****************************
Function Html2Txt( SiteHtml, ZielDatei )
'*********************************************************
' On Error Resume Next
Dim msieapp : Set msieapp = CreateObject("internetexplorer.application") 'InternetExplorer.Application erstellen
Dim Txt
Const READYSTATE_COMPLETE = 4
With msieapp
.Navigate (SiteHtml) 'Seite ansteurn
.Visible = False 'Nicht sichtbar machen
Do While .Busy
'warten bis der Ie geladen ist
WScript.Sleep 50
Loop
Do While .ReadyState <> READYSTATE_COMPLETE
'warten bis die site geladen ist
WScript.Sleep 50
Loop
Txt = .document.documentElement.outerHTML 'in die variable strHtml den Html src speichern
.Quit 'beenden
End With
WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile(ZielDatei, 2, True).write Txt
End Function ' Html2Txt( SiteHtml, ZielDatei )
http://dieseyer.de • all rights reserved • © 2011 v11.4