Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Benötige VBS Scrpit um eine TXT. Datei zu erstellen.

Frage Entwicklung VB for Applications

Mitglied: Ironhead-Hayns

Ironhead-Hayns (Level 1) - Jetzt verbinden

03.12.2012 um 10:45 Uhr, 3663 Aufrufe, 19 Kommentare

Hallo Zusammen,
ich hätte da gerne mal wieder ein Problem gehabt!

Ich hab mal wieder eine kleine Herausforderung. Leider bin ich Systemer und kein Entwickler(der is in Elternzeit). Mit meinBatch Mitteln hätte ich es auch lösen können, aber halt nicht schön für meine Schäfchen.

Also es wird eine Applikation benötigt die 2 Parameter in eine TXT Datei speichert, und dann auf einem Laufwerk ablegt. Damit eine Folgeverarbeitung(bereits fertig gebaut) durch die Eingabe mit den richtigen Parametern automatisch gestartet kann.

Die Applikation hatte ich mir als .hta oder .vbs vorgestellt.
Die Applikation soll "Tina Vorbereitung" heißen.
Es werden 2 Eingabefelder untereinander benötigt.
Eingabefeld Nummer 1 soll: "Datei(- ohne Datei)" heißen.
Eingabefeld Nummer 2 soll: "Jobname" heißen.
dann braucht die Applikation einen "Start Button" der "Ausführen" heißt.

Durch klicken des "Ausführen" Buttons muss im Ordner "M:\Trigger" eine "Tina.txt" Datei erstellt werden, in der in der ersten Zeile die Eingabe aus Eingabefeld Nummer 1 steht. In der zweiten Zeile muss die Eingabe aus Eingabefeld Nummer 2 stehen.

Den Rest erledigt das Sytem!

So wenn das zu langweilig ist hab ich noch ein bisschen Schmuck am Nachthemd anzubieten(das ist also für mich nicht zeitkritisch). Die Datei muss in den ersten 4 Zeichen "Tina" heißen danach könnte ich die Uhrzeit wann die TXT Datei erzeugt wurde gut gebrauchen und den Rechnernamen von dem TXT-Datei erstellt wurde. Also In etwa: "Tina_%UHRZEIT%_%Rechnername%.txt.
Wem das noch nicht reicht............. In der dritten Zeile könnte in der TXT Datei noch der Username stehen. (Dann würde mein User Benachrichtigung bekommen, ob seine Verarbeitung erfolgreich oder Fehlerhaft gelaufen ist, ansonsten müsste er nach schauen!)

Vielen vielen Dank! Vorab!
Mitglied: TsukiSan
03.12.2012, aktualisiert um 13:41 Uhr
Hallo Ironhead-Haynes,

also mit BAT oder VBS ein Fensterchen zu kreiren mit 2 Eingabefeldern und 'nem Knöpfchen...Naja, lassen wir lieber.
Wenn es eine ganz simple Lösung in Batch sein darf und dir das ganz schlichte Design gefällt, dann probier mal dass hier:
01.
@Echo Off 
02.
Set /P "Zeile1=Bitte Daten fuer Zeile 1 eingeben:" 
03.
Set /P "Zeile2=Bitte Daten fuer Zeile 2 eingeben:" 
04.
set "Stunde=%Time:~0,2%" 
05.
set "Minute=%Time:~3,2%" 
06.
set "Sekunde=%Time:~6,2%" 
07.
Set "MeineDatei=Tina_%Stunde%.%Minute%.%Sekunde%_%Computername%.txt" 
08.
 
09.
 
10.
Echo %Zeile1% >%MeineDatei% 
11.
Echo %Zeile2% >>%MeineDatei% 
12.
Echo %Username% >>%MeineDatei%
Nach 'ner kurzen Weile bekommst du es sicher selber raus, was es macht und kannst es noch modifizieren nach herzenslust.

Viele Grüsse

Tsuki

Ps.: Wenn es wirklich grafisch werden soll, dann kommst du nicht um eine höhere Sprache drumherum.
Bitte warten ..
Mitglied: Ironhead-Hayns
04.12.2012 um 08:59 Uhr
Hallo, danke fürs Batch Script. Ja das ist die Lösung die ich meinen Kollegen auch hätte anbieten können. Nur wenn ich damit zur 19jährigen Auzurbiene gehe fragt die mich erst mal mit Rehaugen wo Sie den da klicken müsse!! Also nicht wirklich praktikabel. Ich dachte es würde mit einem kleinen Applikations Fensterchen mit Eingabefeld und Button etwas Benutzer freundlicher werden.
Bitte warten ..
Mitglied: TsukiSan
04.12.2012 um 09:18 Uhr
Ich dachte es würde mit einem kleinen Applikations Fensterchen mit Eingabefeld und Button etwas Benutzer freundlicher werden.

