Hallo zusammen,
ich benötige mal wieder eure Hilfe
Ich möchte gerne eine Tabelle anlegen lassen.
Das heißt, ich lese Inputboxen aus, & verarbeite dies in einer Datei.
bsp. erstens: Eine Akte wird entnommen.
Die Akte sowie dazugehöriges wird mit einem Barcode Scanner abgescannt.
Dieser überträgt die Zahlen und begriffe in die Input boxen.
Durch bestätigen wird eine Datei erstellt. bzw.
wenn die Datei existiert soll diese gefüllt werden.
Mit folgendem Inhalt :
Inhalt der erstellten *txt
<Data><STATUS>nicht im Fach</STATUS><DATUM> $datum </DATUM><UHRZEIT> $uhrzeit </UHRZEIT><ART> Name-Akte </ART><SBO>alteSeriennummer</SBO><SBN> bleibt leer </SBN><LStatus>NOT</LStatus></Data>
zweitens : Die Akte wurde entnommen, die Zentrale bekommt eine Pusch Nachricht.(von einem anderen script die die erstellte datei überwacht.)
die zentrale trägt alteSeriennummer ins system ein.Nun möchte ich die Datei verändern lassen.
von <LStatus>NOT</LStatus> soll nun nach dem bestätigen in <LStatus>YES</LStatus>,
umgetragen werden.
drittens : die Akte ist zurück, nun soll <STATUS>‘zurück im fach‘</STATUS>
& <SBN>‘neueSeriennummer‘</SBN> geändert werde und das wieder zu <LStatus>Wait</LStatus> bis die neue nummer von der zentrale wieder bestätigt wurde.
Wie mache ich das? als Anhaltspunkt sind <STATUS>nicht im Fach</STATUS> & <SBN></SBN> leer sowie der Aktenname <ART> Name-Akte </ART>.
Ich habe etwas mit StringRegExpReplace rumgetestest bin aber zu keinem vernünftigem Ergebnis gekommen. Die enddatei soll natürlich immer weiter geführt werden wie ein Logbuch.
Hier mal meine dateien die ich bisher habe, wenn ihr es ausführt habt ihr vielleicht ein besseres Bild davon was ich machen will.
Die rumexperimentation mit StringRegExpReplace habe ich mal rausgenommen um euch die übersicht zu wahren. bisher läuft nur die GUI die Txt datei muss man selber erstellen um es zu testen.
Da ich noch nicht weiß ob genau so die Enddatei aufgebaut wird wie es grad der fall ist oder noch was hinzukommtsteht noch aus
Ihr würdes mir schon helfen wenn ich das Array durch gehe, darin den selben akten namen finde prüfe auf welchem status <STATUS></STATUS> & <LStatus></LStatus> steht und diese werte dann ensprechend mit
StringRegExpReplace ändern kann ohne die anderen zeilen anzutasten oder es komplett neu in die datei zu schreiben.
Ich danke schon mal für eure weißheiten
#include : 1.au3
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <Array.au3>
func Neue($Titel, $Group01, $combodata, $keylimit_0, $keylimit_1, $keylimit_2,$Label01,$Label02, $Label03, $Label04,$Label05,$Label06,$combodata2, $Label07, $Label08, $box01, $BTN01, $BTN02, $Group02, $listTyp, $Group03,$Group04,$Label09, $combodata3) ; 24
Local $GUI_Form, $Group_01, $Combo1, $input_01, $input_02, $input_03, $Lable_01, $Lable_02, $Lable_03, $Lable_04,$Lable_05,$Lable_06,$Combo2, $input_04, $input_05
Local $Lable_07, $Lable_08, $input_06, $Checkbox_01, $Button_01, $Button_02
Local $Group_02, $viewlist_01, $Group_03, $Edit_01, $Group_04, $Edit_02, $Lable_09, $Combo3, $Gui_array[0]
$GUI_Form = GUICreate($Titel, 1007, 895)
$Group_01 = GUICtrlCreateGroup($Group01, 8, 8, 985, 273)
$Combo1 = GUICtrlCreateCombo("", 29, 58, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $combodata)
$input_01 = GUICtrlCreateInput("", 191, 58, 145, 21)
GUICtrlSetLimit($input_01, $keylimit_0)
GUICtrlSetState($input_01,$GUI_DISABLE)
$input_02 = GUICtrlCreateInput("", 30, 160, 409, 21)
GUICtrlSetLimit($input_02, $keylimit_1)
GUICtrlSetState(-1,$GUI_DISABLE)
$input_03 = GUICtrlCreateInput("", 33, 231, 401, 21)
GUICtrlSetLimit($input_03, $keylimit_2)
GUICtrlSetState(-1,$GUI_DISABLE)
$Lable_01 = GUICtrlCreateLabel($Label01, 32, 208, 110, 17)
$Lable_02 = GUICtrlCreateLabel($Label02, 32, 136, 110, 17)
$Lable_03 = GUICtrlCreateLabel($Label03, 24, 33, 149, 17)
$Lable_04 = GUICtrlCreateLabel($Label04, 192, 37, 110, 17)
$Lable_05 = GUICtrlCreateLabel($Label05, 518, 33, 149, 17)
$Lable_06 = GUICtrlCreateLabel($Label06, 686, 37, 110, 17)
$Combo2 = GUICtrlCreateCombo("", 523, 58, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $combodata2)
GUICtrlSetState(-1,$GUI_DISABLE)
$input_04 = GUICtrlCreateInput("", 685, 58, 145, 21)
GUICtrlSetLimit($input_04, $keylimit_0)
GUICtrlSetState(-1,$GUI_DISABLE)
$input_05 = GUICtrlCreateInput("", 524, 160, 409, 21)
GUICtrlSetLimit($input_05, $keylimit_2)
GUICtrlSetState(-1,$GUI_DISABLE)
$Lable_07 = GUICtrlCreateLabel($Label07, 526, 136, 110, 17)
$Lable_08 = GUICtrlCreateLabel($Label08, 526, 208, 110, 17)
$input_06 = GUICtrlCreateInput("", 527, 231, 401, 21)
GUICtrlSetLimit($input_06, $keylimit_1)
GUICtrlSetState(-1,$GUI_DISABLE)
$Checkbox_01 = GUICtrlCreateCheckbox($box01, 528, 104, 241, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button_01 = GUICtrlCreateButton($BTN01, 16, 536, 467, 33)
$Button_02 = GUICtrlCreateButton($BTN02, 496, 536, 497, 33)
$Group_02 = GUICtrlCreateGroup($Group02, 8, 584, 481, 305)
$viewlist_01 = GUICtrlCreateListView($listTyp, 16, 600, 465, 281)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_03 = GUICtrlCreateGroup($Group03, 496, 584, 497, 305)
$Edit_01 = GUICtrlCreateEdit("", 504, 600, 481, 281)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_04 = GUICtrlCreateGroup($Group04, 8, 288, 985, 241)
$Edit_02 = GUICtrlCreateEdit("", 16, 312, 969, 145)
GUICtrlSetData(-1, "")
$Lable_09 = GUICtrlCreateLabel($Label09, 16, 464, 200, 17)
$Combo3 = GUICtrlCreateCombo("", 24, 488, 961, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $combodata3)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
_ArrayAdd($Gui_array, $GUI_Form)
_ArrayAdd($Gui_array, $Combo1)
_ArrayAdd($Gui_array, $input_01)
_ArrayAdd($Gui_array, $input_02)
_ArrayAdd($Gui_array, $input_03)
_ArrayAdd($Gui_array, $Combo2)
_ArrayAdd($Gui_array, $input_04)
_ArrayAdd($Gui_array, $input_05)
_ArrayAdd($Gui_array, $input_06)
_ArrayAdd($Gui_array, $Checkbox_01)
_ArrayAdd($Gui_array, $Button_01)
_ArrayAdd($Gui_array, $Button_02)
_ArrayAdd($Gui_array, $viewlist_01)
_ArrayAdd($Gui_array, $Edit_01)
_ArrayAdd($Gui_array, $Edit_02)
_ArrayAdd($Gui_array, $Combo3)
Return $Gui_array
EndFunc
Func START($Titel, $Group_01, $BTN01, $BTN02, $Group_02, $BTN03, $BTN04, $BTN05, $Group_03, $BTN06, $BTN07, $BTN08, $Label01,$Group_04)
Local $GUI_Form, $Button_01, $Button_02, $GUI_02, $Button_03, $Button_04, $Button_05, $GUI_03, $Button_06, $Button_07, $Button_08, $Label_01, $Edit_01, $Gui_array[0]
Local $GUI_01, $GUI_04
Local $progress_01
Local $Item_0_0,$Item_0_1,$Item_0_2,$Item_0_3,$Item_0_4,$Item_0_6,$Item_1_0,$Item_2_0
$GUI_Form = GUICreate($Titel, 1105, 583)
$Item_0_0 = GUICtrlCreateMenu("MenuItem1")
$Item_0_1 = GUICtrlCreateMenuItem("UpdateVerlauf", $Item_0_0)
$Item_0_2 = GUICtrlCreateMenuItem("MenuItem3", $Item_0_0)
$Item_0_3 = GUICtrlCreateMenuItem("MenuItem4", $Item_0_0)
$Item_0_4 = GUICtrlCreateMenuItem("Einstellungen", $Item_0_0)
$Item_0_6 = GUICtrlCreateMenuItem("Beenden", $Item_0_0)
$Item_1_0 = GUICtrlCreateMenu("MenuItem7")
$Item_2_0 = GUICtrlCreateMenu("MenuItem8")
$GUI_01 = GUICtrlCreateGroup($Group_01, 40, 104, 521, 225)
$Button_01 = GUICtrlCreateButton($BTN01, 88, 144, 345, 41)
$Button_02 = GUICtrlCreateButton($BTN02, 88, 208, 345, 41)
$progress_01 = GUICtrlCreateProgress(48, 304, 489, 9)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GUI_02 = GUICtrlCreateGroup($Group_02, 568, 104, 505, 225)
$Button_03 = GUICtrlCreateButton($BTN03, 608, 144, 425, 41)
$Button_04 = GUICtrlCreateButton($BTN04, 608, 208, 425, 41)
$Button_05 = GUICtrlCreateButton($BTN05, 608, 264, 425, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GUI_03 = GUICtrlCreateGroup($Group_03, 40, 336, 521, 225)
$Button_06 = GUICtrlCreateButton($BTN06, 96, 368, 377, 41)
$Button_07 = GUICtrlCreateButton($BTN07, 96, 424, 377, 41)
$Button_08 = GUICtrlCreateButton($BTN08, 96, 480, 377, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label_01 = GUICtrlCreateLabel($Label01, 194, 9, 550, 75)
GUICtrlSetFont(-1, 40, 400, 0, "@Malgun Gothic")
$GUI_04 = GUICtrlCreateGroup($Group_04, 568, 336, 521, 225)
$Edit_01 = GUICtrlCreateEdit("", 576, 352, 505, 201)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
_ArrayAdd($Gui_array, $GUI_Form);form
_ArrayAdd($Gui_array, $Button_01);button01
_ArrayAdd($Gui_array, $Button_02);button02
_ArrayAdd($Gui_array, $Button_03);button03
_ArrayAdd($Gui_array, $Button_04);button04
_ArrayAdd($Gui_array, $Button_05);button05
_ArrayAdd($Gui_array, $Button_06);button06
_ArrayAdd($Gui_array, $Button_07);button07
_ArrayAdd($Gui_array, $Button_08);button08
Return $Gui_array
EndFunc
func RueckgabeAusgabe($Titel, $label_1, $Group_01, $label_2, $label_3, $combodata, $keylimit_0, $Group_02, $keylimit_1, $label_4, $keylimit_2, $label_5, $BTN01, $label_6, $listTyp)
Local $GUI_Form, $Label_01, $GUI_01, $Label_02, $Label_03, $Combo1, $input_01, $GUI_02, $input_02, $Label_04, $input_03, $Label_05, $Button_01, $Label_06, $viewlist_01, $Gui_array[0]
$GUI_Form = GUICreate($Titel, 952, 823);, 955, 256)
$Label_01 = GUICtrlCreateLabel($label_1, 24, 8, 457, 100)
GUICtrlSetFont(-1, 40, 400, 0, "@Malgun Gothic")
$GUI_01 = GUICtrlCreateGroup($Group_01, 16, 144, 313, 129)
$Label_02 = GUICtrlCreateLabel($label_2, 72, 223, 59, 17)
$Label_03 = GUICtrlCreateLabel($label_3, 214, 223, 50, 17)
$Combo1 = GUICtrlCreateCombo("", 30, 200, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $combodata)
$input_01 = GUICtrlCreateInput("", 192, 200, 113, 21, $ES_NUMBER) ; Objektnummer
GUICtrlSetLimit($input_01, $keylimit_0)
GUICtrlSetState($input_01,$GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GUI_02 = GUICtrlCreateGroup($Group_02, 336, 144, 569, 129)
$input_02 = GUICtrlCreateInput("", 356, 200, 274, 21) ;Safebag nummer
GUICtrlSetLimit($input_02, $keylimit_1)
GUICtrlSetState($input_02,$GUI_DISABLE)
$Label_04 = GUICtrlCreateLabel($label_4, 408, 223, 85, 17)
$input_03 = GUICtrlCreateInput("", 656, 200, 233, 21); Schlüsselcode
GUICtrlSetLimit($input_03, $keylimit_2)
GUICtrlSetState($input_03,$GUI_DISABLE)
$Label_05 = GUICtrlCreateLabel($label_5, 686, 223, 85, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button_01 = GUICtrlCreateButton($BTN01, 592, 312, 313, 33)
$Label_06 = GUICtrlCreateLabel($label_6, 32, 320, 215, 17)
$viewlist_01 = GUICtrlCreateListView($listTyp, 8, 376, 930, 438)
GUISetState(@SW_HIDE)
_ArrayAdd($Gui_array, $GUI_Form);form
_ArrayAdd($Gui_array, $Combo1);combo
_ArrayAdd($Gui_array, $input_01);objejtnummer
_ArrayAdd($Gui_array, $input_02);;Safebag nummer
_ArrayAdd($Gui_array, $input_03);;schlüssel nummer
_ArrayAdd($Gui_array, $Button_01);btn1
_ArrayAdd($Gui_array, $viewlist_01)
Return $Gui_array
EndFunc
Func _Datei_lesen($file, $filter, $intPars)
Local $aFile = FileReadToArray($file), $aDataArray[UBound($aFile)][$intPars], $aRx
For $i = 0 To UBound($aFile) - 1 Step 1
$aRx = StringRegExp($aFile[$i], $filter, 3)
If @error Then
ConsoleWrite("! Error parsing line " & $i & ": '" & $aFile[$i] & "'" & @CRLF)
Else
For $j = 0 To UBound($aRx) -1 Step 1
$aDataArray[$i][$j] = $aRx[$j]
Next
EndIf
Next
Return $aDataArray
EndFunc
Alles anzeigen
Script Datei 2.au3:
#include <MsgBoxConstants.au3>
#include <date.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <1.au3>
Global $aStartGui, $aRueckgabe
$aStartGui=START('AV-Key-System', "Master PDF/CSV Datei erstellen.", "PDF erstellen", "CSV Datei erstellen (excel datei)", "Für die Einsatzleitung", "Ausgabeprotokoll anlegen", "Rückgabeprotokoll anlegen", "Akte/Schlüssel entnehmen wegen änderung", "leer", "leer", "leer", "leer", "- Akten Tool -","letzter Status")
$aEinsatRueckgabe=RueckgabeAusgabe('Rückgabeprotokoll', 'Rückgabeprotokoll', 'Interne Aktennummer', 'ObjTyp.', 'Objnr.',"TEL_|ObjNr_",6 ,'Safebag & Schlüsselprotokoll, bitte ab hier Scannen',20,'Safebagnummer',6,'Schlüsselnummer','speichern','letzte Einträge','Zeit+Datum|Objnr.|SfB - alt|SfB - neu|Schlüssel Plombe|Status|Status zentrale')
$aEinsatAusgabe=RueckgabeAusgabe('Ausgabeprotokoll', 'Ausgabeprotokoll', 'Interne Aktennummer', 'ObjTyp.', 'Objnr.',"TEL_|ObjNr_",6,'Safebag & Schlüsselprotokoll, bitte ab hier Scannen',20,'Safebagnummer',6,'Schlüsselnummer','speichern','letzte Einträge','Zeit+Datum|Objnr.|SfB - alt|SfB - neu|Status|Status zentrale')
$aEinsatzAenderung=Neue("Akte/Schlüssel entnehmen wegen änderung", 'Trage die Safebagnummern ein, alte und neue', 'TEL_|ObjNr_',6,20,6,'Schlüsselplombe-alt : ','Safebagnummer-alt : ','ObjTyp.','Objnr.','ObjTyp.','Objnr.','TEL_||ObjNr_','Schlüsselplombe-neu : ','Safebagnummer-neu : ','Neues Safebag erst später eintragen','Button_1','Button_2','letzte Einträge in der Liste','Zeit+Datum|Objnr.|SfB - alt|SfB - neu|Status|Status zentrale','aktueller Status','Grund für die Öffnung des Safebags, bitte hier eingeben','vorgefertigte Antworten','Neukunde, Mappe + Schlüssel wurden hinterlegt.|Es wurden änderungen an der Akte vorgenommen.|Es wurden neue Schlüssel vom Kunden hinterlegt.|Es wurden Schlüssel mit dem Kunden getauscht.|Kunde hat gekündigt, Schließmittel gehen zurück an den Kunden und Mappe wurde aus dem Archiv entfernt') ; 24
Global $array[0]
$aarray = _Datei_lesen(@ScriptDir &'\testfile.txt', "<STATUS>(.*?)</STATUS><DATUM>(.*?)</DATUM><UHRZEIT>(.*?)</UHRZEIT><ART>(.*?)</ART><SBO>(.*?)</SBO>(.*?)<SBN>(.*?)</SBN><SBS>(.*?)</SBS><LStatus>", 8)
While(1)
$aMsg = GUIGetMsg($GUI_EVENT_ARRAY)
Switch $aMsg[1]
Case $aStartGui[0] ;startgui
Switch $aMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $aStartGui[1]
MsgBox(1, 'test', 't1')
Case $aStartGui[2]
MsgBox(1, 'test', 't2')
Case $aStartGui[3]
MsgBox(1, 'test', 't3')
GUISetState(@SW_HIDE, $aStartGui[0])
ConsoleWrite(@CRLF&'Ausgabeprotokoll.Form.anzeigen...')
GUISetState(@SW_Show, $aEinsatAusgabe[0])
Case $aStartGui[4]
MsgBox(1, 'test', 't4')
GUISetState(@SW_HIDE, $aStartGui[0])
ConsoleWrite(@CRLF&'Rueckgabe.Form.anzeigen...')
GUISetState(@SW_Show, $aEinsatRueckgabe[0])
Case $aStartGui[5]
MsgBox(1, 'test', 't5')
GUISetState(@SW_SHOW, $aEinsatzAenderung[0])
ConsoleWrite(@CRLF&'Start.Form.anzeigen...')
GUISetState(@SW_HIDE, $aStartGui[0])
Case $aStartGui[6]
MsgBox(1, 'test', 't6')
Case $aStartGui[7]
MsgBox(1, 'test', 't7')
Case $aStartGui[8]
MsgBox(1, 'test', 't8')
EndSwitch
Case $aEinsatRueckgabe[0] ;Rückgabeprotokoll
Switch $aMsg[0]
Case $GUI_Event_Close
GUISetState(@SW_SHOW, $aStartGui[0])
ConsoleWrite(@CRLF&'Start.Form.anzeigen...')
GUISetState(@SW_HIDE, $aEinsatRueckgabe[0])
Case $aEinsatRueckgabe[1]
$sArt = GUICtrlRead($aEinsatRueckgabe[1])
$sInput01 = GUICtrlRead($aEinsatRueckgabe[2])
If not $sArt = '' Then
GUICtrlSetState($aEinsatRueckgabe[2],64)
ControlClick('', '',$aEinsatRueckgabe[2])
EndIf
Case $aEinsatRueckgabe[2]
$SB = GUICtrlRead($aEinsatRueckgabe[2])
;~ If not $SB = '' Then
if send("{ENTER}") then
GUICtrlSetState($aEinsatRueckgabe[3],64)
ControlClick('', '',$aEinsatRueckgabe[3])
EndIf
Case $aEinsatRueckgabe[3]
$SB = GUICtrlRead($aEinsatRueckgabe[3])
If StringLen($SB) = 20 Then
GUICtrlSetState($aEinsatRueckgabe[4],64)
ControlClick('', '',$aEinsatRueckgabe[4])
EndIf
Case $aEinsatRueckgabe[4]
$SB = GUICtrlRead($aEinsatRueckgabe[4])
If StringLen($SB) = 6 Then
GUICtrlSetState($aEinsatRueckgabe[5],64)
EndIf
EndSwitch
Case $aEinsatAusgabe[0] ;ausgabe
Switch $aMsg[0]
Case $GUI_Event_Close
GUISetState(@SW_SHOW, $aStartGui[0])
ConsoleWrite(@CRLF&'Start.Form.anzeigen...')
GUISetState(@SW_HIDE, $aEinsatAusgabe[0])
Case $aEinsatAusgabe[1]
$sArt = GUICtrlRead($aEinsatAusgabe[1])
$sInput01 = GUICtrlRead($aEinsatAusgabe[2])
If not $sArt = '' Then
GUICtrlSetState($aEinsatAusgabe[2],64)
ControlClick('', '',$aEinsatAusgabe[2])
EndIf
Case $aEinsatAusgabe[2]
$SB = GUICtrlRead($aEinsatAusgabe[2])
if send("{ENTER}") then
GUICtrlSetState($aEinsatAusgabe[3],64)
ControlClick('', '',$aEinsatAusgabe[3])
EndIf
Case $aEinsatAusgabe[3]
$SB = GUICtrlRead($aEinsatAusgabe[3])
If StringLen($SB) = 20 Then
GUICtrlSetState($aEinsatAusgabe[4],64)
ControlClick('', '',$aEinsatAusgabe[4])
EndIf
Case $aEinsatAusgabe[4]
$SB = GUICtrlRead($aEinsatAusgabe[4])
If StringLen($SB) = 6 Then
GUICtrlSetState($aEinsatAusgabe[5],64)
EndIf
EndSwitch
Case $aEinsatzAenderung[0] ;änderungsprotokoll
Switch $aMsg[0]
Case $GUI_Event_Close
GUISetState(@SW_SHOW, $aStartGui[0])
ConsoleWrite(@CRLF&'Start.Form.anzeigen...')
GUISetState(@SW_HIDE, $aEinsatzAenderung[0])
Case $aEinsatzAenderung[1]
$sArt = GUICtrlRead($aEinsatzAenderung[1])
$sInput01 = GUICtrlRead($aEinsatzAenderung[2])
If not $sArt = '' Then
GUICtrlSetState($aEinsatzAenderung[2],64)
ControlClick('', '',$aEinsatzAenderung[2])
EndIf
Case $aEinsatzAenderung[2]
$SB = GUICtrlRead($aEinsatzAenderung[2])
;~ If not $SB = '' Then
if send("{ENTER}") then
GUICtrlSetState($aEinsatzAenderung[3],64)
ControlClick('', '',$aEinsatzAenderung[3])
EndIf
Case $aEinsatzAenderung[3]
$SB = GUICtrlRead($aEinsatzAenderung[3])
If StringLen($SB) = 20 Then
GUICtrlSetState($aEinsatzAenderung[4],64)
ControlClick('', '',$aEinsatzAenderung[4])
EndIf
Case $aEinsatzAenderung[4]
$SB = GUICtrlRead($aEinsatzAenderung[4])
If StringLen($SB) = 6 Then
GUICtrlSetState($aEinsatzAenderung[5],64)
EndIf
Case $aEinsatzAenderung[5]
$sArt = GUICtrlRead($aEinsatzAenderung[5])
$sInput01 = GUICtrlRead($aEinsatzAenderung[5])
If not $sArt = '' Then
GUICtrlSetState($aEinsatzAenderung[6],64)
ControlClick('', '',$aEinsatzAenderung[6])
EndIf
Case $aEinsatzAenderung[6]
$SB = GUICtrlRead($aEinsatzAenderung[6])
if send("{ENTER}") then
GUICtrlSetState($aEinsatzAenderung[7],64)
ControlClick('', '',$aEinsatzAenderung[7])
EndIf
Case $aEinsatzAenderung[7]
$SB = GUICtrlRead($aEinsatzAenderung[7])
If StringLen($SB) = 6 Then
GUICtrlSetState($aEinsatzAenderung[8],64)
ControlClick('', '',$aEinsatzAenderung[8])
EndIf
EndSwitch
EndSwitch
WEnd
Func schreibe_File_ausgabe_test()
While 1
Sleep(250)
$sInput02 = GUICtrlRead($aEinsatzAenderung[3])
$sInput03 = GUICtrlRead($aEinsatzAenderung[4])
;~ MsgBox(1, '', 'Objnr: '&$sArt&$sInput01 &' SafebagALT : '& $sInput02 &' SPlombe : '& $sInput03)
$sArt1 = GUICtrlRead($aEinsatzAenderung[5])
$sInput04 = GUICtrlRead($aEinsatzAenderung[6])
$sInput05 = GUICtrlRead($aEinsatzAenderung[7])
$sInput06 = GUICtrlRead($aEinsatzAenderung[8])
MsgBox(1, '', 'Objnr: '&$sArt1&$sInput04 &' sPlombeNEU : '& $sInput05 &' SafebagNEU : '& $sInput06)
WEnd
FileWrite('test.txt', '<STATUS></STATUS><DATUM>'&@MDAY&'-'& @Mon&'-'&@Year&'</DATUM><UHRZEIT>'&@HOUR&':'& @MIN&':'& @SEC&'</UHRZEIT><ART></ART><SBO></SBO><SBN></SBN><SBS></SBS><LStatus>'& @CRLF)
EndFunc
Alles anzeigen