Text(Log)-Datei auslesen

  • VBScript

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    Text(Log)-Datei auslesen

    Hallo zusammen,

    ich bin neu hier und bitte um Unterstützung zu folgendem Problem:

    Das Programm PurSync speichert eine Log-Datei, die ich als txt-Datei gespeichert habe. Ich habe sie als txt-Datei beigefügt, weil sie als log-Datei nicht hochgeladen werden kann. Das Ergebnis des Script ist für beide Datei-Formen identisch.

    Mit dem Script


    Visual Basic-Quellcode

    1. Dim s
    2. Dim fso
    3. Dim file
    5. Set fso = CreateObject("Scripting.FileSystemObject")
    6. Set WshShell = WScript.CreateObject("WScript.Shell")
    8. Set file = fso.OpenTextFile("D:\Sync S_O.txt")
    10. counter=0
    11. Do Until file.AtEndOfStream
    12. myStringVar = file.ReadLine
    13. counter = counter+1
    14. Loop
    16. Set file = fso.OpenTextFile("D:\Sync S_O.txt")
    17. s = file.ReadAll()
    18. file.Close
    20. MsgBox counter & " " & s
    22. WScript.Quit


    zähle ich die Zeilen in der Datei und versuche ich den Inhalt der Datei auszulesen. Die Anzahl der Zeilen passt, aber ansonsten kommen nur zwei merkwürdige Zeichen, der originäre Inhalt der Datei wird nicht angezeigt.

    Mit jeder anderen Text-Datei funktioniert das Scrpit einwandfrei.

    Was ist die Ursache und wie kann ich ggf. die Datei auslesen?

    Vielen Dank im voraus für die Hilfe!

    Tschar

    CodeTags gesetzt
    Thema verschoben; Das Thema wird automatisch dort erstellt, wo man sich befindet, wenn man auf [* Neues Thema] klickt.     ~VaporiZed
    Dateien

    • Sync S_O.txt

      (1,41 kB, 90 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Willkommen im Forum.

    In welcher Programmierumgebung bist Du unterwegs? VisualBasic Script oder Excel/Word, also VBA?
    Es liegt an der Codierung der Datei. Die ist auf UTF-16 LE eingestellt (zu sehen, wenn Du die Datei z.B. im Windows Notepad/Editor öffnest: unten rechts in der Infoleiste), das kann Dein Script nicht verarbeiten.
    Wenn Du die Datei mittels des Editors in einem anderen Dateiformat speicherst (über Speichern unter und dann im Dialog unten eine andere Codierung festlegst, kann es Dein Script verarbeiten.

    ########

    Ah, es geht einfacher: Bei OpenTextFile kannst Du einstellen, dass er die Datei mit Unicode-Codierung einlesen soll, dann klappt's auch, siehe MSDN-Doku.

    Visual Basic-Quellcode

    1. Set file = fso.OpenTextFile("D:\Sync S_O.txt", 1, False, -1)

    Bilder

    • Codierung.png

      20,89 kB, 551×425, 63 mal angesehen

    • Codierung ändern.png

      96,95 kB, 952×604, 59 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

    Es handelt sich um einen UTF16 LE Text.

    Visual Basic-Quellcode

    1. Option Explicit
    3. Dim counter
    4. Dim fso
    5. Dim file, myStringVar
    6. Dim WshShell
    8. Set fso = CreateObject("Scripting.FileSystemObject")
    9. Set WshShell = WScript.CreateObject("WScript.Shell")
    10. Set file = fso.OpenTextFile("D:\#0\Sync S_O.txt",1,,True) '<---- UTF16 LE Text
    12. counter=0
    13. Do Until file.AtEndOfStream
    14.     myStringVar = myStringVar & file.ReadLine & vblf
    15.     counter = counter+1
    16. Loop
    18. file.Close
    19. MsgBox counter & vblf & myStringVar
    20. WScript.Quit

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Eierlein“ ()

    Beide Lösungen? Post#3 ist inhaltlich zu Post#2 identisch, da in VBS gilt: True = -1
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende