Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBS Quelltext von URL in Textdatei speichern

Frage Entwicklung VB for Applications

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

18.10.2008, aktualisiert 19.10.2008, 10450 Aufrufe, 7 Kommentare

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
Mitglied: Cemron
18.10.2008 um 19:11 Uhr
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
Bitte warten ..
Mitglied: waldgnarf
18.10.2008 um 20:00 Uhr
Ja aber das funktioniert nicht.

01.
Private Sub cmdLoad_Click() 
02.
  URL_Load "http://www.google.de" 
03.
End Sub 
04.
 
05.
Private Sub cmdSave_Click() 
06.
  SaveQuelltext App.Path & "C:\Quelltext.txt" 
07.
End Sub
Gruß waldgnarf
Bitte warten ..
Mitglied: Biber
18.10.2008 um 22:40 Uhr
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
Bitte warten ..
Mitglied: waldgnarf
18.10.2008 um 23:21 Uhr
Ok, aber es passiert auch mit "\Quelltext.txt" oder ohne App.Path nichts.
Bitte warten ..
Mitglied: dieseyer
19.10.2008 um 08:52 Uhr
Poste mal deinen gesamten Code.

Außerdem: Die von dir genannten Beispile sind VB-Code - kein VBS-Code.
Bitte warten ..
Mitglied: waldgnarf
19.10.2008 um 10:14 Uhr
Moin, ich hab was funktionierendes gefunden.

01.
Option Explicit 
02.
Dim FSO, WSHELL, ENVPRO, DESKTOP, LINK, DATEILINKS, XMLHTT, STRADO 
03.
Set FSO=CreateObject("Scripting.FileSystemObject") 
04.
 
05.
Set DATEILINKS=FSO.GetFile("LINK.txt") 
06.
LINK=DATEILINKS.OpenAsTextStream(1).ReadLine 
07.
 
08.
Set XMLHTT=CreateObject("MSXML2.XMLHTTP.3.0") 
09.
XMLHTT.Open "GET", LINK, False 
10.
XMLHTT.Send 
11.
If XMLHTT.Status = 200 Then 
12.
 Set STRADO=CreateObject("ADODB.Stream") 
13.
 STRADO.Open 
14.
 STRADO.Type = 1 
15.
 STRADO.Write XMLHTT.responseBody 
16.
 STRADO.SaveToFile "QELLTEXT.txt" 
17.
 STRADO.Close 
18.
End If
Kann man auch die Frames alle speichern?

Gruß waldgnarf
Bitte warten ..
Ähnliche Inhalte
Java
gelöst Textdatei in Array speichern (zeilenweise) (1)

Frage von Bruchsal zum Thema Java ...

Batch & Shell
Jede Zeile einer Textdatei in eigene Variable speichern (5)

Frage von tomaschku zum Thema Batch & Shell ...

JavaScript
gelöst Per URL ein Element ausblenden (1)

Frage von Peter32 zum Thema JavaScript ...

PHP
PHP: URL kürzen (15)

Frage von michi-ffm zum Thema PHP ...

Neue Wissensbeiträge
Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(14)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Datenschutz

Gefährdeter Datenschutz: Firefox löscht lokale Datenbanken nicht

(1)

Information von BassFishFox zum Thema Datenschutz ...

Heiß diskutierte Inhalte
Windows Systemdateien
Windows bootet nicht mehr Fehlermeldung 0xc0000098 (19)

Frage von franzgoerlich zum Thema Windows Systemdateien ...

Exchange Server
gelöst Proxy Server Settings Cloud + EWS (17)

Frage von SomebodyToLove zum Thema Exchange Server ...

Windows Server
PDF Editor für den Einsatz auf Terminal Servern (16)

Frage von kwame501 zum Thema Windows Server ...

Windows Installation
Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen (14)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...