deeboo
Goto Top

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.

Content-ID: 109843

Url: https://administrator.de/contentid/109843

Ausgedruckt am: 22.11.2024 um 13:11 Uhr

problemsolver
problemsolver 24.02.2009 um 12:37:19 Uhr
Goto Top
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
set objFSO = xyz
nicht genannt hast.
Und ich hoffe mal, dass das Internet nicht zu deinem Dateisystem gehört. face-wink

Lad Dir die Datei mit wget oder curl herunter und probiere es dann mal...

Gruß

Markus
dog
dog 24.02.2009 um 13:00:28 Uhr
Goto Top
Schau dir mal das Beispiel an:

http://www.paulsadowski.com/WSH/xmlhttp.htm

Grüße

Max
bastla
bastla 24.02.2009 um 14:49:34 Uhr
Goto Top
Hallo deeboo!

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
Grüße
bastla
deeboo
deeboo 25.02.2009 um 11:52:22 Uhr
Goto Top
Hallo Bastla.

Der Ansatz war der richtige Wink.
Nun habe ich 2 Scripte. Eins lädt die txt Datei runter und das andere wertet diese aus.
Leider geht es nicht in einem Script. face-sad

Aber das bekomm ich irgendwann auch noch hin.
Danke erstmal.