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.
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.
Please also mark the comments that contributed to the solution of the article
Content-Key: 109843
Url: https://administrator.de/contentid/109843
Printed on: April 25, 2024 at 20:04 o'clock
4 Comments
Latest comment
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