Hallo,
ich habe für die Arbeit mal eine Maske erstellt die als .hta läuft und die interne Skriptsprache ist vbscript.
Nach einem Systemwechsel ist nun die Anforderung, dass das Ding als .html läuft.
Mein laienhafter Ansatz: "Kein Problem, dan äder ich halt die Dateiendung und fertig"
Gesagt getan!
Der Userinterface-Teil wird auch wunderbar im Browser angezeigt.
Das Problem ist, dass der "Skript-Teil" nicht reagiert. --> als würde da nichts stehen.
Ich habe den Corpus Delikti mal angehangen und hoffe das mir jemand weiterhelfen kann.
Wie gesagt. --> .hta läuft --> .html nicht!
vermutlich ist der Unterschied total simpel und man muss ihn nur kennen.
Danke vorab für eure Hilfe.
ich habe für die Arbeit mal eine Maske erstellt die als .hta läuft und die interne Skriptsprache ist vbscript.
Nach einem Systemwechsel ist nun die Anforderung, dass das Ding als .html läuft.
Mein laienhafter Ansatz: "Kein Problem, dan äder ich halt die Dateiendung und fertig"
Gesagt getan!
Der Userinterface-Teil wird auch wunderbar im Browser angezeigt.
Das Problem ist, dass der "Skript-Teil" nicht reagiert. --> als würde da nichts stehen.
Ich habe den Corpus Delikti mal angehangen und hoffe das mir jemand weiterhelfen kann.
Wie gesagt. --> .hta läuft --> .html nicht!
vermutlich ist der Unterschied total simpel und man muss ihn nur kennen.
Danke vorab für eure Hilfe.
HTML-Quellcode
- <head>
- <title>dxf_und_Modell_von_KOB</title>
- <HTA:APPLICATION
- APPLICATIONNAME="dxf_und_Modell_von_KOB"
- SCROLL="yes"
- SINGLEINSTANCE="yes"
- >
- </head>
- <script language="VBScript">
- 'Deklaration
- Dim DateiTabellenarray, Anhang, AktionSHELL, AktionFSO, Zielpfad, file, ArtikelnummernSammlung
- Dim Textzeile, Versionsstand, Treffer, Zeilenposition
- 'Objekte
- Set AktionFSO = CreateObject("Scripting.FileSystemObject")
- Set AktionSHELL = CreateObject("WScript.Shell")
- DesktopPfad = AktionSHELL.SpecialFolders("Desktop")
- Dokumente = AktionSHELL.SpecialFolders("MyDocuments")
- Sub start()
- '############## Abfragen zu den Verzeichnissen ############ Achtung die HTA stirbt bei Ä Ü Ö in Pfaden ab##########
- If Ordnerangabe_option.Value = "" AND Aktion.Value = "Speichern_unter" Then
- Zielpfad = Ordnerangabe_textbox.Value
- Elseif Ordnerangabe_option.Value = "Desktop" AND Aktion.Value = "Speichern_unter" Then
- Zielpfad = DesktopPfad & "\Neuer Ordner"
- if AktionFSO.Folderexists(Zielpfad) = false then
- Set NeuerOrdner = AktionFSO.CreateFolder(Zielpfad)
- end if
- Elseif Ordnerangabe_option.Value = "Biegezentrum" AND Aktion.Value = "Speichern_unter" Then
- Zielpfad = "\\171fs1\Daten\Konstruktion-Austausch\dxf_zu_bz"
- Elseif Ordnerangabe_option.Value = "Boost" AND Aktion.Value = "Speichern_unter" Then
- Zielpfad = "\\171fs1\Daten\Konstruktion-Austausch\Boost"
- Elseif Ordnerangabe_option.Value = "Schlatter" AND Aktion.Value = "Speichern_unter" Then
- Zielpfad = "\\171fs1\Daten\Maschinen\Schlatter\DXF"
- End if
- If Zielpfad = "" AND Aktion.Value = "Speichern_unter" Then
- MsgHTA.InnerHTML = "Bitte geben Sie einen Pfad an."
- Exit Sub
- End If
- If Ordnerangabe_option.Value <> "" AND Ordnerangabe_textbox.Value <> "" AND Aktion.Value = "Speichern_unter" Then
- MsgHTA.InnerHTML = "Bitte nutzen Sie nur eine Option zur Pfadangabe."
- Exit Sub
- End If
- '############## Abfragen zur Version ############
- If Version_option.Value = "" Then
- Versionsstand = Version_textbox.Value
- Else
- VersionsstandOptionsFeld = Version_option.Value
- End if
- If Version_option.Value = "" AND Version_textbox.Value = "" Then
- MsgHTA.InnerHTML = "Bitte geben Sie eine Version an."
- Exit Sub
- End If
- If Version_option.Value <> "" AND Version_textbox.Value <> "" Then
- MsgHTA.InnerHTML = "Bitte nutzen Sie nur eine Option zur Versionangabe."
- Exit Sub
- End If
- Dateiendung = Dateiformat.Value
- '####################### Arbeitsbereich #############
- Tabellenarray = Split(Tabelleninput.Value,VBcrlf)
- i2 = UBound(Tabellenarray)+1
- Zaehler = 0
- ArtikelnummernSammlung = "Folgende Artikel wurden nicht gefunden: <BR> "
- Wurde_schon_ein_Artikel_geladen = false
- For i = 1 to i2
- Artikelnummer = Left(Tabellenarray(Zaehler),10)
- Verzeichnis = "\\171fs1\Daten\Konstruktion-Austausch\dxf_von_KOB\DXF_und_3D_Archiv" & Left(Artikelnummer,2) & "" & Mid(Artikelnummer,3,5)
- If AktionFSO.Folderexists(Verzeichnis) then
- Set Quellpfad = AktionFSO.GetFolder(Verzeichnis)
- Es_wurden_daten_kopiert = false
- '#######höchsten Versionstand bei "Aktuell" ermitteln ###########
- If VersionsstandOptionsFeld = "Aktuell" Then
- groesste_Version = 00
- For each file in Quellpfad.Files
- Dateiarray_Versionsermittelung = Split(file.Name,".")
- If Artikelnummer = Left(file.Name,10) and Dateiendung = "." & Dateiarray_Versionsermittelung(1) Then
- erfasste_Version = Mid(file.Name,18,2)
- If erfasste_Version >= groesste_Version Then
- groesste_Version = erfasste_Version
- End if
- End if
- Versionsstand = groesste_Version
- Next
- End if
- '################# eigentlicher Arbeitsbereich ##################################################
- For each file in Quellpfad.Files
- Dateiarray = Split(file.Name,".")
- If Right(Artikelnummer,3) = Mid(Dateiarray(0),8,3) and Versionsstand = Mid(Dateiarray(0),18,2) and Dateiendung = "." & Dateiarray(1) Then
- If AktionFSO.FileExists(file.Path) Then
- '############ Artikel_laden ##########
- If Aktion.Value = "Artikel_laden" AND Wurde_schon_ein_Artikel_geladen = false Then
- If AktionFSO.FileExists(file.Path) Then
- AktionSHELL.run file.Path,1,false
- Wurde_schon_ein_Artikel_geladen = true
- Es_wurden_daten_kopiert = true
- Else
- Wurde_schon_ein_Artikel_geladen = false
- Es_wurden_daten_kopiert = false
- End If
- Elseif Aktion.Value = "Artikel_laden" AND Wurde_schon_ein_Artikel_geladen = true Then
- Es_wurden_daten_kopiert = true
- ArtikelnummernSammlung = "Es kann immer nur ein Artikel geladen werden."
- End if
- '############ Speichern_unter ##########
- If AktionFSO.FileExists(Zielpfad & "" & file.Name) AND Aktion.Value = "Speichern_unter" Then
- Es_wurden_daten_kopiert = true
- Elseif not AktionFSO.FileExists(Zielpfad & "" & file.Name) AND Aktion.Value = "Speichern_unter" Then
- AktionFSO.copyFile file.Path, Zielpfad & "" & file.Name , false
- Es_wurden_daten_kopiert = true
- End if
- Else
- Es_wurden_daten_kopiert = false
- End if
- End If
- next
- Else
- Es_wurden_daten_kopiert = false
- End if
- Zaehler = Zaehler + 1
- 'If Es_wurden_daten_kopiert = false AND Aktion.Value = "Speichern_unter" Then
- If Es_wurden_daten_kopiert = false Then
- If Artikelnummer <> "" Then
- ArtikelnummernSammlung = ArtikelnummernSammlung & Artikelnummer & "<BR>"
- End if
- End if
- Next
- If ArtikelnummernSammlung = "Folgende Artikel wurden nicht gefunden: <BR> " then
- ArtikelnummernSammlung = "Erledigt!"
- End if
- MsgHTA.InnerHTML = ArtikelnummernSammlung
- End Sub
- </script>
- <script language="VBScript">
- Sub Ergebnisliste_leeren()
- MsgHTA.InnerHTML = ""
- End Sub
- </script>
- <body bgcolor="#CEF6D8">
- <P ALIGN="RIGHT"><b><font SIZE="2" color='red' align="right" fTabellenarraye='Calibri'>ITAB Harr</font></b></P>
- Dieses Tool oeffnet oder speichert die angegebenen Artikel<BR>
- in der geforderten Version aus der Historie.<BR><BR>
- Bitte geben Sie alle Informationen jeweils in den Textfeldern ODER in den Optionsfeldern an.<BR>
- Die Artikelnummern sind untereinander zu kopieren.<BR>
- Klicken Sie im Anschluss auf "start".
- <p>
- Aktion:
- <select size="1" name="Aktion" >
- <option value="Speichern_unter">Speichern unter</option>
- <option value="Artikel_laden">Artikel laden</option>
- </select>
- <p>
- Verzeichnis in das gespeichert werden soll:<BR>
- <input type="text" name="Ordnerangabe_textbox" size="50">
- /
- <select size="1" name="Ordnerangabe_option" >
- <option value=""></option>
- <option value="Desktop">Desktop\Neuer Ordner</option>
- <option value="Biegezentrum">Biegezentrum</option>
- <option value="Boost">Boost</option>
- <option value="Schlatter">Schlatter</option>
- </select>
- <p>
- Version:<BR>
- <input type="text" name="Version_textbox" size="1">
- /
- <select size="1" name="Version_option" >
- <option value=""></option>
- <option value="Aktuell">Aktuell</option>
- </select>
-  
- Dateiformat:
- <select size="1" name="Dateiformat" >
- <option value=".SLDPRT">.SLDPRT</option>
- <option value=".DXF">.DXF</option>
- </select>
- <p>
- Artikelnummern:<BR>
- <textarea name="Tabelleninput" rows=5 cols=70></textarea>
- <p>
- <input type="button" value="start" name="run_button" onClick="start">
- <input type="button" value="Ergebnisliste leeren" name="run_button" onClick="Ergebnisliste_leeren">
- <p>
- <font color='red'><span id = "MsgHTA"></span></font>
- </body>