Dos Programm mit drei Parametern automatisieren

Milan

Hallo leute

Habe da ein problem und komme mit meinen bescheidenen AutoIt kenntnissen leider nicht weiter.

So nun zu dem Problem. Habe da ein Dos Programm was dazu dient Listen zu vergleichen. 1. Es kann belibig viele Listen geben. Wieviele genau müsste vom User abgefragt werden. Diese Listen haben einen festen Namen (die erste: inv1.out die zeite:inv2.out usw. die zahl ist das was sich ändert. Die Listen befinden sich in einem festen Verzeichniss (c:\Inv_Listen) Wenn alles eingelesen ist erfolgt eine ausgabe der liste in das selbe verzeichniss.

Handisch würde das so aus sehen (Parameter sind: S= Start; L=Lesen; A=Ausgabe)

c:\inv_Listen\twb153.exe S -> Programm wird in den Startmodus versetzt

c:\inv_Listen\twb153.exe L inv1.out -> 1. Liste wird eingelesen wenn es denn mehrere gibt wird es so oft wiederholt bis alle eingelesen sind

c:\inv_Listen\twb153.exe L inv2.out ->2. Liste wird eingelesen ........ usw.

c:\inv_Listen\twb153.exe A ->hier wird vom Programm die bearbeitete Liste ausgegeben

Könnt ihr mir dabei helfen wie man das auf die Windowsoberfläche bringt und die erforderlichen sachen abgefragt werden ????

Wäre Sehr nett !!!

Gruß Milan

**Xenobiologist**

Hi,

habe noch nicht ganz verstanden, was du jetzt genau machen willst. Eine GUI die Daten abfragt und anschließend dein DOS Programm mit 3 Parametern startet?

So long,

Mega

Milan

Ja das ist genau das was ich möchte, falls noch fragen sind oder was unverständlich bitte fragen, denn ich bin für jede hilfe dankbar.

Gruß Milan

**Xenobiologist**

Hi,

ja wie soll die GUI aussehen und was soll abgefragt werden, bzw. welche Fehler müssen bei der Abfrage abgefangen werden.

Aufruf anschließend entweder mit Run oder Shellexecute oder Run @comspec.

So long,

Mega

Milan

Wie es aussehen soll habe ich mir ehrlich gesagt noch keine Gedanken gemacht. Wie das nun mal so ist bisschen Benutzerfreundlich und schick soll es auch sein. grins

mmmm und was für Fehler abgefangen werden soll. Vielleicht das man nur zahlen eingeben kann und keine Buchstaben.

Gruß

Milan

Micha_he

Eigentlich sollte man sich schon ein wenig Gedanken machen, wenn man ein Programm/Script haben möchte. Und wer Interesse am Programmieren hat, versucht es wenigstens ( auch wenn es dann schief geht ) !

hier mal einen Anfang wie es klappen könnte:

[autoit]

#include <GUIConstants.au3>

[/autoit][autoit][/autoit][autoit]

$Form1 = GUICreate("twb153", 550, 150)
$Datei = GUICtrlCreateInput("", 80, 48, 457, 21)
$Start = GUICtrlCreateButton("Start", 16, 16, 57, 25, 0)
$Lesen = GUICtrlCreateButton("Lesen", 16, 48, 57, 25, 0)
$Ende = GUICtrlCreateButton("Ende", 16, 80, 57, 25, 0)
GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg

Case $GUI_EVENT_CLOSE
Exit

Case $Start
RunWait(@ComSpec & " /c " & @scriptdir & "\twb153.exe S")

Case $Lesen
If GUICtrlRead($Datei) <> "" Then
RunWait(@ComSpec & " /c " & @scriptdir & "\twb153.exe L " & GUICtrlRead($Datei))
EndIf

Case $Ende
RunWait(@ComSpec & " /c " & @scriptdir & "\twb153.exe A")

EndSwitch
Wend

[/autoit]

Milan

Schon mal recht schönen Dank für den Anfang was für mich schon ein riesen Meilenstein ist
Gedanken habe ich mir schon gemacht so ist das ja nicht. Nur mit dem abfangen von Fehlern, da muss ich gestehen hab ich so meine Probleme so zu denken wie ein DAU smile. Bin aber bemüht das Ganze noch zu lernen, denn wie ihr hier seht bin ich sehr neu hier und bin froh das ihr einem rooky wie mir helft und hoffe im späteren verlauf auch mal mit helfen und mitreden zu können.

Gruß Milan

Milan

Das war wirklich ein super anfang nochmals Danke
Aber nun kommen wünsche smile
Kann ich mir in einem Drop Down Feld mit den Inhalt eines Verzeichnisses anzeigen lassen und dabei einen auswählen der dann übernommen wird ???
Ich neme bezug auf das oben gepostete Script (wo lesen steht)
Gruß
Milan

progandy

Schau dir mal _GUICtrlComboAddDir an

Milan

Danke für die Hilfe aber wo finde ich die Syntax für _GUICtrlComboAddDir bzw wie lautet diese.

Habe schon geschaut aber nichts gefunden

Gruß
Milan

Fast2

Ps: Autoit hat ne Hilfe, vllt. mal da suchen.

Milan

Ja da habe ich auch nachgeschaut aber nut was über _guictrlcombo gefunden aber nicht mit adddir
sorry aber vielleicht bin ich ja zu blöd zum finden. smile

Milan

Fast2

omg...
Aus der Hilfe kopiert:

Spoiler anzeigen

C

Function Reference
_GUICtrlComboAddDir 
--------------------------------------------------------------------------------


Add names to the list displayed by the combo box




#Include <GuiCombo.au3>
_GUICtrlComboAddDir ( $h_combobox, $s_Attributes [, $s_file] )




 


Parameters


$h_combobox control id/control hWnd 
$s_Attributes comma-delimited string 
$s_file Optional for "Drives" only: what Files/Folders to get
eg *.* 


 


Return Value


Success: Returns zero-based index of the last name added to the list. 
Failure: Returns $CB_ERR. 
 Returns $CB_ERRSPACE if there is insufficient space to store the new strings. 


 


Remarks


Requirement: $s_file for all but drives attribute


$s_Attributes is an comma-delimited string
valid values are any of the following:
    A,D,H,RO,RW,S,E,Drives,NB


A = ARCHIVE Includes archived files. 
D = DIRECTORY Includes subdirectories. Subdirectory names are enclosed in square brackets ([ ]). 
H = HIDDEN Includes hidden files. 
RO = READONLY Includes read-only files. 
RW = READWRITE Includes read-write files with no additional attributes. This is the default setting. 
S = SYSTEM Includes system files. 
E = EXCLUSIVE Includes only files with the specified attributes. By default, read-write files are listed even if READWRITE is not specified. 
DRIVES All mapped drives are added to the list. Drives are listed in the form [-x-], where x is the drive letter. 
NB = No Brackets  
   Drives are listed in the form x:, where x is the drive letter (used with Drives attribute)  




 


Related


_GUICtrlComboInitStorage 
 


Example




#include <GuiConstants.au3>
#include <GuiCombo.au3>
#Include <GuiStatusBar.au3>


Opt('MustDeclareVars', 1)


Dim $a_check[10], $msg, $ret, $s_attr, $allocated, $Status, $GUI
Dim $input, $group, $a_attr, $Combo, $button, $btn_exit


$GUI = GUICreate("ComboBox Add Dir", 400, 280)


GUICtrlCreateLabel("Enter files to find", 25, 15)
$input = GUICtrlCreateInput("", 125, 10, 180, 25)
$group = GUICtrlCreateGroup("Atrributes", 10, 40, -1, 200)
$a_attr = StringSplit("A,D,H,RO,RW,S,E,Drives,NB", ",")
$a_check[0] = 9
$a_check[1] = GUICtrlCreateCheckbox("Archive", 15, 55, 170, 20)
$a_check[2] = GUICtrlCreateCheckbox("Directory", 15, 75, 170, 20)
$a_check[3] = GUICtrlCreateCheckbox("Hidden", 15, 95, 170, 20)
$a_check[4] = GUICtrlCreateCheckbox("Read-Only", 15, 115, 170, 20)
$a_check[5] = GUICtrlCreateCheckbox("Read-Write", 15, 135, 95, 20)
$a_check[6] = GUICtrlCreateCheckbox("System", 15, 155, 170, 20)
$a_check[7] = GUICtrlCreateCheckbox("Exclusive", 15, 175, 170, 20)
$a_check[8] = GUICtrlCreateCheckbox("Drives", 15, 195, 170, 20)
$a_check[9] = GUICtrlCreateCheckbox("No Brackets (Drives Only)", 15, 215, 170, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group


$Combo = GUICtrlCreateCombo("", 240, 40, 120, 120, $CBS_SIMPLE)
$allocated = _GUICtrlComboInitStorage ($Combo, 26, 50)


$button = GUICtrlCreateButton("Get Names", 240, 160, 120, 40)
$btn_exit = GUICtrlCreateButton("Exit", 240, 205, 120, 40)


$Status = _GUICtrlStatusBarCreate ($GUI, -1, "")
_GUICtrlStatusBarSetSimple ($Status)
_GUICtrlStatusBarSetText ($Status, "Pre-Allocated Memory For: " & $allocated & _
      " Items Added To ComboBox: " & _GUICtrlComboGetCount ($Combo), 255)
GUISetState()
While 1
   $msg = GUIGetMsg()
   Select
      Case $msg = $GUI_EVENT_CLOSE Or $msg = $btn_exit
         ExitLoop
      Case $msg = $button
         $s_attr = ""
         For $i = 1 To $a_check[0]
            If (BitAND(GUICtrlRead($a_check[$i]), $GUI_CHECKED)) Then
               If (StringLen($s_attr) > 0) Then
                  $s_attr &= "," & $a_attr[$i]
               Else
                  $s_attr = $a_attr[$i]
               EndIf
            EndIf
         Next
         _GUICtrlComboResetContent ($Combo)
         $ret = _GUICtrlComboAddDir ($Combo, $s_attr, GUICtrlRead($input))
         If ($ret < 0) Then
            If ($ret == $CB_ERRATTRIBUTE) Then
               MsgBox(16, "Error", "Invalid Attribute sent to _GUICtrlComboAddDir")
            ElseIf ($ret == $CB_ERRSPACE) Then
               MsgBox(16, "Error", "insufficient space to store the new strings from calling _GUICtrlComboAddDir")
            ElseIf ($ret == $CB_ERRREQUIRED) Then
               MsgBox(16, "Error", "Argument required for file search in call to _GUICtrlComboAddDir")
            ElseIf ($ret == $CB_ERR) Then
               MsgBox(16, "Error", "Unknown error from _GUICtrlComboAddDir" & @CRLF & "Possibly no files/folders found")
            EndIf
         EndIf
         _GUICtrlStatusBarSetText ($Status, "Pre-Allocated Memory For: " & $allocated & _
               " Items Added To ComboBox: " & _GUICtrlComboGetCount ($Combo), 255)
   EndSelect
WEnd
Exit

Alles anzeigen

@admins: Der Button für Code fehlt

Milan

Danke schön habe es aber wirklich nicht gefunden.

nur leider warscheinlich wieder mal zu ungeschikt kann ich damit nicht viel anfangen denn es zeigt mir die Laufwerke an aber nicht was in einem bestimmten verzeichniss ist und es so umzuschreiben das es das macht was ich möchte dazu bin ich zu neu.

Gruß Milan

Micha_he

Na gut, vielleicht hilft Dir dieses Beispiel. Nur einbauen muss Du es dann selbst....

Spoiler anzeigen

[autoit]

#Include <GuiComboBox.au3>

[/autoit] [autoit][/autoit] [autoit]

$GUI = GUICreate("ComboAddDir",400,300)
$Combo = GUICtrlCreateCombo("", 2, 2, 396, 296)
$Lesen = GUICtrlCreateButton("Lesen",20,30)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlComboBox_AddDir ($Combo, @WindowsDir & "\*.exe")

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg

Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $Lesen
Msgbox(0,"Ergebnis","Gewählt wurde : " & GUICtrlRead($Combo))

EndSwitch
Wend

[/autoit]

Milan

Auch hierfür lieben Danke ich werde es versuchen smile wenn es nicht klappen sollte darf ichmich bestimmt nochmal an dich wenden hoffe ich.

Gruß Milan

Milan

Habe es nun über 2 Tage probiert aber irgend wie bekomme ich das nicht hin. gibt immer noch Fehlermeldungen von wegen wend oder endif oder desgleichen bin noch nicht dahinter gekommen was ich Falschmache. habt ihr tips für mich????

Gruß
Milan

Micha_he

ScriptCode ?

Milan

Sorry völlig vergessen

[autoit]

#include <GUIConstants.au3>

[/autoit][autoit][/autoit][autoit]

$Form1 = GUICreate("twb153", 550, 150)
$Datei = GUICtrlCreateInput("", 80, 48, 457, 21)
$Start = GUICtrlCreateButton("Start", 16, 16, 57, 25, 0)
;$Lesen = GUICtrlCreateButton("Lesen", 16, 48, 57, 25, 0)
$Ende = GUICtrlCreateButton("Ende", 16, 80, 57, 25, 0)
$Loeschen = GUICtrlCreateButton("Inv.out Löschen" , 16, 112, 100, 25, 0)
$Alles = GUICtrlCreateButton("Alle .out Löschen" , 120, 112, 100, 25, 0)
$GUI = GUICreate("ComboAddDir",400,300)
$Combo = GUICtrlCreateCombo("", 2, 2, 396, 296)
$Lesen = GUICtrlCreateButton("Lesen",20,30)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

GUICtrlSetState($Ende,$GUI_DISABLE)
GUICtrlSetState($Lesen,$GUI_DISABLE)

[/autoit][autoit][/autoit][autoit]

GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

_GUICtrlComboBox_AddDir ($Combo, @WindowsDir & "\*.*")

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg

Case $GUI_EVENT_CLOSE
Exit

Case $Start
GUICtrlSetState($Start,$GUI_DISABLE)
GUICtrlSetState($Ende,$GUI_ENABLE)
GUICtrlSetState($Lesen,$GUI_ENABLE)
RunWait(@ComSpec & " /c " & @scriptdir & "\twb153.exe S")

;Case $Lesen
Case $Lesen
Msgbox(0,"Ergebnis","Gewählt wurde : " & GUICtrlRead($Combo))
;If GUICtrlRead($Datei) <> "" Then
;RunWait(@ComSpec & " /c " & @scriptdir & "\twb153.exe L " & GUICtrlRead($Datei))

Case $Ende
GUICtrlSetState($Start,$GUI_ENABLE)
GUICtrlSetState($Ende,$GUI_DISABLE)
GUICtrlSetState($Lesen,$GUI_DISABLE)
RunWait(@ComSpec & " /c " & @scriptdir & "\twb153.exe A")

Case $Loeschen
If Not FileExists ("c:\inv_Dateien\inv.out") Then
MsgBox(1, "Datei", "Der Text in Zeile1" & @CRLF & "und der in Zeile 2")

[/autoit][autoit][/autoit][autoit]

EndIf

If FileExists("c:\inv_Dateien\inv.out") Then
FileDelete("c:\inv_Dateien\inv.out")

[/autoit][autoit][/autoit][autoit]

EndIf

Case $Alles
FileDelete("c:\inv_dateien\*.out")

EndSwitch
Wend

[/autoit]

Milan

Kann das sein das mit das -> #Include <GuiComboBox.au3> fehlt oder gänzlich das file dafür???

Habe gerade nachgeschaut mir fehlt <GuiComboBox.au3 die normale GuiCombo.au3 habe ich !!!!!!!! woher bekomme ich diese