Jump to content
Sign in to follow this  
bebo2005

Datei per VBS Skript einlesen

Recommended Posts

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?

Share this post


Link to post

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

Share this post


Link to post

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 ;)

Share this post


Link to post
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...