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-Key: 109843

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

Printed on: April 25, 2024 at 01:04 o'clock

Member: problemsolver
problemsolver Feb 24, 2009 at 11:37:19 (UTC)
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
Member: dog
dog Feb 24, 2009 at 12:00:28 (UTC)
Goto Top
Schau dir mal das Beispiel an:

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

Grüße

Max
Member: bastla
bastla Feb 24, 2009 at 13:49:34 (UTC)
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
Member: deeboo
deeboo Feb 25, 2009 at 10:52:22 (UTC)
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.