Tja, dann helfen Batch und VBS ehr nicht, da diese Script-Sprachen sind.
Du benötigst dann er grafische Programmiersprachen (VisualBasic etc. und Co).
Einen Gedankenanstoss hätte ich für dich, ohne, dass du die Developertools kaufen musst:
Sicher habt ihr doch ein Office installiert? Dann könnte man beispielsweise in Excel 2 Zeilen zur Eingabe nehmen und alle anderen sperren, darunter einen "Button" hinzufügen über die VisualBasic Toolsammlung von Excel und in diesem Button dann ein paar Zeilen Code hinterlegen, die die drei Zeilen in deine Datei and besagten Ort hinterlegt.

Wäre das was?

Gruss
Tsuki
Bitte warten ..
Mitglied: 76109
04.12.2012, aktualisiert um 11:18 Uhr
Hallo zusammen!

@Ironhead-Hayns
Versuchs mal hiermit (*.hta):
01.
<html><head><title>Tina Vorbereitung</title> 
02.
<HTA:APPLICATION ID="Tina" APPLICATIONNAME="Tina-Vorbereitung" SCROLL="no" SINGLEINSTANCE="yes"/> 
03.
<style type="text/css"> 
04.
    <!-- 
05.
        body        { background-color:buttonface; } 
06.
        table       { color:buttontext; font-family:Arial; font-size:9pt; } 
07.
        input       { color:buttontext; font-family:Arial; font-size:9pt; } 
08.
 
09.
        #size2      { font-size:2pt; } 
10.
        #size4      { font-size:4pt; } 
11.
    --> 
12.
</style></head> 
13.
<SCRIPT Language="VBScript"> 
14.
    Const sFolderPath = "M:\Trigger" 
15.
    Const WindowWidth = 300     'Fensterbreite 
16.
    Const WindowHeight = 200    'Fensterhöhe 
17.
 
18.
    Sub Window_OnLoad() 
19.
        Window.ResizeTo WindowWidth, WindowHeight 
20.
        Window.MoveTo (Screen.Width - WindowWidth) / 2, (Screen.Height - WindowHeight) / 2 
21.
        Datei.Focus 
22.
    End Sub 
23.
     
24.
    Sub ButtonOK_Click() 
25.
        Dim oFso, sPath, sComputername, sUsername, sText 
26.
         
27.
        If Datei.Value = "" Or Jobname.Value = "" Then 
28.
            MsgBox "Die Eingabefelder sind unvollständig!", vbExclamation, "Fehler..." 
29.
        Else 
30.
            Set oFso = CreateObject("Scripting.FileSystemObject") 
31.
             
32.
            If oFso.FolderExists(sFolderPath) Then 
33.
                With CreateObject("WScript.Network") 
34.
                    sComputername = .ComputerName 
35.
                    sUsername = .UserName 
36.
                End With 
37.
                  
38.
                sPath = sFolderPath & "\Tina_" & Replace(Time, ":", "") & "_" & sComputername & ".txt" 
39.
                sText = Datei.Value & vbCrLf & Jobname.Value & vbCrLf & sUsername 
40.
                  
41.
                oFso.CreateTextFile(sPath).Write sText 
42.
            Else 
43.
                MsgBox "Abruch: Der Pfad existiert nicht: " & sFolderPath, vbExclamation, "Fehler..." 
44.
            End If 
45.
            Self.Close 
46.
        End If 
47.
    End Sub 
48.
</SCRIPT> 
49.
<body> 
50.
<table width="100%"> 
51.
    <tr> 
52.
        <td> 
53.
            <fieldset><legend><b>Datei(- ohne Datei)</b></legend> 
54.
                &nbsp;&nbsp;<input type="text" name="Datei" value="" size="41"> 
55.
                <br><br id="size4"> 
56.
            </fieldset> 
57.
        </td> 
58.
    </tr> 
59.
</table><br id="size2"> 
60.
<table width="100%"> 
61.
    <tr> 
62.
        <td> 
63.
            <fieldset><legend><b>Jobname</b></legend> 
64.
                &nbsp;&nbsp;<input type="text" name="Jobname" value="" size="41"> 
65.
                <br><br id="size4"> 
66.
            </fieldset> 
67.
        </td> 
68.
    </tr> 
69.
</table><br id="size2"> 
70.
<table width="100%"> 
71.
    <tr> 
