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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 99630

Url: https://administrator.de/contentid/99630

Ausgedruckt am: 22.11.2024 um 20:11 Uhr

7 Kommentare

Neuester Kommentar

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

Ja aber das funktioniert nicht.

Private Sub cmdLoad_Click()
  URL_Load "http://www.google.de"  
End Sub

Private Sub cmdSave_Click()
  SaveQuelltext App.Path & "C:\Quelltext.txt"  
End Sub

Gruß 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

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.

Moin, ich hab was funktionierendes gefunden.

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 If