Dynamischen Variablennamen erstellen/verwenden

rkelly_2

Hallo AutoIT Gemeinden,

ich möchte gerne folgendes erreichen:

1.Spalte Excel Tabelle auslesen, bis dort keine Wert mehr vorhanden ist
Diesen Wert jeweils als "Anhängsel" für eine Variable nutzen (also sollte dann aus: $printername und dem Zellenwert aus der 1.Spalte und der jeweiligen Zeile zb.: $printernamesNDPR003 als Variablenname erstellt werden), darauf aufbauend einen Button mit dem Wert der Variable zeichnen

In einer While/Select Case Schleife die Buttons abfragen, wobei die ich hier die oben erstellte Variable+das "Anhängsel" abfragen möchte, um nicht 25x die Abfrage für jeden Button wiederholen zu müssen.

Hier mein Code, ich denke, hierdurch wird dies deutlicher:

Code

Dim $Printernames[3]


$printernames[0] = ''
$printernames[1] = ''
$printernames[2] = ''


;Excel Tabelle


 $xlsdir= "C:\temp\tabelle.xls"


;Excel öffnen
$app = ObjCreate("Excel.application")
$app.Visible = False
$open = $app.Workbooks.Open _
($xlsdir)


; For Schleife setzen für Y (Zeilenwert in Exceltabelle)
for $counter0_i = 1 to 200


;aus Excel lesen, 1.te Spalte, jedoch pro Durchang Zeile 1 bis ...
$NDPR_Names=$app.Cells($counter0_i,1).Value


	;wenn kein Eintrag mehr vorhanden, Loop beenden


	if $NDPR_Names = "" then ExitLoop

 ;Wert bei jedem Durchgang um 30 Pilxel erhöhen, damit die Buttons nicht aufeinander gezeichnet werden
	$y_counter = $y_counter + 30

	;Mit dem ausgelesenen Wert Button zeichnen bzw. dessen Variable für die spätere Abfrage definieren
	$printernames[$printernames+1] = GUICtrlCreateButton ( $NDPR_Names ,  70, $y_counter)

Next


;Datei pro Zeile einlesen
While 1
	$xmsg = GUIGetMsg()

	Select

;Wenn einer der Buttons oben definiert ist, dies registrieren und folgende Befehle ausführen


	Case $xmsg = $printernames[$printernames]

		;feststellen, welche Zeile in der Exceltabelle angesprochen werden soll

		;Schleife bilden für alle 12 Werte einer Zeile
		for $counter_excel_x = 1 to 12


		;aus Excel lesen;y (Zeile) derzeit fest eingetragen, soll jedoch in Zukunft anhand der $Printernames-Variable gesetzt werden
		$NDPR_FullLine=$app.Cells(1,$counter_excel_x).Value

	;Werte für den ausgewählten Button aus der zugehörigen Zeile lesen und Messagebox für jede Spalte anzeigen (In Zukunft in Sys-Variablen schreiben)
			MsgBox (0,"",$NDPR_FullLine)	

		Next

		Exit

		;wenn Windows eigender X Button gedrückt, Anwendung schließen				
		Case $xmsg = $GUI_EVENT_CLOSE

		Exit

		EndSelect	

WEnd

Alles anzeigen

Ich habe das Prinzip der Arrays glaub ich noch nicht ganz verstanden - wahrscheinlich liegt hier die Lösung.

Kann mir jemand einen Tipp geben, wie ich das oben beschriebene ToDo in AutoIT umsetzen kann?

Joe

**Xenobiologist**

Hi,

kannst du dein Vorhaben auch ohne Excel erklären? Ich verstehe nicht, was die Variablennamen mit der Lösung zu tun haben. Warum kannst du nicht einfach alles in ein Array speichern?

Mega

rkelly_2

Hi Mega,

ich habe dies Sache nun mit einer csv Datei, die in in Array eingelesen wird, aufgebaut - das Problem ist aber nach wie vor das Selbe:

Ich lese die 1.te Zeile/1.Spalte des Arrays aus, in dem ein Name steht. Dieser Name wird in einer Variable gespeichert, diese wiederum wird als Text in einem Button verwendet.
In einer Schleife lese ich die restlichen Zeilen aus (immer nur die 1.te Spalte) und möchte nun pro ausgelesenem Wert eine Button erstellt haben, den ich in einer späteren While Schleife abfragen kann, damit dann eine Aktion stattfindet.