72.
        <td align="center"> 
73.
            <input type="button" style="width:60pt" value="Ausführen" onClick="ButtonOK_Click()"> 
74.
        </td> 
75.
    </tr> 
76.
</table> 
77.
</body></html>
Gruß Dieter
Bitte warten ..
Mitglied: TsukiSan
04.12.2012 um 11:19 Uhr
Hallo Dieter,

sauber!

Gruss
Tsuki
Bitte warten ..
Mitglied: 76109
04.12.2012 um 11:31 Uhr
Hallo Tsuki!

Jepp, mit Html- und VBS-Code kann man schon ganz nette Dinge machen

Gruß Dieter
Bitte warten ..
Mitglied: TsukiSan
04.12.2012 um 11:43 Uhr
Hallo Dieter,

da gebe ich dir recht!
Mit Hta hatte ich noch nichts unternommen und hatte in diese Richtung gar keine Idee.
Mit VisualBasic oder so wäre dem TO sein Vorhaben blitzschnell schön grafisch umgesetzt. Aber dein HTA-schnipsel macht ja genau, was er möchte und auch noch mit kleinem Fensterchen.
Da muss ich mich mal in HTA reinlesen. Eventuell braucht man das mal.

Super!

Gruss
Tsuki
Bitte warten ..
Mitglied: Ironhead-Hayns
04.12.2012 um 12:59 Uhr
Hallo Dieter,
super perfekt! ich bin schwer begeistert! Exakt was ich gebraucht habe. Wirklich geil man man!!


Vielen vielen Dank!!

Der Hayns
Bitte warten ..
Mitglied: 76109
05.12.2012 um 00:37 Uhr
Hallo Hayns!

Freut mich, wenn's gefällt


Gruß Dieter
Bitte warten ..
Mitglied: MediumWasser
05.12.2012 um 07:43 Uhr
Hallo Dieter,
bin beim googeln hier drauf gestoßen wirklich cooles Script!! Ich werd es auch benutzen! Nur kann man das 2te Feld mit einem Dropdown Befehl/Menü automatisch aus einer anderen Text Datei füllen? das nur noch den entsprechenden Eintrag anklicken muss??

Danke
Bernd
Bitte warten ..
Mitglied: 76109
05.12.2012, aktualisiert um 10:43 Uhr
Hallo Bernd!

In etwa so (Pfade: sFileInPath und sFolderOutPath anpassen):
01.
<html><head><title>Tina Vorbereitung</title> 
02.
<HTA:APPLICATION ID="Tina" APPLICATIONNAME="Tina-Vorbereitung" SCROLL="no" SINGLEINSTANCE="yes"/> 
03.
<style type="text/css"> 
04.
    <!-- 
05.
        body        { background-color:buttonface; } 
06.
        table       { color:buttontext; font-family:Arial; font-size:9pt; } 
07.
        input       { color:buttontext; font-family:Arial; font-size:9pt; } 
08.
        select      { color:buttontext; font-family:Arial; font-size:9pt; } 
09.
 
10.
        #size2      { font-size:2pt; } 
11.
        #size4      { font-size:4pt; } 
12.
    --> 
13.
</style></head> 
14.
<SCRIPT Language="VBScript"> 
15.
    Const sFolderOutPath = "C:\Test"    'Ordner-Pfad Ausgabedatei 
16.
    Const sFileInPath = "C:\Test.txt"   'Datei-Pfad Eingabedatei (ComboBox-Daten) 
17.
    Const WindowWidth = 300             'Fensterbreite 
18.
    Const WindowHeight = 200            'Fensterhöhe 
19.
     
20.
    Sub Window_OnLoad() 
21.
        Window.ResizeTo WindowWidth, WindowHeight 
22.
        Window.MoveTo (Screen.Width - WindowWidth) / 2, (Screen.Height - WindowHeight) / 2 
23.
        Call InitOption 
24.
        Datei.Focus 
25.
    End Sub 
26.
 
27.
    Sub InitOption() 
28.
        Dim oFso, oOption, aText, sText 
29.
         
30.
        Set oFso = CreateObject("Scripting.FileSystemObject") 
31.
         
32.
        If oFso.FileExists(sFileInPath) Then 
33.
            aText = Split(oFso.OpenTextFile(sFileInPath).ReadAll, vbCrLf) 
34.
             
35.
            For Each sText In aText 
36.
                If sText <> "" Then 
37.
                    Set oOption = Document.CreateElement("Option") 
38.
                    oOption.Text = sText 
39.
                    Jobname.Add oOption 
