Sind keine VBS Unterprogramme in einer .hta möglich?

  • VBScript

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Bot-Like.

    Sind keine VBS Unterprogramme in einer .hta möglich?

    Hallo,

    ich habe in der Vergangenheit meine VB-Scripts gern in einer HTA verpackt.
    Bei meinem aktuellen Projekt beiße ich mir leider die Zähne aus.
    Ich habe zu dem Thema das Netz einmal auf links gedreht, konnte aber nix finden.

    in meinem VB code kommt ein Sub / End Sub vor. Das ist in einer eigenständigen .vbs auch kein Problem!
    Da der HTA Script tag aber noch eine Unterroutine zum starten eines Skriptes benötigt bekomme ich immer einen Syntax-Fehler.

    <script language="VBScript">
    Sub start()
    'mein Skript ....->
    Sub DoFolders(Folder) '<--- Syntax-Fehler ab dem ersten Zeichen
    'Unterroutine
    End Sub
    End Sub
    </script>

    Ich gehe mal davon aus, dass VB allein schon kein zweiten "Sub" mag wenn der este noch nicht mit "End Sub" abgeschlossen ist.
    weiterhin kann ich aber nicht glauben, das man in einer HTA keine Unterprogramme nutzen können soll.

    Da kommt Ihr ins Spiel: Wie baut man also eine (VBS)HTA eine Unterroutine ein?

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    das wird in meinem Fall wahrscheinlich nicht nicht funktionieren.
    Ich benutze den zweiten Sub um damit rekursiv alle Ordnerebenen durchzublättern.

    Visual Basic-Quellcode

    1. <head>
    2. <title>Verzeichnis_nach_Datei-Inhalt_durchsuchen</title>
    3. <HTA:APPLICATION
    4. APPLICATIONNAME="Verzeichnis_nach_Datei-Inhalt_durchsuchen"
    5. SCROLL="yes"
    6. SINGLEINSTANCE="yes"
    7. >
    8. </head>
    10. <script language="VBScript">
    11. Sub start()
    12. 'Deklaration
    13. Dim Dateiarray, Anhang, AktionSHELL, AktionFSO, Ordner, file, ArtikelnummernSammlung
    14. Dim Textzeile, Suchstring, Treffer, Zeilenposition, Ladetext
    16. 'Objekte
    17. Set AktionFSO = CreateObject("Scripting.FileSystemObject")
    18. Set AktionSHELL = CreateObject("WScript.Shell")
    20. 'Abfragen
    22. If Ordnerangabe_option.Value = "" Then
    23. Ordner = Ordnerangabe_textbox.Value
    24. Else
    25. Ordner = Ordnerangabe_option.Value
    26. End if
    28. If Ordner = "" Then
    29. MsgHTA.InnerHTML = "Bitte geben Sie einen Pfad an."
    30. Exit Sub
    31. End If
    33. Ladetext = "Lade"
    35. If Suchbegriff_option.Value = "" Then
    36. Suchstring = Suchbegriff_textbox.Value
    37. Else
    38. Suchstring = Suchbegriff_option.Value
    39. End if
    41. If Suchstring = "" Then
    42. MsgHTA.InnerHTML = "Bitte geben Sie einen Suchbegriff an."
    43. Exit Sub
    44. End If
    46. Set Fld = AktionFSO.GetFolder(Ordner)
    48. DoFolders(Fld)
    50. Sub DoFolders(Folder)
    51. For Each SubFolder In Folder.SubFolders
    53. DoFolders(SubFolder)
    54. Next
    56. 'Auslesen der .txt
    57. For Each File In Folder.Files
    59. Treffer = false
    60. Set Datei = AktionFSO.OpenTextFile (File.Path,1)
    62. While not Datei.AtEndOfStream
    63. Textzeile = Datei.ReadLine
    64. Zeilenposition = instr(1, Textzeile, Suchstring, vbTextCompare)
    65. If Zeilenposition <> 0 Then
    66. Treffer = true
    67. End if
    69. Wend
    70. Datei.close
    72. If Ladetext = "Lade...................." Then
    73. Ladetext = "Lade"
    74. Else
    75. Ladetext = Ladetext & "."
    76. End if
    78. MsgHTA.InnerHTML = Ladetext
    80. If Treffer = true Then
    81. ArtikelnummernSammlung = ArtikelnummernSammlung & File.Name & "<BR>"
    82. End if
    84. Next
    85. End Sub
    87. If ArtikelnummernSammlung = "" Then
    88. ArtikelnummernSammlung = "In dem angegeben Verzeichnis gab es keine Treffer"
    89. End if
    91. MsgHTA.InnerHTML = ArtikelnummernSammlung
    93. End Sub
    94. </script>
    96. <body bgcolor="F0EEFE">
    97. <P ALIGN="RIGHT"><b><font SIZE="2" color='red' align="right" face='Calibri'>ITAB Harr</font></b></P>
    98. Dieses Tool durchsucht im angegebenen Ordner und allen Unterordnern,<BR>
    99. jeden Datei-Inhalt, nach dem angegeben Suchkriterium.<BR>
    100. Im Anschluss werden die Artikelnummern der Treffer ausgegeben.<BR><BR>
    101. Bitte geben Sie alle Informationen in den Text- ODER Optionsfeldern an.<BR>
    102. Klicken Sie nun auf "start".
    103. <p>
    104. Zu durchsuchender Ordner:<BR>
    105. <input type="text" name="Ordnerangabe_textbox" size="50">
    106. /
    107. <select size="1" name="Ordnerangabe_option" >
    108. <option value=""></option>
    109. <option value="C:\Users\Herkner\Desktop\Neuer Ordner">DXF zu BZ</option>
    110. </select>
    111. <p>
    112. Suchbegriff:<BR>
    113. <input type="text" name="Suchbegriff_textbox" size="50">
    114. /
    115. <select size="1" name="Suchbegriff_option" >
    116. <option value=""></option>
    117. <option value="180°">"Umschlag"</option>
    118. <option value="grav">"Gravur"</option>
    119. </select>
    120. <p>
    121. <input type="button" value="start" name="run_button" onClick="start">
    122. <p>
    123. <font color='red'><span id = "MsgHTA"></span></font>
    124. </body>

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Bot-Like“ ()

    Sicher geht das auch bei Rekursion.
    Schreibe die Subs niemals in einander verschachtelt. Das geht bei den wenigstens Sprachen (außer bei Inline Methods, ist aber eine andere Syntax)

    Rekursion:

    Visual Basic-Quellcode

    1. ​
    2. Sub main
    3. 'do stuff
    4. Call RecursiveCall
    6. End Sub
    7. Sub RecursiveCall
    8. 'tu was
    9. Call RecursiveCall
    10. End Sub
    Das ist meine Signatur und sie wird wunderbar sein!

    Wissenslücke geschlossen :-)

    Danke!! So hat´s geklappt.
    (Ich habe bisher immer nur ein Sub pro Skript benötigt)

    PS: hier noch mein debugter code falls jemand Interesse hat

    Visual Basic-Quellcode

    1. <head>
    2. <title>Verzeichnis_nach_Datei-Inhalt_durchsuchen</title>
    3. <HTA:APPLICATION
    4. APPLICATIONNAME="Verzeichnis_nach_Datei-Inhalt_durchsuchen"
    5. SCROLL="yes"
    6. SINGLEINSTANCE="yes"
    7. >
    8. </head>
    10. <script language="VBScript">
    11. 'Deklaration
    12. Dim Dateiarray, Anhang, AktionSHELL, AktionFSO, Ordner, file, ArtikelnummernSammlung
    13. Dim Textzeile, Suchstring, Treffer, Zeilenposition
    16. 'Objekte
    17. Set AktionFSO = CreateObject("Scripting.FileSystemObject")
    18. Set AktionSHELL = CreateObject("WScript.Shell")
    20. Sub start()
    23. 'Abfragen
    25. If Ordnerangabe_option.Value = "" Then
    26. Ordner = Ordnerangabe_textbox.Value
    27. Else
    28. Ordner = Ordnerangabe_option.Value
    29. End if
    31. If Ordner = "" Then
    32. MsgHTA.InnerHTML = "Bitte geben Sie einen Pfad an."
    33. Exit Sub
    34. End If
    36. If Ordnerangabe_option.Value <> "" AND Ordnerangabe_textbox.Value <> "" Then
    37. MsgHTA.InnerHTML = "Bitte nutzen Sie nur eine Option zur Pfadangabe."
    38. Exit Sub
    39. End If
    43. If Suchbegriff_option.Value = "" Then
    44. Suchstring = Suchbegriff_textbox.Value
    45. Else
    46. Suchstring = Suchbegriff_option.Value
    47. End if
    49. If Suchstring = "" Then
    50. MsgHTA.InnerHTML = "Bitte geben Sie einen Suchbegriff an."
    51. Exit Sub
    52. End If
    54. If Suchbegriff_option.Value <> "" AND Suchbegriff_textbox.Value <> "" Then
    55. MsgHTA.InnerHTML = "Bitte nutzen Sie nur eine Option zur Suchbegriffangabe."
    56. Exit Sub
    57. End If
    60. Set Fld = AktionFSO.GetFolder(Ordner)
    62. DoFolders(Fld)
    64. If ArtikelnummernSammlung = "" Then
    65. ArtikelnummernSammlung = "In dem angegeben Verzeichnis gab es keine Treffer"
    66. End if
    68. MsgHTA.InnerHTML = ArtikelnummernSammlung
    69. ArtikelnummernSammlung = ""
    71. End Sub
    73. '####################################
    75. Sub DoFolders(Folder)
    76. For Each SubFolder In Folder.SubFolders
    78. DoFolders(SubFolder)
    80. Next
    82. 'Auslesen der .txt
    83. For Each File In Folder.Files
    86. Treffer = false
    87. Set Datei = AktionFSO.OpenTextFile (File.Path,1)
    89. While not Datei.AtEndOfStream
    90. Textzeile = Datei.ReadLine
    91. Zeilenposition = instr(1, Textzeile, Suchstring, vbTextCompare)
    92. If Zeilenposition <> 0 Then
    93. Treffer = true
    94. End if
    96. Wend
    97. Datei.close
    99. If Treffer = true Then
    101. Select Case Ergebnisausgabe.Value
    102. Case "1"
    103. ArtikelnummernSammlung = ArtikelnummernSammlung & Left(File.Name,10) & "<BR>"
    104. Case "2"
    105. ArtikelnummernSammlung = ArtikelnummernSammlung & File.Name & "<BR>"
    106. Case "3"
    107. ArtikelnummernSammlung = ArtikelnummernSammlung & File.Path & "<BR>"
    108. End Select
    110. End if
    112. Next
    113. End Sub
    115. </script>
    117. <script language="VBScript">
    118. Sub Ergebnisliste_leeren()
    119. MsgHTA.InnerHTML = ""
    120. End Sub
    121. </script>
    123. <body bgcolor="#CEF6D8">
    124. <P ALIGN="RIGHT"><b><font SIZE="2" color='red' align="right" face='Calibri'>ITAB Harr</font></b></P>
    125. Dieses Tool durchsucht im angegebenen Ordner und allen Unterordnern,<BR>
    126. jeden Datei-Inhalt, nach dem angegeben Suchkriterium.<BR>
    127. Im Anschluss werden die Artikelnummern der Treffer ausgegeben.<BR><BR>
    128. Bitte geben Sie alle Informationen in den Text- ODER Optionsfeldern an.<BR>
    129. Klicken Sie nun auf "start".
    130. <p>
    131. Zu durchsuchender Ordner:<BR>
    132. <input type="text" name="Ordnerangabe_textbox" size="50">
    133. /
    134. <select size="1" name="Ordnerangabe_option" >
    135. <option value=""></option>
    136. <option value="C:\Users\Geht_euch_garnix_an\Desktop\Neuer Ordner">DXF zu BZ</option>
    137. </select>
    138. <p>
    139. Suchbegriff:<BR>
    140. <input type="text" name="Suchbegriff_textbox" size="50">
    141. /
    142. <select size="1" name="Suchbegriff_option" >
    143. <option value=""></option>
    144. <option value="180.00">"Umschlag"</option>
    145. <option value="grav">"Gravur"</option>
    146. </select>
    147. <p>
    148. Ergebnisausgabe:&nbsp;&nbsp;&nbsp;&nbsp;
    149. <select size="1" name="Ergebnisausgabe" >
    150. <option value=1>Artikelnummer</option>
    151. <option value=2>Dateiname</option>
    152. <option value=3>Dateipfad</option>
    153. </select>
    154. <p>
    155. <input type="button" value="Verzeichnis durchsuchen" name="run_button" onClick="start">
    156. <input type="button" value="Ergebnisliste leeren" name="run_button" onClick="Ergebnisliste_leeren">
    157. <p>
    158. <font color='red'><span id = "MsgHTA"></span></font>
    159. </body>

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bot-Like“ () aus folgendem Grund: ein bug war noch drin

Facebook
Telefonspende