Ich möchte also eine dynamsiche Variable haben:

(ich weiss nicht, ob dies überhaupt so möglich/sinnvoll ist)

Ich möchte unten in der While 2 Schleife einmalig eine Abfrage der Variable $buttonNames reinschreiben, je nach dem, welcher Wert da nun drin steht (welcher Button gedrückt wurde), soll eine bestimmte Aktion durchgeführt werden (in diesem Fall im Array nach dem Namen des gedrückten Buttons suchen und die restlichen Spalten der gefundenen Zeile je einer Sys-Variablen zuordnen)

Code

$Counter1 = 0
$y_counter = 0
$printernamesCounter = 0


;Oberfläche zeichnen
GUICreate("Druckerverwaltung", 250, 310,0,0,0x00260000)


;Array definieren und Excel / CSV Datei einlesen
;In $arCSVFile[0] findet sich die Anzahl der eingelesenen Lines


Dim $arCSVFile
Dim $arTmp
Dim $arAusgabe[200][13]


$csvFile = "mappe1.csv"
_FileReadToArray($csvFile, $arCSVFile)


;Daten aus Array einlesen, in temp Array schreiben und Zeile für Zeile separieren und in entgültiges Array schreiben


for $i = 1 to $arCSVFile[0]
		$arTmp = StringSplit($arCSVFile[$i], ";")

		for $t = 1 to UBound($arTmp) - 1
			$arAusgabe[$i][$t] = $arTmp[$t]

Next


Next


;Oberfläche bzw. gezeichnetes Fenster sichtbar machen
	GUISetState (@SW_SHOW)

;Buttons darstellen anhand des oben erstellten  Arrays, beginnend mit Zeile/Spalte 1/1


;Auslesen der Anzahl der Zeilen
$AnzahlDrucker = $arCSVFile[0]
for $q = 1 to $AnzahlDrucker

;Auslesen Namen aus Zeile x/Spalte 1
$NDPR_Names = $arAusgabe[$q][1]


;Variable definieren, damit die Y Koordinate für die Buttons bei jeden Durchgang um 30 Pixel hochgezählt wird
	$y_counter = $y_counter + 30
	$printernamesCounter = $printernamesCounter + 1
	$Buttonnames = $NDPR_Names & $q

;Mit dem ausgelesenen Wert Button zeichnen bzw. dessen Variable für die spätere Abfrage definieren
	$ButtonNames = GUICtrlCreateButton ($NDPR_Names ,  70, $y_counter)

Next


While 2
	$xmsg = GUIGetMsg()

	Select

;Wenn einer der Buttons oben definiert ist, dies registrieren und folgende Befehle ausführen

	;wenn Button gedrückt, Meldungsfenster anzeigen	
		Case $xmsg = $ButtonNames
			MsgBox(0, "Titel", $NDPR_Names)
			Exit

		;wenn Windows eigender X Button gedrückt, Anwendung schließen				
		Case $xmsg = $GUI_EVENT_CLOSE

		Exit

		EndSelect	
 		WEnd


;GUI löschen	
GUIDelete()


;Datei schließen
FileClose($csvFile)


;Anwendung verlassen
	Exit

Alles anzeigen

**Xenobiologist**

Hi,

kannst du es so bauen, dass ich es selbst testen kann. Dann wäre vieles einfacher. Testen und dann noch sehen wie es aussehen muss.

Mega

rkelly_2

Hier der Code vom Script:

C

; Script zum Auslesen von Excel Tabelle und Erstellen einer GUI für die Anzeige  der Drucker 


;Notwendige Consanten/Variablen holen


#Include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <String.au3>
#include <array.au3>
#Include <File.au3>




#NoTrayIcon




;Variablen im gesamten Programm verfügbar machen


Local $ButtonPrinterInstall, $ButtonPrinterQueue, $Buttonclose


Local $PrnDisplayName, $ndprxxx_01, $ndprxxx_02, $PrnInfPath, $PrnInfInternalName, $reg_printer_ports, $reg_ports, $RegPpPDN, $strLogFile, $Location
Local $IsWhat, $PicPath


Local $wr_PrnDisplayName
Local $wr_ndprxxx_01
Local $wr_ndprxxx_02
Local $wr_PrnInfPath
Local $wr_PrnInfInternalName
Local $wr_reg_printer_ports
Local $wr_reg_ports
Local $wr_RegPpPDN
Local $wr_strLogFile
Local $wr_Location
Local $wr_IsWhat
Local $wr_PicPath