40.
                End If 
41.
            Next 
42.
           'Jobname.Style.Width = 240   'Wenn's die volle Breite sein soll 
43.
        Else 
44.
            MsgBox "Datei nicht gefunden:" & vbCr & vbCr & sFileInPath, vbExclamation, "Fehler..." 
45.
        End If 
46.
    End Sub 
47.
 
48.
    Sub ButtonOK_Click() 
49.
        Dim oFso, sPath, sComputername, sUsername, sText 
50.
         
51.
        If Datei.Value = "" Or Jobname.SelectedIndex = -1 Then 
52.
            MsgBox "Die Eingabefelder sind unvollständig!", vbExclamation, "Fehler..." 
53.
        Else 
54.
            Set oFso = CreateObject("Scripting.FileSystemObject") 
55.
             
56.
            If oFso.FolderExists(sFolderOutPath) Then 
57.
                With CreateObject("WScript.Network") 
58.
                    sComputername = .ComputerName 
59.
                    sUsername = .UserName 
60.
                End With 
61.
                  
62.
                sPath = sFolderOutPath & "\Tina_" & Replace(Time, ":", "") & "_" & sComputername & ".txt" 
63.
                sText = Datei.Value & vbCrLf & Jobname(Jobname.SelectedIndex).Text & vbCrLf & sUsername 
64.
                oFso.CreateTextFile(sPath).Write sText 
65.
            Else 
66.
                MsgBox "Der Pfad existiert nicht: " & sFolderOutPath, vbExclamation, "Fehler..." 
67.
            End If 
68.
            Self.Close 
69.
        End If 
70.
    End Sub 
71.
</SCRIPT> 
72.
 
73.
<body> 
74.
<table width="100%"> 
75.
    <tr> 
76.
        <td> 
77.
            <fieldset><legend><b>Datei(- ohne Datei)</b></legend> 
78.
                &nbsp;&nbsp;<input type="text" name="Datei" value="" size="41"> 
79.
                <br><br id="size4"> 
80.
            </fieldset> 
81.
        </td> 
82.
    </tr> 
83.
</table><br id="size2"> 
84.
<table width="100%"> 
85.
    <tr> 
86.
        <td> 
87.
            <fieldset><legend><b>Jobname</b></legend> 
88.
                &nbsp;&nbsp;<select name="Jobname" size="1"></select> 
89.
                <br><br id="size4"> 
90.
            </fieldset> 
91.
        </td> 
92.
    </tr> 
93.
</table><br id="size2"> 
94.
 
95.
<table width="100%"> 
96.
    <tr> 
97.
        <td align="center"> 
98.
            <input type="button" style="width:60pt" value="Ausführen" onClick="ButtonOK_Click()"> 
99.
        </td> 
100.
    </tr> 
101.
</table> 
102.
</body></html> 
103.
 
Gruß Dieter
Bitte warten ..
Mitglied: Ironhead-Hayns
05.12.2012 um 11:34 Uhr
WOW!!
den nehm ich auch!! Respekt!
Bitte warten ..
Mitglied: MediumWasser
05.12.2012 um 20:35 Uhr
Hallo Dieter,
Wirklich gut.

verbindlichsten Dank
Bitte warten ..
Mitglied: Gurkenhobel
29.01.2013, aktualisiert um 13:11 Uhr
Hallo Dieter,

ein wirklich superfeines Script. Ich habe es ein wenig abgewandelt und wollte das obere Eingabefeld ebenfalls als Dropdown-Menü einrichten. Dabei gab es aber Probleme. Fehler in Zeile 46 !

Hier also mal der VBS-Teil des Scripts, der HTML-Teil wurde bis auf einige Änderungen der Feld-Bezeichnung nicht geändert:

01.
 
02.
    Const sFolderOutPath = "E:\Downloads"            ' Ordner-Pfad Ausgabedatei 
03.
    Const sFileInPath = "E:\Downloads\Dateien.txt"   ' Datei-Pfad Eingabedatei (Eigenschaften) 
04.
    Const sFileInPathb = "E:\Downloads\Namens.txt"   ' Datei-Pfad Eingabedatei (Vornamen) 
05.
 
06.
    Const WindowWidth = 300                          ' Fensterbreite 
07.
    Const WindowHeight = 200                         ' Fensterhöhe 
08.
     
09.
    Sub Window_OnLoad() ' Fenstermitte 
10.
        Window.ResizeTo WindowWidth, WindowHeight 
11.
        Window.MoveTo (Screen.Width - WindowWidth) / 2, (Screen.Height - WindowHeight) / 2 
