Datei per VBS Skript einlesen

[bebo2005 10]

Servus,

habe seit einiger Zeit ein Problem mit dem einlesen von Textdateien auf mehreren Rechner. Es tritt überall das selbe Phänomen auf. Ich tippe ja auf ein Microsoft Patch da es vor 3 Wochen noch einwandfrei funktioniert hat!

Oder ist etwas an meinem Code falsch?

 

schnipp ----------------

Inhaltlesen("C:\test.txt")

Function Inhaltlesen (spoolordnerdatei)

Set fs = CreateObject("Scripting.FileSystemObject")

' Dateiinhalt einlesen

Set dateiinhalt = fs.OpenTextFile(spoolordnerdatei)

Inhaltlesen = dateiinhalt.readall

dateiinhalt.close

End Function

schnipp ----------------

 

Die Funktion lieft mir immer nur 3 komische Zeichen zurück.

Ein y mit 2 Punkten drüber ein b mit einem Strich nach unten und ein d .

Hat evtl. jemand eine Idee oder hat schonmal ein ähnliches Problem gehabt?

[thorgood 10]

Hallo,

 

öffne die Datei im Unicode Format.

 

thorgood

[bebo2005 10]

Habe den Code wie folgt angepass aber leider kein Erfolg gehabt!

 

schnipp ----------------

Inhaltlesen("C:\test.txt")

Function Inhaltlesen (spoolordnerdatei)

Set fs = CreateObject("Scripting.FileSystemObject")

' Dateiinhalt einlesen

' -1 = UNICODE, 1 = ASCII, 2 = Systemdefault

Set dateiinhalt = fs.OpenTextFile(spoolordnerdatei, ForReading, -1)

Inhaltlesen = dateiinhalt.readall

dateiinhalt.close

End Function

schnipp ----------------

 

Alle Formate habe ich durchprobiert erhalte trotzdem immer noch nur: ÿþS

 

Gruß

Bebo

[thorgood 10]

Fehlt da nicht ein Parameter ?

 

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/8575e5c4-dec5-48e7-92a2-790cac708c7f.asp

 

thorgood

[bebo2005 10]

Also jezt läuft es ich danke dir Thorgod. Manchmal sollte man halt doch genauer schauer :D

 

schnipp ----------------

Inhaltlesen("C:\test.txt")

Function Inhaltlesen (spoolordnerdatei)

Set fs = CreateObject("Scripting.FileSystemObject")

' Dateiinhalt einlesen

Set dateiinhalt = fs.OpenTextFile(spoolordnerdatei, ForReading, vbFalse, TristateTrue)

Inhaltlesen = dateiinhalt.readall

dateiinhalt.close

End Function

schnipp ----------------

 

Nochmal danke ;)

[thorgood 10]

Bitte :)