7
VBS Quelltext von URL in Textdatei speichern
Hallo, gibt es eine Möglichkeit wenn man nur eine URL hat, mit VBScript den Seitenquelltext in eine Textdatei zu speichern?
Ich habe ein paar free source Seiten gefunden, aber ich versteh die Hälfte davon nicht. Weiss ja nichteinmal wo ich die URL eintragen muss oder den Pfad für die Textdatei.
http://www.vbarchiv.net/tipps/details.php?id=268
http://www.ostrosoft.com/vb/projects/get_html_source.asp
Gruß waldgnarf
http://www.vbarchiv.net/tipps/details.php?id=268
http://www.ostrosoft.com/vb/projects/get_html_source.asp
Gruß waldgnarf
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 99630
Url: https://administrator.de/contentid/99630
Printed on: April 19, 2024 at 22:04 o'clock
7 Comments
Latest comment
Heyho!
Zum ersten Link:
Im letzten Code-Fenster stehen so zwei Befehle. Einer heißt:
URL_Load "Irgendeine URL"
der Andere:
SaveQuelltext App.Path & "\URL_Quelltext.txt"
Sind das die Zeilen, nach denen du gesucht hast?
Beim zweiten Link wird das ganze ja anscheinend in einem Fenster realisiert, in dem, in einem Bereich eine URL angegeben wird, und in einem anderen der Text direkt ausgegeben wird, also ohne Speicherung in einer Datei.
MfG,
Christian
Zum ersten Link:
Im letzten Code-Fenster stehen so zwei Befehle. Einer heißt:
URL_Load "Irgendeine URL"
der Andere:
SaveQuelltext App.Path & "\URL_Quelltext.txt"
Sind das die Zeilen, nach denen du gesucht hast?
Beim zweiten Link wird das ganze ja anscheinend in einem Fenster realisiert, in dem, in einem Bereich eine URL angegeben wird, und in einem anderen der Text direkt ausgegeben wird, also ohne Speicherung in einer Datei.
MfG,
Christian
Ja aber das funktioniert nicht.
Gruß waldgnarf
Private Sub cmdLoad_Click()
URL_Load "http://www.google.de"
End Sub
Private Sub cmdSave_Click()
SaveQuelltext App.Path & "C:\Quelltext.txt"
End SubGruß waldgnarf
Moin waldgnarf,
könnte unter anderem daran liegen, dass App.Path das aktuelle Verzeichnis Deines Vbs-Schnipsel ist und Du unterhalb dieses Verzeichnisses eine Datei namens C:\Quelltext.txt anlegen möchtest.
So etwas stellt sicherlich nicht nur Windows, sondern auch richtige Betriebssystem vor Probleme.
Grüße
Biber
könnte unter anderem daran liegen, dass App.Path das aktuelle Verzeichnis Deines Vbs-Schnipsel ist und Du unterhalb dieses Verzeichnisses eine Datei namens C:\Quelltext.txt anlegen möchtest.
So etwas stellt sicherlich nicht nur Windows, sondern auch richtige Betriebssystem vor Probleme.
Grüße
Biber
Ok, aber es passiert auch mit "\Quelltext.txt" oder ohne App.Path nichts.
Poste mal deinen gesamten Code.
Außerdem: Die von dir genannten Beispile sind VB-Code - kein VBS-Code.
Außerdem: Die von dir genannten Beispile sind VB-Code - kein VBS-Code.
Moin, ich hab was funktionierendes gefunden.
Kann man auch die Frames alle speichern?
Gruß waldgnarf
Option Explicit
Dim FSO, WSHELL, ENVPRO, DESKTOP, LINK, DATEILINKS, XMLHTT, STRADO
Set FSO=CreateObject("Scripting.FileSystemObject")
Set DATEILINKS=FSO.GetFile("LINK.txt")
LINK=DATEILINKS.OpenAsTextStream(1).ReadLine
Set XMLHTT=CreateObject("MSXML2.XMLHTTP.3.0")
XMLHTT.Open "GET", LINK, False
XMLHTT.Send
If XMLHTT.Status = 200 Then
Set STRADO=CreateObject("ADODB.Stream")
STRADO.Open
STRADO.Type = 1
STRADO.Write XMLHTT.responseBody
STRADO.SaveToFile "QELLTEXT.txt"
STRADO.Close
End IfKann man auch die Frames alle speichern?
Gruß waldgnarf