12.
        Call InitOption  ' evtl. eine 2. Unterprozedur noch einfügen ?! 
13.
        Datei.Focus 
14.
    End Sub 
15.
 
16.
    Sub InitOption() 
17.
        Dim oFso, oOption, aText, sText 
18.
        Dim oOptionb, aTextb, sTextb ' nachträglich eingefügt     
19.
        Set oFso = CreateObject("Scripting.FileSystemObject") 
20.
         
21.
        If oFso.FileExists(sFileInPath) Then 
22.
            aText = Split(oFso.OpenTextFile(sFileInPath).ReadAll, vbCrLf) 
23.
             
24.
            For Each sText In aText 
25.
                If sText <> "" Then 
26.
                    Set oOption = Document.CreateElement("Option") 
27.
                    oOption.Text = sText 
28.
                    Jobname.Add oOption 
29.
                End If 
30.
            Next 
31.
           'Jobname.Style.Width = 240   'Wenn's die volle Breite sein soll 
32.
        Else 
33.
            MsgBox "Datei nicht gefunden:" & vbCr & vbCr & sFileInPath, vbExclamation, "Fehler..." 
34.
        End If 
35.
 
36.
' ------------ nachträglich eingefügter Code: --- 
37.
' ------------ erstes Dropdown-Feld zur Auswahl des Vornamens 
38.
 
39.
        If oFso.FileExists(sFileInPathb) Then 
40.
            aTextb = Split(oFso.OpenTextFile(sFileInPathb).ReadAll, vbCrLf) 
41.
             
42.
            For Each sTextb In aTextb 
43.
                If sTextb <> "" Then 
44.
                    Set oOptionb = Document.CreateElement("Option") 
45.
                    oOptionb.Text = sTextb 
46.
                    Namens.Add oOptionb  ' <--------------- FEHLER: Das Objekt unterstützt diese Eigenschaft oder Methode nicht 
47.
                End If 
48.
            Next 
49.
           'Namens.Style.Width = 240 
50.
        Else 
51.
            MsgBox "Datei nicht gefunden:" & vbCr & vbCr & sFileInPath, vbExclamation, "Fehler..." 
52.
        End If 
53.
 
54.
' ------------- Ende des eingefügten Codes --------------- 
55.
 
56.
    End Sub 
57.
 
58.
    Sub ButtonOK_Click() 
59.
        Dim oFso, sPath, sComputername, sUsername, sText 
60.
         
61.
        If Datei.Value = "" Or Jobname.SelectedIndex = -1 Or Names.SelectedIndex = -1 Then 
62.
            MsgBox "Die Eingabefelder sind unvollständig!", vbExclamation, "Fehler..." 
63.
        Else 
64.
            Set oFso = CreateObject("Scripting.FileSystemObject") 
65.
             
66.
            If oFso.FolderExists(sFolderOutPath) Then 
67.
                With CreateObject("WScript.Network") 
68.
                '    sComputername = .ComputerName ' nicht mehr benötigt 
69.
                    sUsername = .UserName 
70.
                End With 
71.
                  
72.
                sPath = sFolderOutPath & "\User_" & Replace(Time, ":", "") & ".txt" 
73.
                '--- sText = Datei.Value & vbCrLf & Jobname(Jobname.SelectedIndex).Text ' & vbCrLf & sUsername 
74.
                sText = Namens(Namens.SelectedIndex).Text & "  " & Jobname(Jobname.SelectedIndex).Text 
75.
                oFso.CreateTextFile(sPath).Write sText 
76.
            Else 
77.
                MsgBox "Der Pfad existiert nicht: " & sFolderOutPath, vbExclamation, "Fehler..." 
78.
            End If 
79.
            Self.Close 
80.
        End If 
81.
    End Sub 
82.
</SCRIPT> 
83.
 
Freue mich auf Antwort
Grüße Micha
Bitte warten ..
Mitglied: Gurkenhobel
29.01.2013 um 16:55 Uhr
Hi,

nur zur Info - habe die Lösung selbst gefunden im HTML-Teil muß natürlich in Zeile 78
01.
<input type="text" name="Datei" value="" size="41">
durch
01.
<select name="Namens" size="1"></select>
analog zur Zeile 88 ausgetauscht werden und Zeile 61 meines Scripts muß richtig heißen
01.
If Jobname.SelectedIndex = -1 Or Names.SelectedIndex = -1 Then
.
Dann funktionierts auch

Grüße Micha
Bitte warten ..
Mitglied: 76109
30.01.2013 um 00:23 Uhr
Hallo Gurkrnhobel!

