Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Mit freundlichen Grüßen,
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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Java
gelöst Textdatei in Array speichern (zeilenweise) (1)

Frage von Bruchsal zum Thema Java ...

VB for Applications
gelöst Excel mit VBS bearbeiten und Speichern Unter (8)

Frage von Yannosch zum Thema VB for Applications ...

Batch & Shell
gelöst VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen) (5)

Frage von Luuke257 zum Thema Batch & Shell ...

Visual Studio
gelöst VBS schreibt bestimmte Variable nicht in Textdatei (11)

Frage von Saschaaaaa zum Thema Visual Studio ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (22)

Frage von patz223 zum Thema Windows Userverwaltung ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (19)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...