Local $testvar


Local $Counter0, $Counter1, $Counter2, $y_counter


$Counter1 = 0
$y_counter = 0
$printernamesCounter = 0






;Oberfläche zeichnen
	;GUICreate("Druckerverwaltung", 250, 110,0,0,0x01260000)
	GUICreate("Druckerverwaltung", 250, 310,0,0,0x00260000)


;Array definieren und Excel / CSV Datei einlesen
;In $arCSVFile[0] findet sich die Anzahl der eingelesenen Lines


Dim $arCSVFile
Dim $arTmp
Dim $arAusgabe[200][13]


$csvFile = "mappe1.csv"


_FileReadToArray($csvFile, $arCSVFile)


;Daten aus Array einlesen, in temp Array schreiben und Zeile für Zeile separieren und in entgültiges Array schreiben


for $i = 1 to $arCSVFile[0]
		$arTmp = StringSplit($arCSVFile[$i], ";")

		for $t = 1 to UBound($arTmp) - 1
			$arAusgabe[$i][$t] = $arTmp[$t]

	;Testausgabe eingelesene Daten	
	;MsgBox(0, "", $i & " " & $t & @lf & $arAusgabe[$i][$t])
	Next


Next




;Oberfläche bzw. gezeichnetes Fenster sichtbar machen
	GUISetState (@SW_SHOW)


;Test Ausgabe des neu erstellten Array´s
;_ArrayDisplay($arAusgabe, "Titel")	


;Buttons darstellen anhand des oben erstellten  Arrays, beginnend mit Zeile/Spalte 1/1


;Auslesen der Anzahl der Zeilen
$AnzahlDrucker = $arCSVFile[0]
for $q = 1 to $AnzahlDrucker

;Auslesen Namen aus Zeile x/Spalte 1
$NDPR_Names = $arAusgabe[$q][1]


;Ausgabe der ausgelesenen Namen zum Test
;MsgBox(0, "Titel", $NDPR_Names)


;Variable definieren, damit die Y Koordinate für die Buttons bei jeden Durchgang um 30 Pixel hochgezählt wird
	$y_counter = $y_counter + 30
	$printernamesCounter = $printernamesCounter + 1
	$Buttonnames = $NDPR_Names & $q

;Mit dem ausgelesenen Wert Button zeichnen bzw. dessen Variable für die spätere Abfrage definieren
	$ButtonNames = GUICtrlCreateButton ($NDPR_Names ,  70, $y_counter)

Next




While 2
	$xmsg = GUIGetMsg()

	Select

;Wenn einer der Buttons oben definiert ist, dies registrieren und folgende Befehle ausführen

	;wenn Button gedrückt, Meldungsfenster anzeigen	
		Case $xmsg = $ButtonNames
			MsgBox(0, "Titel", $NDPR_Names)
			Exit


		;wenn Windows eigender X Button gedrückt, Anwendung schließen				
		Case $xmsg = $GUI_EVENT_CLOSE

		Exit


		EndSelect	


WEnd


;GUI löschen	
GUIDelete()


FileClose($csvFile)




;Anwendung verlassen
	Exit

Alles anzeigen

Hier der Inhalt der (noch recht leeren) csv Datei mit dem Namen mappe1.csv

Code

'NDPR003';'\\ndps01.domain\ndpr003';'\\ndps02.domain\ndpr003';'\\domain\admin\packages\driver\printer\HPLJ4050PCL6\hpbf002i.inf';"""HP LaserJet 4050 Series PCL 6""";'\\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\';'\\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Ports';'\\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\''NDPR003';'%windir%\dmIT\%DATE%_%PrnDisplayName%.log';'haus3  Raum 002';'pbw';'\\domain/admin/Packages/SETUP/PrinterInstall/Resources/Pics/HPLJ4050.jpg'
'NDPR005';;;;;;;;;;;
'NDPR010';;;;;;;;;;;

Es soll also pro ausgelesem Druckernamen ein Button in der GUI angezeigt werden, bei gedrücktem Button sollen je nach gedrücktem Button für diesen speziellen Drucker Systemvariablen gesetzt werden, dessen Werte in den jeweiligen Spalten 2-12 im Array stehen.

Danke schon mal für Deine Unterstützung

Joe