Perfekt, vielen Dank!
Beiträge von Sirius
-
-
Hallo.
ich würde gerne wissen, ob folgendes in AutoIt umzusetzen ist und wie.
Und zwar habe ich ein Umbenennungstool geschrieben. Ich habe in diesem Tool Comboboxen als Dropdown die ich über eine txt-Datei einlese und mit Daten fülle.
Jetzt möchte ich gerne den Inhalt einer Combobox abhängig von der Auswahl einer vorherigen Combobox machen. Und zwar, wenn ich in der Combobox 2 den Ort Köln auswähle, dann möchte ich in der Combobox 3 nur die Daten zur Auswahl haben, die in der txt-Datei dem Ort Köln zugeordnet ist.
Vielen Dank!
-
Hi autoiter,
ich meinte eine txt Datei wo Daten hinterlegt sind, welche in eine Combobox geladen werden.
Weil das eine Menge Daten sind, hab diese extra in einer txt hinterlegt, damit mein Script übersichtlicher bleibt.
Ich bin halt ein Anfänger.
-
Hallo.
kann man eine ini-Datei mit kompilieren, damit man in dieser Datei nicht rum fuschen kann?
Vielen Dank!
-
Hallo Bitnugger!
Funktioniert perfekt!!!!
Vielen Dank!
-
Hallo zusammen.
Irgendwie stehe ich komplett auf dem Schlauch! Ich versuche erstmal zu erklären, was ich genau vor habe.
Ich habe eine Ordnerstruktur die wie folgt aussieht:
S:\04 Objekte\dieser Ordnername ändert sich\02 Wartungen\05 Leistungsjahre\dieser Ordnername ändert sich\01 Dokumentation
Jetzt würde ich gerne eine Liste erstellen, die allen Files die sich in den o.g. Ordnern befinden.
Wie setze ich das am besten um? Ich habe folgendes probiert, aber leider nicht mit dem gewünschten Erfolg.
Wenn ich das Array $afolder abfrage, dann stimmt noch alles. Wenn ich aber z.B. den String $Dokupath abfrage dann gibt er mir nur 3 oder 4 Strings zurück.
Wo ist der Fehler, oder kann man das so überhaupt in Autoit umsetzen?
Code$sPath = "S:\04 Objekte" $sFilter = "*" $iFlag = 2 $afolder = _FileListToArray($sPath, $sFilter, $iFlag) For $i = 1 To $afolder[0] $syear = $sPath & "\" & $afolder[$i] & "\02 Wartungen\05 Leistungsjahre" $ayearlist = _FileListToArray($syear, $sFilter, $iFlag) $DokuPath = $sPath & "\" & $afolder[$i] & "\02 Wartungen\05 Leistungsjahre" & "\" & $ayearlist[$i] & "\" Next
Vielen Dank!
-
Hi Yaerox,
da gebe ich dir recht. Aber manchmal muss es schnell gehen und man hat nicht die Zeit sich in neue Funktionen einzulesen. Wie komme ich denn an die benötigten Informationen (Class/ControllID)?
Vielen Dank!
Gruß
Sirius -
Hi Andy,
dir ist schon aufgefallen, dass das Fenster einen anderen Bereich anzeigt, als mein Mauszeiger?
Ich habe das Problem gelöst! Anscheinend ist meine Auflösung zu hoch, weil wenn ich die Auflösung runter setze, dann wird alles richtig angezeigt.
Kann das sein?
Gruß
Sirius -
Hi Yaerox,
1. Weil ImageSearch für mich als Änfanger einfacher zu bedienen ist.
und
2. Weil das Programm auf einem Server läuft und ich nicht die nötigen Informationen (Class und ControlID) auslesen kann.
Vielleicht habe ich auch einfach zu wenig wissen, wir ich es sonst lösen soll/kann, aber bis jetzt hat das mit ImageSearch super geklappt.
Gruß
Sirius -
Hi Andy,
ich habe dein Script mal getestet. Ich habe damit das selbe Problem, wie mit ImageSearch. Das Script zeigt woanders hin, als der Cursor.
Schau dir mal das Foto an, vielleicht hast du eine Idee, wie das sein kann!?
Vielen Dank!
-
Hi Andy,
das kann ich dir sagen, weil ich auf 32bit immer eine Fehlermeldung bekomme.
Wo finde ich denn dein "PuschTheButton" Script?Vielen Dank!
-
Hi Andy,
das mache ich doch! ich lese die das Excel-Sheet in ein Array und lasse dann per ImageSearch die Klicks in dem Proragmm ausführen und füge dann die Daten in die einzelnen Felder ein.
Es ist aber wieder so, wie ich es mir gedacht habe, es kommen Fragen, ob auszuschließen, dass es ein Bot ist!
Vielleicht hat jemand auf Windows 10 (64 bit) Imagesearch am laufen und kann mir seine ImageSearch.au3 und ImageSearch.dll zur Verfügung stellen!?
Vielen Dank!
Gruß
Sirius -
Hallo zusammen,
ich habe ein Problem mit ImageSearch. Ich habe lange überlegt, ob ich hier um Hilfe fragen soll, weil die meisten ImageSearch mit Bots in Verbindung bringen.
Ich möchte gerne Daten aus Excel in ein Programm einpflegen welches auf einem Windowsserver läuft. Und nur dafür brauche ich ImageSearch. Ich habe das schon mal so gemacht, aber leider
läuft auf meinem Windows 10 System (64bit) ImageSearch nicht mehr. Auf der Arbeit auf einem Windows 7 64bit läuft es. Wenn ich es auf Windows 10 laufen lassen, dann klickt das Tool zwar, aber nicht da wo es soll.Vielleicht hat einer von Euch eine Lösung!?
Vielen Dank!
Gruß
Sirius -
Hallo zusammen. Vielen Dank, Ihr habt mir alle weiter geholfen. Mars: deine Version ist sehr interessant, werde ich mal studieren, um alles zu verstehen!
Gruß
SiriusGesendet von meinem GT-I9505 mit Tapatalk
-
Hallo zusammen.
Leider stehe ich etwas auf dem Schlauch. Folgender Fehler: Sobald ich ergänzte Version auswähle und Heizung, dann benennt das Tool die Datei immer mit RLT anstatt mit Heizung usw. Wo liegt der Fehler?
Ich habe mal die anderen Gewerke aus dem Code genommen, damit der Code nicht so lang ist. Es funktioniert in dem unten aufgeführten Code nur RLT und Heizung.
Spoiler anzeigen
C
Alles anzeigen#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Array.au3> #include <WinAPIShPath.au3> Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### $Form1 = GUICreate("Umbenennungs-Tool für Doku´s", 423, 495, 198, 124) $Input1 = GUICtrlCreateInput("", 65, 24, 121, 21) $Label1 = GUICtrlCreateLabel("Objekt-Nr.:", 8, 26, 55, 17) $Input2 = GUICtrlCreateInput("", 264, 24, 121, 21) $Label2 = GUICtrlCreateLabel("Jahr:", 229, 26, 27, 17) $Checkbox1 = GUICtrlCreateCheckbox("Frühjahrswartung", 64, 56, 110, 17) GUICtrlSetOnEvent(-1, "Checkbox1Click") $Checkbox2 = GUICtrlCreateCheckbox("Herbstwartung", 64, 88, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox2Click") $Checkbox3 = GUICtrlCreateCheckbox("Inspektion", 64, 120, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox3Click") $Checkbox4 = GUICtrlCreateCheckbox("Jahreswartung", 64, 152, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox4Click") $Checkbox5 = GUICtrlCreateCheckbox("RLT", 264, 375, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox5Click") $Checkbox6 = GUICtrlCreateCheckbox("Heizung", 264, 184, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox6Click") $Checkbox7 = GUICtrlCreateCheckbox("DDC", 264, 56, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox7Click") $Checkbox8 = GUICtrlCreateCheckbox("MSR", 264, 344, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox8Click") $Checkbox9 = GUICtrlCreateCheckbox("GLT", 264, 152, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox9Click") $Checkbox10 = GUICtrlCreateCheckbox("Kälte", 264, 248, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox10Click") $Checkbox11 = GUICtrlCreateCheckbox("Klima", 264, 312, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox11Click") $Checkbox12 = GUICtrlCreateCheckbox("Elektro", 264, 120, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox12Click") $Checkbox13 = GUICtrlCreateCheckbox("WVA", 264, 472, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox13Click") $Checkbox14 = GUICtrlCreateCheckbox("KKL", 264, 280, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox14Click") $Checkbox15 = GUICtrlCreateCheckbox("TWA", 264, 440, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox15Click") $Checkbox16 = GUICtrlCreateCheckbox("EAB", 264, 88, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox16Click") $Checkbox17 = GUICtrlCreateCheckbox("Hygiene", 264, 216, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox17Click") $Checkbox18 = GUICtrlCreateCheckbox("Sanitär", 264, 408, 97, 17) GUICtrlSetOnEvent(-1, "Checkbox18Click") $oeffnen = GUICtrlCreateButton("Datei öffnen", 72, 328, 75, 25) GUICtrlSetOnEvent(-1, "oeffnen") $umbenennen = GUICtrlCreateButton("Umbenennen", 72, 368, 75, 25) GUICtrlSetOnEvent(-1, "umbenennen") GUICtrlSetState(-1, $GUI_DISABLE) $Checkbox19 = GUICtrlCreateCheckbox("ergänzte Version", 64, 208, 97, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents") Func SpecialEvents() Select Case @GUI_CtrlId = $GUI_EVENT_CLOSE Exit EndSelect EndFunc ;==>SpecialEvents Func Checkbox1Click() If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then GUICtrlSetState($Checkbox2, $GUI_DISABLE) GUICtrlSetState($Checkbox3, $GUI_DISABLE) GUICtrlSetState($Checkbox4, $GUI_DISABLE) Else GUICtrlSetState($Checkbox2, $GUI_ENABLE) GUICtrlSetState($Checkbox3, $GUI_ENABLE) GUICtrlSetState($Checkbox4, $GUI_ENABLE) EndIf EndFunc Func Checkbox2Click() If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then GUICtrlSetState($Checkbox1, $GUI_DISABLE) GUICtrlSetState($Checkbox3, $GUI_DISABLE) GUICtrlSetState($Checkbox4, $GUI_DISABLE) Else GUICtrlSetState($Checkbox1, $GUI_ENABLE) GUICtrlSetState($Checkbox3, $GUI_ENABLE) GUICtrlSetState($Checkbox4, $GUI_ENABLE) EndIf EndFunc Func Checkbox3Click() If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then GUICtrlSetState($Checkbox1, $GUI_DISABLE) GUICtrlSetState($Checkbox2, $GUI_DISABLE) GUICtrlSetState($Checkbox4, $GUI_DISABLE) Else GUICtrlSetState($Checkbox1, $GUI_ENABLE) GUICtrlSetState($Checkbox2, $GUI_ENABLE) GUICtrlSetState($Checkbox4, $GUI_ENABLE) EndIf EndFunc Func Checkbox4Click() If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then GUICtrlSetState($Checkbox1, $GUI_DISABLE) GUICtrlSetState($Checkbox2, $GUI_DISABLE) GUICtrlSetState($Checkbox3, $GUI_DISABLE) Else GUICtrlSetState($Checkbox1, $GUI_ENABLE) GUICtrlSetState($Checkbox2, $GUI_ENABLE) GUICtrlSetState($Checkbox3, $GUI_ENABLE) EndIf EndFunc Func Checkbox5Click() If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox6Click() If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox7Click() If GUICtrlRead($Checkbox7) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox8Click() If GUICtrlRead($Checkbox8) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox9Click() If GUICtrlRead($Checkbox9) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox10Click() If GUICtrlRead($Checkbox10) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox11Click() If GUICtrlRead($Checkbox11) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox12Click() If GUICtrlRead($Checkbox12) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox13Click() If GUICtrlRead($Checkbox13) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox14Click() If GUICtrlRead($Checkbox14) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox15Click() If GUICtrlRead($Checkbox15) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox16Click() If GUICtrlRead($Checkbox16) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox17Click() If GUICtrlRead($Checkbox17) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox18, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox18, $GUI_ENABLE) EndIf EndFunc Func Checkbox18Click() If GUICtrlRead($Checkbox18) = $GUI_CHECKED Then GUICtrlSetState($Checkbox5, $GUI_DISABLE) GUICtrlSetState($Checkbox6, $GUI_DISABLE) GUICtrlSetState($Checkbox7, $GUI_DISABLE) GUICtrlSetState($Checkbox8, $GUI_DISABLE) GUICtrlSetState($Checkbox9, $GUI_DISABLE) GUICtrlSetState($Checkbox10, $GUI_DISABLE) GUICtrlSetState($Checkbox11, $GUI_DISABLE) GUICtrlSetState($Checkbox12, $GUI_DISABLE) GUICtrlSetState($Checkbox13, $GUI_DISABLE) GUICtrlSetState($Checkbox14, $GUI_DISABLE) GUICtrlSetState($Checkbox15, $GUI_DISABLE) GUICtrlSetState($Checkbox16, $GUI_DISABLE) GUICtrlSetState($Checkbox17, $GUI_DISABLE) Else GUICtrlSetState($Checkbox5, $GUI_ENABLE) GUICtrlSetState($Checkbox6, $GUI_ENABLE) GUICtrlSetState($Checkbox7, $GUI_ENABLE) GUICtrlSetState($Checkbox8, $GUI_ENABLE) GUICtrlSetState($Checkbox9, $GUI_ENABLE) GUICtrlSetState($Checkbox10, $GUI_ENABLE) GUICtrlSetState($Checkbox11, $GUI_ENABLE) GUICtrlSetState($Checkbox12, $GUI_ENABLE) GUICtrlSetState($Checkbox13, $GUI_ENABLE) GUICtrlSetState($Checkbox14, $GUI_ENABLE) GUICtrlSetState($Checkbox15, $GUI_ENABLE) GUICtrlSetState($Checkbox16, $GUI_ENABLE) GUICtrlSetState($Checkbox17, $GUI_ENABLE) EndIf EndFunc Func oeffnen() Global $code = FileOpenDialog("Wähle eine Datei aus!",@StartupDir, "(*.xlsx;*.xls;*.xlsm;*.pdf)",1 + 2) Global $aFile = StringSplit($code, "|", 1) Global $folder = _WinAPI_PathRemoveFileSpec($aFile[1]) If IsString($folder) Then GUICtrlSetState($umbenennen, $GUI_ENABLE) EndFunc Func umbenennen() Global $Objektnr = GUICtrlRead($Input1) Global $Jahr = GUICtrlRead($Input2) ;RLT If GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Frühjahrswartung_" & "RLT_" & $Jahr & ".pdf", 1) ElseIf GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Herbstwartung_" & "RLT_" & $Jahr & ".pdf", 1) ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Inspektion_" & "RLT_" & $Jahr & ".pdf", 1) ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Jahreswartung_" & "RLT_" & $Jahr & ".pdf", 1) ;ergänzte Version RLT ElseIf GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Frühjahrswartung_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf", 1) ElseIf GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Herbstwartung_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf", 1) ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Inspektion_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf", 1) ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Jahreswartung_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf", 1) EndIf ;Heizung If GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Frühjahrswartung_" & "Heizung_" & $Jahr & ".pdf", 1) ElseIf GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Herbstwartung_" & "Heizung_" & $Jahr & ".pdf", 1) ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Inspektion_" & "Heizung_" & $Jahr & ".pdf", 1) ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Jahreswartung_" & "Heizung_" & $Jahr & ".pdf", 1) ;ergänzte Version Heizung ElseIf GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Frühjahrswartung_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf", 1) ElseIF GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Herbstwartung_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf", 1) ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Inspektion_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf", 1) ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then FileMove($aFile[1],$folder & "\" & $Objektnr & "_Jahreswartung_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf", 1) EndIf EndFunc While 1 Sleep(200) WEnd
Vielen Dank!
Gruß
Sirius -
Hi Oscar.
Wirklich einfach!!!
Vielen Dank!!
Gruß
Sirius -
Hallo zusammen,
Ich habe mit dem folgenden Code eine Datei geöffnet und die Informationen wie Pfad und Dateiname mit StringSplit gearbeitet. Jetzt möchte ich aus dem Array den Dateinamen entfernen und nur den Pfad, wo sich das gewählte File befindet, weiter benutzen. Da das Array aber von File zu File unterschiedlich ist, weiß ich im Moment nicht, wie ich das umsetzten soll.
CodeFunc oeffnen() Global $code = FileOpenDialog("Wähle eine Datei aus!",@StartupDir, "(*.xlsx;*.xls;*.xlsm;*.pdf)",1 + 2) Global $aFile = StringSplit($code, "|", 1) MsgBox("","",$aFile[1]) Global $folder = StringSplit($aFile[1], "\", 1) _ArrayDisplay($folder) EndFunc
Vielen Dank!
Gruß
Sirius -
Wenn es jemanden interessiert! Ich habe den Fehler gefunden
Ich habe einfach folgendes verändert:
- For $i = 1 To $OASCHList[26]
in
- For $i = 1 To $OASCHList[0]
Gruß
Sirius -
So... ich bin einen Schritt weiter!
Irgendwas funktioniert mit der For-Schleife nicht!
- For $i = 1 To $OASCHList[26]
- Run('"' & @ComSpec & '" /c ICACLS "' & $OASCHPath & $OASCHList[$i] & '" /grant:r Innendienst:(S,RD,WD,AD,REA,X,RA) /T', '', @SW_HIDE)
- Run('"' & @ComSpec & '" /c ICACLS "' & $OASCHPath & $OASCHList[$i] & '" /grant:r Innendienst:(OI)(CI)(IO)(F) /T', '', @SW_HIDE)
- Next
Ich finde den Fehler aber nicht, weil wenn ich den Array mit _ArrayDisplay anzeigen lasse, dann zeigt er mir ja an, wie viele Ordner sich in dem Ordner befinden.
Der gleiche Code auf anderen Ordnern funktioniert, nur da nicht.
RATLOS!
-
Ich hab noch was anderes versucht.
Local $iError = RunWait('"' & @ComSpec & '" /c ICACLS "' & $OAWPath & $OAWList[$i] & '" /grant:r Innendienst:(S,RD,WD,AD,REA,X,RA) /T', '', @SW_HIDE)
MsgBox(0, "Programm gab folgenden Exitcode zurück:", $iError)Komisch ist, dass er 0 (Fehler) ausgibt, aber der Befehl korrekt ausgeführt wurde. Also die Berechtigungen wurde genau so gesetzt wie im Script befohlen!
Und nun?
Gruß
Sirius