Fehler: ungültiger Dateimodus bei Dateikonvertierung

  • VBScript

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Sachsenbauch.

    Fehler: ungültiger Dateimodus bei Dateikonvertierung

    Hallo,

    ich benötige wieder mal Euer spezielles Insider-Know How. Mir bringt ein zusammengebasteltes Script immer wieder Fehlermeldungen.
    Und zwar möchte ich ordnerweise aus Textdateien die Textzeilen extrahieren, die mit einem Vergleichstext übereinstimmen. Diese Zeilen soll dann in Datei geschrieben werden, deren Endung sich in .txt ändern soll. Mit dem zweiten Teil des Scripts bin ich ganz gut gefahren, musste jedoch immer den Namen der Quelldatei eingeben, das ist bei ca. 15 Dateien pro Ordner und 25 Ordnern (x 10 Jahrgängen) doch ziemlich aufwendig. Also habe ich diesen Teil an ein vorhandenes Script angefügt und angepasst. Aber ich bekomme bei Zeile 39 den Fehler: ungültiger Dateimodus. Was mache ich falsch ?

    Ein zweites Problem besteht innerhalb des Tags Problemzone darin, dass ich gern die nachfolgende Zeile(n) ausgelesen haben möchte, wie baut man einen Zeilenzähler ein..
    Über eine konkrete Antwort würde ich mich als VBS-Neuling sehr freuen.

    Vielen Danke !
    Micha

    Visual Basic-Quellcode

    1. Dim objFso, strFolder
    3. ' Beginn des Hauptprogamms
    5. Set objFso = CreateObject("Scripting.FileSystemObject")
    7. strFolder = objFso.GetParentFolderName(WScript.ScriptFullName)
    9. If objFso.FolderExists(strFolder) Then
    10. Call GetDOKFiles(objFso.GetFolder(strFolder))
    11. End If
    13. Set objFso = Nothing
    15. ' End des Hauoptprogramms
    17. Sub GetDOKFiles(ByRef objFolder)
    18. Dim objFile, objSubFolder
    20. For Each objFile In objFolder.Files
    21. If LCase(objFso.GetExtensionName(objFile.Name)) = "dok" Then
    22. Call DOKinTXT(objFile.Path, objFolder.Path)
    23. End If
    24. Next
    26. For Each objSubFolder In objFolder.SubFolders
    27. Call GetDOKFiles(objSubFolder)
    28. Next
    29. End Sub
    31. Sub DOKinTXT(ByRef strPath, ByRef strFolder)
    32. Dim arrText, strText, strTextLine, strTXTPath, objDOKFile, objTXTFile
    34. strTXTPath = objFso.BuildPath(strFolder, objFso.GetBaseName(strPath) & ".txt")
    36. Set objDOKFile = objFso.OpenTextFile(strPath)
    37. Set objTXTFile = objFso.CreateTextFile(strTXTPath) ' objTXTFile
    39. Do Until objTXTFile.AtEndOfStream ' => FEHLER: ungültiger Dateimodus
    40. ' Zeile für Zeile aus der Quelldatei lesen
    41. strLine = objTXTFile.ReadLine
    43. ' Das exakte Suchwort in der Zeile finden
    44. If Instr(1, strLine, "Gemeindestatistik 20", 1) > 0 Then
    45. ' Die gesamte Zeile in die Ausgabedatei schreiben
    46. objTXTFile.WriteLine strLine
    47. End If
    49. If Instr(1, strLine, "(Amtlicher", 1) > 0 Then
    50. objTXTFile.WriteLine strLine
    51. End If
    53. If Instr(1, strLine, "rungsfortschreibung auf Basis", 1) > 0 Then
    54. objTXTFile.WriteLine strLine
    55. End If
    57. If Instr(8, strLine, "Gebiet und Bevölkerung", 1) > 0 Then
    58. objTXTFile.WriteLine vbcrlf & "GEBIET UND BEVÖLKERUNG" & vbcrlf & "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯" & vbcrlf
    59. End If
    61. If Instr(1, strLine, "in qkm", 1) > 0 Then
    62. objTXTFile.WriteLine strLine
    63. End If
    65. If Instr(1, strLine, "am 03.10.1990 insgesamt", 1) > 0 Then
    66. objTXTFile.WriteLine strLine
    67. End If
    69. If Instr(1, strLine, "davon männlich", 1) > 0 Then
    70. objTXTFile.WriteLine strLine
    71. End If
    73. If Instr(1, strLine, "davon weiblich", 1) > 0 Then
    74. objTXTFile.WriteLine strLine
    75. End If
    77. If Instr(1, strLine, "je qkm am 31.12.", 1) > 0 Then
    78. objTXTFile.WriteLine strLine
    79. End If
    81. If Instr(1, strLine, "nder am 31.12.2", 1) > 0 Then
    82. objTXTFile.WriteLine strLine
    83. End If
    85. If Instr(1, strLine, "Bevölkerung am 31.12.2", 1) > 0 Then
    86. objTXTFile.WriteLine strLine
    87. End If
    89. If Instr(1, strLine, "unter 3 Jahre", 1) > 0 Then
    90. objTXTFile.WriteLine strLine
    91. End If
    93. If Instr(1, strLine, "bis unter", 1) AND NOT Instr(1, strLine, "von 10 bis unter", 1)> 0 Then
    94. objTXTFile.WriteLine strLine
    95. End If
    97. If Instr(1, strLine, "Jahre und mehr", 1) > 0 Then
    98. objTXTFile.WriteLine strLine
    99. End If
    101. If Instr(1, strLine, " Bevölkerungsbewegung", 1) > 2 Then
    102. objTXTFile.WriteLine vbcrlf & "BEVÖLKERUNGSBEWEGUNG" & vbcrlf & "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"
    103. End If
    105. If Instr(1, strLine, "Lebendgeborene ", 1) > 0 Then
    106. objTXTFile.WriteLine strLine
    107. End If
    109. If Instr(1, strLine, " Gestorbene", 1) > 0 Then
    110. objTXTFile.WriteLine strLine
    111. End If
    113. ' --------- Beginn Problemzone
    115. If Instr(1, strLine, "berschuss Lebendgeborene bzw", 1) > 0 Then
    116. ' die nächste Zeile muss geschrieben werden !!!
    117. objTXTFile.WriteLine strLine
    118. End If
    120. If Instr(1, strLine, "ber die Gebietsgrenze", 1) > 0 Then
    121. ' zwei Zeilen, nur die erste wird geschrieben !
    122. objTXTFile.WriteLine strLine
    123. End If
    125. '------------ Ende Problemzone
    127. If Instr(1, strLine, "berschuss Zu- bzw. Fort", 1) > 0 Then
    128. objTXTFile.WriteLine strLine
    129. End If
    131. If Instr(1, strLine, "nderung 2", 1) > 0 Then
    132. objTXTFile.WriteLine strLine
    133. End If
    135. Loop
    137. objDOKFile.Close
    138. objTXTFile.Close
    139. End Sub

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

    petaod schrieb:

    AtEndOfStream ist für lesenden Zugriff gedacht.
    Kann es sein, dass du von objDOKFile lesen und in objTXTFile schreiben willst?
    Dann solltest du die jeweils richtigen File-Objekte verwenden.


    Na klar, Mann bin ich ein :cursing: . Danke, das Script läuft gut.
    Könntest Du mir vielleicht auch bei meinen zweiten Problem (Problemzone Zeilen 115 bis 123) irgendwie behilflich sein ?

    Wenn du zwei Zeilen schreiben willst, musst du an der Stelle nochmals eine ReadLine/WriteLine eintragen.
    Oder du setzt dir ein Flag, dass die nächste Zeile auf jeden Fall geschrieben wird.

    Im Übrigen solltest du dich dringend mit dem ElseIf-Statement beschäftigen.

    Visual Basic-Quellcode

    1. Do Until objDOCFile.AtEndOfStream
    2. strLine = objDOCFile.ReadLine
    3. If Instr(1, strLine, "Gemeindestatistik 20", 1) > 0 Then
    4. objTXTFile.WriteLine strLine
    5. ElseIf Instr(1, strLine, "(Amtlicher", 1) > 0 Then
    6. objTXTFile.WriteLine strLine
    7. ElseIf Instr(1, strLine, "rungsfortschreibung auf Basis", 1) > 0 Then
    8. ...
    9. End If
    10. Loop
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Ich komme einfach nicht, weiter...
    habe versucht, über eine For-Schleife die Zeile 151 auszulesen und zu schreiben

    Visual Basic-Quellcode

    1. ...
    2. ' Zeile 151 auslesen
    3. For i = 1 to 150
    4. objDOKFile.ReadLine
    5. Next
    6. strLine2 = objDOKFile.ReadLine
    7. objTXTFile.WriteLine strLine2
    8. ...


    Unter Beibehaltung der If .. EndIf Abfrage erhalte ich den Fehler "Eingabe hinter Dateiende" (800A003E)
    und nach Umwandlung in das ElseIf-Statement geschieht gar nix...
    Es müsste also ein Flag gesetzt werden, aber wie ?

    Visual Basic-Quellcode

    1. MustWriteNextLine = False
    2. Do Until objDOCFile.AtEndOfStream
    3. strLine = objDOCFile.ReadLine
    4. If MustWriteNextLine Then
    5. objTXTFile.WriteLine strLine
    6. MustWriteNextLine=False
    7. ElseIf Instr(1, strLine, "Gemeindestatistik 20", 1) > 0 Then
    8. objTXTFile.WriteLine strLine
    9. ElseIf Instr(1, strLine, "(Amtlicher", 1) > 0 Then
    10. objTXTFile.WriteLine strLine
    11. ElseIf Instr(1, strLine, "rungsfortschreibung auf Basis", 1) > 0 Then
    12. ...
    13. ElseIf Instr(1, strLine, "berschuss Lebendgeborene bzw", 1) > 0 Then
    14. MustWriteNextLine = True 'schreibe nur nächste
    15. ElseIf Instr(1, strLine, "ber die Gebietsgrenze", 1) > 0 Then
    16. objTXTFile.WriteLine strLine 'schreibe diese
    17. MustWriteNextLine = True 'schreibe nächste
    18. ElseIf ...
    19. ...
    20. End If
    21. Loop
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Hallo petaod, :thumbsup:
    für dieses wunderbare Script danke ich Dir herzlich. Dein Kurzscript lief zur vollsten Zufriedenheit. Bei meinem (längeren) gab es Probleme mit Wörtern, die im Quelltext mehrfach vorkommen (s. Originalcode Zeile 105 bis 111). Ich habe dies mit den Logikoperatoren AND NOT lösen können. Glücklicherweise standen die beiden Wörter nur einmal am Zeilenanfang. Besser wäre wohl eine Function, welche die Anzahl des Vorkommens eines Strings ausliest.
    Hier also die Codeschnipsel:

    Visual Basic-Quellcode

    1. ElseIf Instr(1, strLine, "Lebendgeborene ", 1) AND NOT Instr(3, strLine, "Lebendgeborene", 1) > 0 Then
    2. objTXTFile.WriteLine strLine
    3. ...
    4. ElseIf Instr(1, strLine, "Gestorbene ", 1) AND NOT Instr(3, strLine, "Gestorbene", 1) > 0 Then
    5. objTXTFile.WriteLine strLine

    Im Grunde reicht mir dieses Script für diesen speziellen Statistik-Zweck. Damnke für Deine Mühe und einen sonnigen Tag
    Micha:el :thumbup: