ini auslesen?

jonk

Servus Magicmercury,

da hast Du dir aber auch was kniffliges zum Anfangen rausgesucht ;).
Ich habe Deinen Code mal etwas umgebaut und mit Array's gearbeitet.
Die andere Variante mit Assign, scheint mir hier nicht sinnvoll.

Code

#include <GuiConstants.au3>


Dim $hosts, $locs, $ips, $hosta
Dim $hcheck_backup = 0
Dim $Ly=20
Dim $Ry=15
Dim $xR=15
Dim $xLstart=7
Dim $yLstart=10
Dim $xRnachL=15
Dim $yRnachL=$yLstart+$Ly
Dim $xRnachR=15


$inifile = @ScriptDir & "\tese-backup.ini"
$breite = IniRead($inifile, "Main", "breite",100)
$hoehe = IniRead($inifile, "Main", "hoehe",100)
$main=guicreate("Quick Telnet", $breite,$hoehe, -1,-1,$WS_SYSMENU + $WS_CAPTION + $WS_MINIMIZEBOX)


$loccheck=IniReadSectionNames($inifile)
For $locs=2 to ubound($loccheck)-1
	$locs1=GUICtrlCreateLabel($loccheck[$locs], $xLstart,$yLstart,120,20)
	GUICtrlSetFont(-1,10,400,4)
	$hcheck=IniReadSection($inifile, $loccheck[$locs])
	if (ubound($hcheck) > $hcheck_backup) then
		$hcheck_backup = $hcheck
		dim $availHosts[ubound($loccheck)][ubound($hcheck)]
	endif
	For $hosts=1 to ubound($hcheck)-1
		$availHosts[$locs][$hosts]=GUICtrlCreateRadio($hcheck[$hosts][0], $xR, $yRnachL,120,15)
		$yRnachL = $yRnachL + $Ry
	next
	$yLstart =$yRnachL
	$yRnachL = $yRnachL + $Ry + 5
	$locs1 = $locs1+1
next


GuiSetState()
while 1
$exit = GuiGetMsg()


Select
	Case $exit= $GUI_EVENT_CLOSE
		ExitLoop
	Case else
		for $j = 2 to ubound($availHosts,1)-1
			for $i = 1 to ubound($availHosts, 2)-1
				if $exit = $availHosts[$j][$i] and BitAND(GUICtrlRead($availHosts[$j][$i]), $GUI_CHECKED) = $GUI_CHECKED then
					msgbox(64,"Wo wurde geklickt?",$i)
				endif
			next
		next
EndSelect
Wend

Alles anzeigen

Magicmercury

Ich hab auch nicht aufgegebn und mal was probiert. funktioniert!!!

Danke jonk für die motivation und danke fürs probieren.

Code

Dim $hosts, $locs, $hosta
Dim $Ly=20
Dim $Ry=15
Dim $xR=15
Dim $xLstart=7
Dim $yLstart=10
Dim $xRnachL=15
Dim $yRnachL=$yLstart+$Ly
Dim $xRnachR=15




$breite = IniRead(@ProgramFilesDir & "\QuickTelnet\config.ini", "Main", "breite","")
$hoehe = IniRead(@ProgramFilesDir & "\QuickTelnet\config.ini", "Main", "hoehe","")
$main=guicreate("Quick Telnet", $breite,$hoehe, -1,-1,$WS_SYSMENU + $WS_CAPTION + $WS_MINIMIZEBOX)


$loccheck=IniReadSectionNames(@ProgramFilesDir & "\QuickTelnet\config.ini")
$locc = 0
dim $ida[256], $idc[256]
For $locs=2 to ubound($loccheck)-1
	GUICtrlCreateLabel($loccheck[$locs], $xLstart,$yLstart,120,20)
	GUICtrlSetFont(-1,10,400,4)
	$hcheck=IniReadSection(@ProgramFilesDir & "\QuickTelnet\config.ini", $loccheck[$locs])
	For $hosts=1 to ubound($hcheck)-1
		$hosta=GUICtrlCreateRadio($hcheck[$hosts][0], $xR, $yRnachL,120,15)
		$idc[$locc] = $hcheck[$hosts][1]
		$ida[$locc] = $hosta
		$yRnachL = $yRnachL + $Ry
		$locc = $locc + 1
	next


	$yLstart =$yRnachL
	$yRnachL = $yRnachL + $Ry + 5
next




GuiSetState()
while 1
	GUISetState(@SW_HIDE,$guilogin)
	$exit = GuiGetMsg()
	for $x = 0 to ubound($ida) - 1
		if guictrlread($ida[$x]) = $GUI_CHECKED then
			Run(@ProgramFilesDir & "\QuickTelnet\putty.exe -telnet " & $idc[$x])
			guictrlsetstate($ida[$x], $GUI_UNCHECKED)


		endif
	next
	If $exit= $GUI_EVENT_CLOSE Then ExitLoop
Wend

Alles anzeigen