automatisches einlesen von Ein-Klick-Voreinstellungen (Ricoh Drucker)

ru642

Hallo Zusammen
wir haben im Geschäft zwei identische Ricoh Drucker.
Für diese haben wir sogenannte Ein-Klick-Voreinstellungen.
Sind Papiereinstellungen die man importieren kann und dann anwählen.
Nun kann man diese wie bereits angedeutet einlesen.
Leider haben wir ca 23 Voreinstellungen die wir jedes Mal einlesen müssen pro Drucker.
Die Import Funktion unterstützt kein Multi Import somit muss jedes der Files einzeln angeklickt und importiert werden.
Folgendes habe ich nun schon gemacht: die Funktion Anwaehlen funktionierte soweit.

AutoIt

Func Anwaehlen ()
;Warten bis das Fenster aktiv ist
WinActivate ("Liste Ein-Klick-Voreinstellungen verwalten")
Sleep (200)
;Klick Button Importieren
ControlClick("Liste Ein-Klick-Voreinstellungen verwalten", "", "[CLASS:Button; INSTANCE:7]")
Sleep(200)
;Senden des Filenamens im Textfeld
ControlSend ("Öffnen", "", "[CLASS:Edit; INSTANCE:1]", "$list")
Sleep (200)
;Betätigen des Öffnen Buttons
ControlClick("Öffnen", "", "[CLASS:Button; INSTANCE:1]")
EndFunc




Local $iMax
Local $list = "A4H f 2S geheftet|A4H f 2S|A4H f doppelseitig geheftet|A4H f doppelseitig|A4H f geheftet|A4H f|A4H sw 2S geheftet|A4H sw 2S|A4H sw doppelseitig geheftet|A4H sw doppelseitig|A4H sw geheftet|A4H sw|A4Q f 2S geheftet|A4Q f 2S|A4Q f geheftet|A4Q f|A4Q sw 2S geheftet|A4Q sw 2S|A4Q sw geheftet|A4Q sw|Broschüre A4|Broschüre|RK-Deckblatt"
Local $arr = StringSplit($list, "|")


If IsArray($arr) Then
     $iMax = UBound($arr); get array size


     ConsoleWrite("Items in the array: " & $iMax & @LF)


     For $i = 0 to $iMax - 1; subtract 1 from size to prevent an out of bounds error
         ConsoleWrite($arr[$i] & @LF)
     Next
EndIf

Alles anzeigen

Nun möchte ich aber unter 9. den Array $list abrufen und pro durchlauf einen Dateinamen holen.
Leider habe ich schon echt lange nicht mehr mit Arrays gearbeitet und bin mir desshalb nicht mehr sicher wie ich das aufbauen soll.
Die If Abfrage habe ich mir aus der Hilfe kopiert soll natürlich am ende kein Consolwrite machen.
Ich hoffe ihr könnt mir helfen.
MFG Ru642

Sonderbaar

Wie sehen denn die Dateinamen aus? Du füllst dein Array $arr ja mit den Split mit diesen komischen Werten... Die Schleife hast du ja auch schon, mit dem Consolewrite, sollten ja die Werte aus dem Array zu sehen sein?
Ist das bis hier hin korrekt? Oder sehen die Dateinamen doch anders aus?

ru642

Diese "komischen" Werte sind bereits die Dateinamen. Beispielsweise "A4H f 2S geheftet.json".
Die Dateiendung muss aber im Fenster nicht angegeben werden weil man ja danach sucht.

Folgendes Steht im ConsolWrite:

Items in the array: 24
23
A4H f 2S geheftet
A4H f 2S
A4H f doppelseitig geheftet
A4H f doppelseitig
A4H f geheftet
A4H f
A4H sw 2S geheftet
A4H sw 2S
A4H sw doppelseitig geheftet
A4H sw doppelseitig
A4H sw geheftet
A4H sw
A4Q f 2S geheftet
A4Q f 2S
A4Q f geheftet
A4Q f
A4Q sw 2S geheftet
A4Q sw 2S
A4Q sw geheftet
A4Q sw
Broschüre A4
Broschüre
RK-Deckblatt
>Exit code: 0 Time: 0.08779

Sonderbaar

Spoiler anzeigen

AutoIt

#include <array.au3>
dim $arr, $i
Func Anwaehlen ()
;Warten bis das Fenster aktiv ist
WinActivate ("Liste Ein-Klick-Voreinstellungen verwalten")
Sleep (200)
;Klick Button Importieren
ControlClick("Liste Ein-Klick-Voreinstellungen verwalten", "", "[CLASS:Button; INSTANCE:7]")
Sleep(200)
;Senden des Filenamens im Textfeld
ControlSend ("Öffnen", "", "[CLASS:Edit; INSTANCE:1]", $arr[$i])
Sleep (200)
;Betätigen des Öffnen Buttons
ControlClick("Öffnen", "", "[CLASS:Button; INSTANCE:1]")
EndFunc


Local $iMax
Local $list = "A4H f 2S geheftet|A4H f 2S|A4H f doppelseitig geheftet|A4H f doppelseitig|A4H f geheftet|A4H f|A4H sw 2S geheftet|A4H sw 2S|A4H sw doppelseitig geheftet|A4H sw doppelseitig|A4H sw geheftet|A4H sw|A4Q f 2S geheftet|A4Q f 2S|A4Q f geheftet|A4Q f|A4Q sw 2S geheftet|A4Q sw 2S|A4Q sw geheftet|A4Q sw|Broschüre A4|Broschüre|RK-Deckblatt"
Local $arr = StringSplit($list, "|")
_ArrayDisplay($arr)
If IsArray($arr) Then
     $iMax = UBound($arr); get array size
;~      ConsoleWrite("Items in the array: " & $iMax & @LF)
     For $i = 1 to $iMax - 1; subtract 1 from size to prevent an out of bounds error
         Anwaehlen()
     Next
EndIf

Alles anzeigen

So?

ru642

@Sonderbaar es funktionert

Aber wenn ich den Script starte zeigt es mir jedes mal den Array an kann man das irgendwie unterdrücken ?

**alpines**

Die Anzeige kommt von der _ArrayDisplay-Funktion, kommentier die Zeile einfach aus und fertig.

ru642

Perfekt vielen Dank an alle funktioniert nun wie gewünscht!