Deinen Fehler hast Du ja inzwischen selbst herausgefunden, aber Du solltest Dich schon für eine Bezeichnung entscheiden (Namens oder Names?), dann sollte dies auch funktionieren:
01.
If Jobname.SelectedIndex = -1 Or **Names**.SelectedIndex = -1 Then
Gruß Dieter
Bitte warten ..
Mitglied: Gurkenhobel
30.01.2013 um 11:21 Uhr
Hallo Dieter,
danke :=; ja dann nehme ich wohl
01.
... Namens.SelectedIndex = -1
(kleiner Tibbfehler)
Gruß Micha
Bitte warten ..
Mitglied: Ironhead-Hayns
06.02.2013, aktualisiert um 10:56 Uhr
Hallo zusammen,
wir haben nun auch noch ein bisschen was übernommen,und dran rum geschraubt und ein paar Abfragen eingebaut. Jetzt bin aber mal wieder blind und find es nicht! In dem 2ten Eingabefeld(der Dropbox) soll in txt Datei nun hinter dem auswählbaren Jobnamen eine Beschreibungen des selbigen stehen (damit Arzubine weiß was Sie tut, und Ihren Notizzettel weg schmeissen kann) Daher sollen aus der txt Datei Auswahl nur die ersten 8 Zeichen übernommen werden. Ich hab die "Left=(Trullala,8)" Funktion schon gefunden nur bekomme ich es wieder nicht hin! Zweitens haben meine Schäfchen mich gefragt ob es nicht möglich wäre eine Msgbox die einen nach richtige Eingabe und Starten klicken, nochmal fragt ob man sicher das die Auswahl richtig ist, und dann entweder mit Ja bestätigt oder mit Abbrechen wieder zurück springt.

Vielen Dank euch allen, ist ja richtig was draus geworden!!!



<html><head><title>Tina-SchallundRauch</title>
<HTA:APPLICATION ID="Tina" APPLICATIONNAME="Tina-SchallundRauch" SCROLL="no" SINGLEINSTANCE="yes"/>
<style type="text/css">
<!--
body { background-color:buttonface; }
table { color:buttontext; font-family:Arial; font-size:9pt; }
input { color:buttontext; font-family:Arial; font-size:9pt; }
select { color:buttontext; font-family:Arial; font-size:9pt; }

#size2 { font-size:2pt; }
#size4 { font-size:4pt; }
-->
</style></head>
<SCRIPT Language="VBScript">
Const sFolderOutPath = "C:\Tina" 'Ordner-Pfad Ausgabedatei
Const sFileInPath = "C:\Tina\jobs.txt" 'Datei-Pfad Eingabedatei (ComboBox-Daten)
Const WindowWidth = 600 'Fensterbreite
Const WindowHeight = 200 'Fensterhöhe

Sub Window_OnLoad()
Window.ResizeTo WindowWidth, WindowHeight
Window.MoveTo (Screen.Width - WindowWidth) / 2, (Screen.Height - WindowHeight) / 2
Call InitOption
Datei.Focus
End Sub

Sub InitOption()
Dim oFso, oOption, aText, sText

Set oFso = CreateObject("Scripting.FileSystemObject")

If oFso.FileExists(sFileInPath) Then
aText = Split(oFso.OpenTextFile(sFileInPath).ReadAll, vbCrLf)

For Each sText In aText
If sText <> "" Then
Set oOption = Document.CreateElement("Option")
oOption.Text = sText
Jobname.Add oOption
End If
Next
'Jobname.Style.Width = 240 'Wenn's die volle Breite sein soll
Else
MsgBox "Datei nicht gefunden:" & vbCr & vbCr & sFileInPath, vbExclamation, "Fehler..."
End If
End Sub

Sub ButtonOK_Click()
Dim oFso, sPath, sComputername, sUsername, sText
Dim ausgabe

If Datei.Value = "" Then
MsgBox "Die Eingabe darf nicht leer sein! Ein Lauf ohne Datei, bitte mit - starten.", vbExclamation, "Fehler..."
ElseIf LCase(Right(Datei.Value, 4)) <> ".csv" and Datei.Value <> "-" Then
MsgBox "Fehlerhafte Eingabe! Dateiname endet nicht auf .csv!", vbExclamation, "Fehler..."
Else
Set oFso = CreateObject("Scripting.FileSystemObject")
ausgabe = "Der Job " & Jobname(Jobname.SelectedIndex).Text & " wurde erfolgreich mit der Datei " & Datei.Value & " gestartet"
MsgBox ausgabe

