Textdatei aus dem Web auslesen
Ich möchte mittels VBS eine Textdatei von einem Webserver downloaden bzw. einlesen.
Wie ist das möglich?
Einlesen klappt nicht. Lokal gehts aber.
schnipp...
Set objFile = objFSO.OpenTextFile("http://www.domain.com/file.txt", 1)
Do
objFile.SkipLine
i = i + 1
Loop Until i = strZeile
strLine = objFile.ReadLine
schnapp
Aber funzen tuts nicht.
Wie ist das möglich?
Einlesen klappt nicht. Lokal gehts aber.
schnipp...
Set objFile = objFSO.OpenTextFile("http://www.domain.com/file.txt", 1)
Do
objFile.SkipLine
i = i + 1
Loop Until i = strZeile
strLine = objFile.ReadLine
schnapp
Aber funzen tuts nicht.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 109843
Url: https://administrator.de/forum/textdatei-aus-dem-web-auslesen-109843.html
Ausgedruckt am: 23.12.2024 um 06:12 Uhr
4 Kommentare
Neuester Kommentar
Hallo,
klar, dass es nicht funktioniert ... das andere Wort ist ein Unwort :-P
Wofür steht FSO denn? Vermutlich für FileSystemObject.... so ganz genau kann ich es nicht sagen, da Du die Zeile mit
nicht genannt hast.
Und ich hoffe mal, dass das Internet nicht zu deinem Dateisystem gehört.
Lad Dir die Datei mit wget oder curl herunter und probiere es dann mal...
Gruß
Markus
klar, dass es nicht funktioniert ... das andere Wort ist ein Unwort :-P
Wofür steht FSO denn? Vermutlich für FileSystemObject.... so ganz genau kann ich es nicht sagen, da Du die Zeile mit
set objFSO = xyz
Und ich hoffe mal, dass das Internet nicht zu deinem Dateisystem gehört.
Lad Dir die Datei mit wget oder curl herunter und probiere es dann mal...
Gruß
Markus
Hallo deeboo!
Du könntest es auch (ungetestet) so versuchen:
Grüße
bastla
Du könntest es auch (ungetestet) so versuchen:
URL = "http://www.domain.com/file.txt"
On Error Resume Next
Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
Http.Open "GET", URL, False
Http.Send
T = Split(Http.ResponseText, vbCrLF)
For i = 0 To UBound(T)
WScript.Echo "Zeile " & i + 1, T(i)
Next
bastla