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.
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