If oFso.FolderExists(sFolderOutPath) Then
With CreateObject("WScript.Network")
sComputername = .ComputerName
sUsername = .UserName
End With

sPath = sFolderOutPath & "\Tina_" & Replace(Time, ":", "") & "_" & sUsername & ".sub"
sText = Datei.Value & vbCrLf & Jobname(Jobname.SelectedIndex).Text & vbCrLf & sUsername & vbCrLf & sComputername
oFso.CreateTextFile(sPath).Write sText
Else
MsgBox "Der Pfad existiert nicht: " & sFolderOutPath, vbExclamation, "Fehler..."
End If
Self.Close
End If
End Sub
</SCRIPT>

<body>
<table width="100%">
<tr>
<td>
<fieldset><legend>Datei("-" ohne Datei)</legend>
<input type="text" name="Datei" value="-" size="41">
<br><br id="size4">
</fieldset>
</td>
</tr>
</table><br id="size2">
<table width="100%">
<tr>
<td>
<fieldset><legend>Jobname</legend>
<select name="Jobname" size="1"></select>
<br><br id="size4">
</fieldset>
</td>
</tr>
</table><br id="size2">

<table width="100%">
<tr>
<td align="center">
<input type="button" style="width:60pt" value="Starten" onClick="ButtonOK_Click()">
</td>
</tr>
</table>
</body></html>



verdammt er übernimmt den Quelltext nicht richtig!
Bitte warten ..
Mitglied: 76109
13.02.2013, aktualisiert um 11:50 Uhr
Hallo Ironhead-Hayns!

Hat leider etwas gedauert, da ich derzeit wenig Zeit habe

Ändere Deine Eingangs-Datei in folgendes (Semikolon-Trennzeichen)-Format um:
Jobname;Beschreibung
Dann erscheint der Jobname in der Auswahlliste und die Beschreibung in einer seperaten Textzeile darunter.

Die Ja/Nein-Abfrage habe ich auch noch mit eingebaut.

Da Dein Code nicht in Code-Tags gesetzt ist, habe ich mir aber nicht die Mühe gemacht, den Code in ein lesbares Format abzuändern
01.
<html><head><title>Tina-SchallundRauch</title> 
02.
 <HTA:APPLICATION ID="Tina" APPLICATIONNAME="Tina-SchallundRauch" SCROLL="no" SINGLEINSTANCE="yes"/> 
03.
 <style type="text/css"> 
04.
 <!-- 
05.
 body { background-color:buttonface; } 
06.
 table { color:buttontext; font-family:Arial; font-size:9pt; } 
07.
 input { color:buttontext; font-family:Arial; font-size:9pt; } 
08.
 select { color:buttontext; font-family:Arial; font-size:9pt; } 
09.
  
10.
#size2 { font-size:2pt; } 
11.
 #size4 { font-size:4pt; } 
12.
 --> 
13.
 </style></head> 
14.
 <SCRIPT Language="VBScript"> 
15.
 Const sFolderOutPath = "C:\Tina" 'Ordner-Pfad Ausgabedatei 
16.
 Const sFileInPath = "C:\Tina\jobs.txt" 'Datei-Pfad Eingabedatei (ComboBox-Daten) 
17.
 Const WindowWidth = 600 'Fensterbreite 
18.
 Const WindowHeight = 225 'Fensterhöhe 
19.
 
20.
 Sub Window_OnLoad() 
21.
 Window.ResizeTo WindowWidth, WindowHeight 
22.
 Window.MoveTo (Screen.Width - WindowWidth) / 2, (Screen.Height - WindowHeight) / 2 
23.
 Call InitOption 
24.
 Datei.Focus 
25.
 End Sub 
26.
  
27.
Sub InitOption() 
28.
 Dim oFso, oOption, aText, sText, aOption, sOption, sComment 
29.
 
30.
 Set oFso = CreateObject("Scripting.FileSystemObject") 
31.
 
32.
 If oFso.FileExists(sFileInPath) Then 
33.
 aText = Split(oFso.OpenTextFile(sFileInPath).ReadAll, vbCrLf) 
34.
 
35.
 For Each sText In aText 
36.
 If sText <> "" Then 
37.
 aOption = Split(sText,";"):  sOption = aOption(0) 
38.
 If UBound(aOption) > 0 Then sComment = aOption(1) Else	sComment = "" 
39.
 Set oOption = Document.CreateElement("Option") 
40.
 oOption.Text = sOption 
41.
 oOption.Value = sComment 
42.
 Jobname.Add oOption 
43.
 End If 
