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, 10486 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
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 ...

CMS
gelöst Wordpress Admin-URL ändern (13)

Frage von MegaGiga zum Thema CMS ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Windows Server
Kennwort vergessen bei Hyper vserver 2012r (12)

Frage von jensgebken zum Thema Windows Server ...

Linux Desktop
Bildschirmauflösung unter Linux festlegen (12)

Frage von itebob zum Thema Linux Desktop ...

Windows Userverwaltung
gelöst Administrator hat alle Rechte verloren (10)

Frage von mrdead zum Thema Windows Userverwaltung ...