Top-Themen

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, 10537 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
Wert aus Registry in Textdatei speichern - Batch oder VBS
gelöst Frage von ResolvBatch & Shell2 Kommentare

Hallo in die Runde, ich habe es leider nicht so mit Batch und Co. Ich würde gerne die letzen ...

VB for Applications
VBS-Entfernen von Zeilen in einer Textdatei
Frage von Calim3roVB for Applications5 Kommentare

Hallo zusammen Ich möchte aus einer Textdatei Zeilen entfernen. Ich habe drei Dateien, in Datei "A" stehen Wörter, in ...

Java
Textdatei in Array speichern (zeilenweise)
gelöst Frage von BruchsalJava1 Kommentar

Hallo, ich möchte aus einer Textdatei zeilenweise den Inhlat in ein String Array speicher. Ist das nur mit einem ...

Batch & Shell
VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen)
gelöst Frage von Luuke257Batch & Shell5 Kommentare

Hallo zusammen! Vorweg, ich bin absoluter neuling im Scripten, ich habe mir das alles nur so zusammengebastelt und versuche ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office9 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 1 TagSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner15 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...