44.
 Next 
45.
 Jobname.SelectedIndex = 0:  Call Jobname_Click() 
46.
 Jobname.Style.Width = WindowWidth - 66 'Wenn's die volle Breite sein soll 
47.
 Else 
48.
 MsgBox "Datei nicht gefunden:" & vbCr & vbCr & sFileInPath, vbExclamation, "Fehler..." 
49.
 End If 
50.
  
51.
 End Sub 
52.
  
53.
 Sub Jobname_Click() 
54.
	Kommentar.InnerHTML = Jobname(Jobname.SelectedIndex).Value 
55.
 End Sub 
56.
  
57.
 Sub ButtonOK_Click() 
58.
 Dim oFso, sPath, sComputername, sUsername, sText 
59.
 Dim ausgabe 
60.
 
61.
 If Datei.Value = "" Then  
62.
 MsgBox "Die Eingabe darf nicht leer sein! Ein Lauf ohne Datei, bitte mit - starten.", vbExclamation, "Fehler..." 
63.
 ElseIf LCase(Right(Datei.Value, 4)) <> ".csv" and Datei.Value <> "-" Then 
64.
 MsgBox "Fehlerhafte Eingabe! Dateiname endet nicht auf .csv!", vbExclamation, "Fehler..." 
65.
 Else 
66.
 Set oFso = CreateObject("Scripting.FileSystemObject") 
67.
 
68.
 If oFso.FolderExists(sFolderOutPath) Then 
69.
 With CreateObject("WScript.Network") 
70.
 sComputername = .ComputerName 
71.
 sUsername = .UserName 
72.
 End With 
73.
 
74.
 If MsgBox("Soll der Job <" & Jobname(Jobname.SelectedIndex).Text & "> jetzt audgeführt werden?", _ 
75.
			vbQuestion Or vbYesNo, "Bestätigen . . .") = vbNo Then Exit Sub 
76.
 sPath = sFolderOutPath & "\Tina_" & Replace(Time, ":", "") & "_" & sUsername & ".sub" 
77.
 sText = Datei.Value & vbCrLf & Jobname(Jobname.SelectedIndex).Text & vbCrLf & sUsername & vbCrLf & sComputername 
78.
 oFso.CreateTextFile(sPath).Write sText 
79.
 ausgabe = "Der Job " & Jobname(Jobname.SelectedIndex).Text & " wurde erfolgreich mit der Datei " & Datei.Value & " gestartet" 
80.
 MsgBox ausgabe 
81.
 Else 
82.
 MsgBox "Der Pfad existiert nicht: " & sFolderOutPath, vbExclamation, "Fehler..." 
83.
 End If 
84.
 Self.Close 
85.
 End If 
86.
 End Sub 
87.
 </SCRIPT> 
88.
  
89.
<body> 
90.
 <table width="100%"> 
91.
 <tr> 
92.
 <td> 
93.
 <fieldset><legend>Datei("-" ohne Datei)</legend> 
94.
 &nbsp;&nbsp;<input type="text" name="Datei" value="-" size="100"> 
95.
 <br><br id="size4"> 
96.
 </fieldset> 
97.
 </td> 
98.
 </tr> 
99.
 </table><br id="size2"> 
100.
 <table width="100%"> 
101.
 <tr> 
102.
 <td> 
103.
 <fieldset><legend>Jobname</legend> 
104.
 &nbsp;&nbsp;<select name="Jobname" size="1" onClick="Jobname_Click()"></select> 
105.
 <br><br id="size4"> 
106.
 &nbsp;&nbsp;<span id="Kommentar"></span> 
107.
 <br><br id="size4"> 
108.
 </fieldset> 
109.
 </td> 
110.
 </tr> 
111.
 </table><br id="size2"> 
112.
 <table width="100%"> 
113.
 <tr> 
114.
 <td align="center"> 
115.
 <input type="button" style="width:60pt" value="Starten" onClick="ButtonOK_Click()"> 
116.
 </td> 
117.
 </tr> 
118.
 </table> 
119.
 </body></html> 
120.
 
Gruß Dieter
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Batch & Shell
Batch-Variable nach Stichworten aus TXT Datei durchsuchen (3)

Frage von Markus5579 zum Thema Batch & Shell ...

Webentwicklung
gelöst HTML Output in eine txt Datei mit VisualBasicScript (2)

Frage von coca22COCA zum Thema Webentwicklung ...

Batch & Shell
Merkwürdige Zeilenformatierung in txt Datei (3)

Frage von miczar zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
M.2 SSD wird nicht erkannt (14)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...