Jump to content

Datei per VBS Skript einlesen


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

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?

Link zu diesem Kommentar

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

Link zu diesem Kommentar

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

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...