Script für jede Datei in einem Ordner anwenden

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Sachsenbauch.

    Script für jede Datei in einem Ordner anwenden

    Hallo Gemeinde,
    wieder einal bin ich auf Eure Hilfe angewiesen.
    Und zwar habe ich ein Script, welches Textzeilen aus einer Datei ausliest und in eine andere gleichen Namens - aber andere Endung schreibt. Diese Script soll alle Dateien des aktuellen Ordners (also ohne spzielle Pfadangabe) durchlaufen. Und zwar werden Textauszüge aus einer .JSP-Datei in eine einfache .HTML-Datei geschrieben.
    Mein Script GRABLINESHTML.VBS sieht derzeit wie folgt aus:

    Visual Basic-Quellcode

    1. inPath=Inputbox("Name der Datei","zu HTML konvertieren","410.jsp")
    2. outPath=Left(inPath,3) & ".html"
    4. With CreateObject("Scripting.FileSystemObject")
    5. Set inFile = .OpenTextFile(inPath)
    6. Set outFile = .OpenTextFile(outPath, 2, True)
    7. End With
    9. outfile.WriteLine "<html><body><table border=1><TH colspan=4><b>"
    10. Do Until inFile.AtEndOfStream
    11. line = Trim(inFile.ReadLine)
    13. If Left(line, 66) = "<tr><td class=firstleft><a class=nowrap name=""zur&uuml;ck1"" href=#" Then
    14. outFile.WriteLine line
    16. ElseIf Left(line, 30) = "(Amtlicher Gemeindeschlüssel =" Then
    17. outFile.WriteLine line & "</b></TH>"
    19. ElseIf Left(line, 49) = "<tr><td class=firstleft><div class=eingerueckt>mä" Then
    20. outFile.WriteLine line
    22. ElseIf Left(line, 48) = "<tr><td class=firstleft><div class=eingerueckt>w" Then
    23. outFile.WriteLine line
    25. ElseIf Left(line, 68) = "<tr><td class=firstleft><a class=nowrap name=""zur&uuml;ck2"" href=#2>" Then
    26. outFile.WriteLine line
    28. ... ' dazwischen sind noch allerhand ElseIf-Blöcke
    30. Else If Left(line, 27) = "<tr><td class=firstleft>von" Then
    31. outFile.WriteLine line
    33. End if
    34. End if
    35. End if
    36. Loop
    38. outFile.Writeline "</table></body></html>"
    40. inFile.Close
    41. outFile.Close


    Wie kann ich das Script nun vereinfachen, das dies Ganze automatisch erfolgt. Über 120 Dateien mit Hand zu bearbeiten (und es kommen immer neue hinzu ...) ist mir doch etwas zu mühselig.
    Ein Ansatz:

    Visual Basic-Quellcode

    1. Dim FSO, FLD, FIL, TS
    2. Dim strFolder, strContent, strPath
    3. Const ForReading = 1, ForWriting = 2, ForAppending = 8
    5. 'anpassen auf aktuellen Ordner !
    6. strFolder = "."
    8. Set FSO = CreateObject("Scripting.FileSystemObject")
    9. set FLD = FSO.GetFolder(strFolder)
    11. For Each Fil In FLD.Files
    12. Set TS = FSO.OpenTextFile(fil.Path, ForReading)
    13. strContent = TS.ReadAll
    14. TS.Close
    16. Set WSHShell = CreateObject("WScript.Shell")
    17. WSHShell.Run("GRABLINESHTML.VBS", FIL)
    19. Set TS = FSO.OpenTextFile(fil.Path, ForWriting)
    20. TS.Write strContent
    21. TS.Close
    22. Next
    24. Set TS = Nothing
    25. Set FLD = Nothing
    26. Set FSO = Nothing

    Dann müsste aber in der GRABLINESHTML.VBS wohl die Inputbox raus und der Dateiname als Argument übergeben werden.
    Aber wie

    Vorerst danke ich erst einmal :|

Facebook
Telefonspende