ini auslesen?

Magicmercury

Hallo liebe Autoitler,

ich habe ein kleine Problem bei der Umsetzung meiner Idee.

Was will ich?
Ein Programm welches aus eine ini-Datei werte ausliest und diese in eine GUI schreibt.

Es soll dann des jeweilige Wert Z.B
xxx.ini
[Locationx]
Hostx=xxx.xxx.xxx.xxx

ausgelesen werden.

Mit den Befehlen iniRead/iniWrite kann man aus einer ini lesen und in eine ini schreiben, aber wie kann ich was auslesen wenn ich die die Werte in section , key und wert nicht kenne?

hat hier jemand einen vorschlag wie ich dies mit autoit machen kann?
Muss ich auf eine andere Progammsprache wechseln um diese zu realisieren?

Danke Magic

**peethebee**

Hallo und :willkommen:

Geh in einer For-Svhleife die Sectionsnamen durch ("Location1", "Location2" usw.). Darin noch mal eine FOr-Schleife, die den Value hochzählt ("Host1", "Host2", ...). Darin machst du dann IniRead. Wenn der Rückgabewert, den du in einer Variablen speicherst, den Wert für "Wert/Schlüssel nicht gefunden" nicht hat (siehe Hilfe), dann hast du deinen richtigen Wert ausgelesen und kannst mit

Code

ExitLoop 2

deine Schleifen wieder verlassen.

Viel Erfolg damit,
peethebee

**bernd670**

Hallo und :willkommen:,

das sollte mit den Befehlen IniReadSectionNames und IniReadSection gehen!

Magicmercury

Ich danke euch für die nette Begrüßung und habe danke für die Hilfe.
Ich habe nun diese Lösung ausgearbeitet:

xxx.ini

[Custom]
Location=name
Host1=name
IP1=xxx.xxx.xxx.xxx

Damit kann ich schön den einzelnen key auslesen.

THX
Magicmercury

jonk

Hi,
das folgende Skript ließt eine ini-datei aus und stellt die einträge in einer GUI dar. Die Sections werden in eine Combobox geladen und die Einträge der aktuell ausgewählten Section darunter dargestellt. Zurückschreiben in die INI geht noch nicht... aber es dürfte schonmal ein ansatz sein.

C

#include <Array.au3>
#include <GUIConstants.au3>
#Include <GuiCombo.au3>




Dim $a_sections
Dim $cursel = 0


$inifile= "c:\windows\php.ini"


$a_sections = IniReadSectionNames ( $inifile )


$Form1 = GUICreate("Konfiguration ", 450, 600, 190, 115)
	$counter=2
	$cbo_sections = GUICtrlCreateCombo("",10,25,150,21)
	for $i = 1 to ubound($a_sections)-1
		GuiCtrlSetData(-1,$a_sections[$i])
	next
GUISetState(@SW_SHOW)


While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE
		ExitLoop
	Case Else
		;;;;;;;
	EndSelect


if((_GUICtrlComboGetCurSel($cbo_sections) <> $cursel) And _GUICtrlComboGetDroppedState($cbo_sections) = FALSE )then
	if IsDeclared("entryArray") Then
		_removeEntries($entryArray)
	EndIf
	$entryArray = _createEntries()
;~ 	_removeEntries($entryArray)
EndIf
WEnd


Func _writeEntries()

EndFunc


Func _createEntries()
	$cursel = _GUICtrlComboGetCurSel($cbo_sections)
	if($cursel <= 0) then
		_GUICtrlComboSetCurSel($cbo_sections,0)
		$cursel = 0
	EndIf
	$counter = 3
	Local $s_text
	_GUICtrlComboGetLBText($cbo_sections, $cursel, $s_text)
	$a_sectionKeyPairs = IniReadSection($inifile,$s_text)
	if(isArray($a_sectionKeyPairs)) then
		$cp_size = $a_sectionKeyPairs[0][0]
		Dim $activeSection[$cp_size+1][2]
		for $j = 1 to $cp_size
			$activeSection[$j][0] = GuiCtrlCreateLabel($a_sectionKeyPairs[$j][0],10,25*$counter,150,20)
			$activeSection[$j][1] = GUICtrlCreateInput($a_sectionKeyPairs[$j][1],160,25*$counter,200,20)
			$counter +=1
		next
	return $activeSection
	EndIf
EndFunc


Func _removeEntries(ByRef $entryArray)
	for $i = 0 to ubound($entryArray)-1
		GUICtrlDelete ( $entryArray[$i][0] )
		GUICtrlDelete ( $entryArray[$i][1] )
	next
	$counter =3
EndFunc


Exit

Alles anzeigen

zum testen mußt Du in dem Script die Inidatei natürlich ändern.
$inifile= "c:\windows\php.ini"

Magicmercury

Noch eine kleine frage.

Ich habe dieses besagt ini file. nun lass ich es duch eine do...until schleife auslesen.

Wenn ich nun zB die Zeile Host1 auslese, wie kann ich diese in eine eigene Variable schreiben die Host1 lautet. Lese ich Host2 aus soll eine Variable gemacht werden die Host2 lautet usw. bis ich keine Hostx einträge mehr in der ini finde.

Danke
Magicmercury

jonk

Du möchtest also keinen Array in der Form $hosts[][] verwenden, sondern lieber dynamische Variablenbezeichner nutzen?
Diese Möglichkeit bietet AutoIt (noch?) nicht. Wenn du wüßtest wieviele Host-Einträge die Ini-Datei hat, könntest Du die natürlich ohne Schleife direkt auslesen (mit: IniRead ( "filename", "section", "key", "default" )
). Ich vermute aber mal, dass bei der Ausführung des Programms die Anzahl der Einträge unbekannt ist, oder?

Magicmercury

ja anzahl ist unbekannt. auslesen ist ja nich so das problem sondenrn das ausgelesene in eine variable schreiben.

wegen array: mit dem hab ich mich noch nicht beschäfftigt. wie würde das mit arrays funktionieren?

lg
Magicmercury

**bernd670**

Hallo,

Zitat

Original von Magicmercury
Noch eine kleine frage.

Ich habe dieses besagt ini file. nun lass ich es duch eine do...until schleife auslesen.

Wenn ich nun zB die Zeile Host1 auslese, wie kann ich diese in eine eigene Variable schreiben die Host1 lautet. Lese ich Host2 aus soll eine Variable gemacht werden die Host2 lautet usw. bis ich keine Hostx einträge mehr in der ini finde.

Danke
Magicmercury

dafür gibt es den Befehl:

Assign ( "Variablenname", "Daten" [, flag] )

jonk

bernd670
Assign kannte ich noch nicht, es gab da mal eine Diskussion im englischen Forum drüber, mit dem Ergebnis das dynamische Variablenbezeichner nicht gehen. Vermutlich hat da ein fleißiger Dev nachgelegt gut so!

@Magicmercury

also Du kannst mit der Funktion IniReadSection einen Bereich ([irgendwas]) auslesen. Das was die Funktion ausließt wird in einem zweidimensionalen Datenbehälter (quasi eine Tabelle) gespeichert.

Bsp.:
$a_sectionKeyPairs = IniReadSection($inifile,$s_text)

$a_sectionKeyPairs[1][0] enthält hier den Keynamen (name=wert) und das Feld $a_sectionKeyPairs[1][1] den Wert zum Key (name=wert)

wenn Du jetzt diesen Array durchlaufen möchtest, geht das zum Beispiel so:

for $i=0 to ubound($a_sectionKeyPairs)-1
MsgBox(0,"","name: "&$a_sectionKeyPairs[$i][0]&@cr&"wert: "&$a_sectionKeyPairs[$i][0])
next

mit ubound bekommst Du die Anzahl der Felder eines Arrays heraus. Die Felder sind durchnummeriert und die Nummerierung fängt bei 0 an. Damit
beim durchlaufen der Schleife kein Index aufgerufen wird den es nicht gibt
mußt Du die Anzahl der ermittelten Felder um eins verringern (ubound($a_sectionKeyPairs)-1).

Magicmercury

danke leute ihr seit echt supa.... funktioniert wunderbar mit dem arrays.

nur *schlechtesgewissen* hab ich noch eine frage:

Kann ich in eine For-schleife eine Variable mit einem Fixen Namenteil und einen Variablen Namensteil erstellen?

Zb:

For $i=0 to 10
Dim hallo&$i
next

oder so. dass ich die Werte die die For-Schleife durchlaufen später auslesen kann. Kann ich das mit autoit machen?

Danke
Magicmercury

**bernd670**

ja mit dem Befehl Assign ( "Variablenname", "Daten" [, flag] )!

Code

; Erzeugen globaler Variablen
For $i=0 to 10
    Assign("hallo" & $i, $i, 2)
next


;~ macht das gleiche wie:


;~ Global $hallo0 = 0
;~ Global $hallo1 = 1
;~ Global $hallo2 = 2
;~ Global $hallo3 = 3
;~ Global $hallo4 = 4
;~ Global $hallo5 = 5
;~ Global $hallo6 = 6
;~ Global $hallo7 = 7
;~ Global $hallo8 = 8
;~ Global $hallo9 = 9

Alles anzeigen

Magicmercury

danke, soweit war ich auch schon nur ich habe das Problem, das ich dann diese Variable nicht auslesen kann ohne $i fix anzugeben.

denn $hallo$i oder $hallo&$i funktioniert nicht.
Kann man hier mit arrays arbeiten?

**bernd670**

Zitat

denn $hallo$i oder $hallo&$i funktioniert nicht.

auslesen kann man sie so:

Code

; Erzeugen globaler Variablen
For $i=0 to 10
    Assign("hallo" & $i, $i,2)
next


;~ macht das gleiche wie:


;~ Global $hallo0 = 0
;~ Global $hallo1 = 1
;~ Global $hallo2 = 2
;~ Global $hallo3 = 3
;~ Global $hallo4 = 4
;~ Global $hallo5 = 5
;~ Global $hallo6 = 6
;~ Global $hallo7 = 7
;~ Global $hallo8 = 8
;~ Global $hallo9 = 9
;~ Global $hallo10 = 10


; Variablen auslesen
For $i=0 to 10
    MsgBox(0,"",Eval("hallo" & $i))
next

Alles anzeigen

**bernd670**

Zitat

Kann man hier mit arrays arbeiten?

ja, z.B. so:

Code

#include <Array.au3>


; Erzeugen globaler Variablen
Dim $ar_Test[1]


; Werte eintragen
; $ar_Test[0] enthält die Anzahl der Einträge
$ar_Test[0] = 0
For $i=1 to 10
    _ArrayAdd($ar_Test,$i)
    $ar_Test[0] = $ar_Test[0] + 1
next


; Werte auslesen
; $ar_Test[0] enthält die Anzahl der Einträge
For $i=1 to $ar_Test[0]
    MsgBox(0,"",$ar_Test[$i])
next

Alles anzeigen

Magicmercury

So ich gebe auf!!! Ich bin zu dumm ich finde keinen lösungswegs für mein problem.

Ich danke euch für die Unterstützung.

Lg
Magicmercury

jonk

naa, nicht gleich aufgeben. Poste doch mal, was Du bisher hast... dann wird es auch einfacher Dir gezielt zu helfen.

Magicmercury

Was soll das programm tun:

1.) Daten aus einer .ini sollen gelesen werden
2.) Diese Daten sollen in eine GUI eingebunden werden.
3.) Jeder Wert unter einer Selection soll via Radio auswählbar sein.
4.) Wenn einer der Radio ausgewählt wird soll eine aktion passieren.

Ich glaub mein Problem ist das die Variable $hosta nicht in der while zur Verfügung steht.
Und zu guter letzt: ich bin ein noob!

Lg
Magicmercury

Code

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


$loccheck=IniReadSectionNames(@ProgramFilesDir & "\QuickTelnet\tese-backup.ini")
For $locs=2 to ubound($loccheck)-1
	$locs1=1
	$locs1=GUICtrlCreateLabel($loccheck[$locs], $xLstart,$yLstart,120,20)
	GUICtrlSetFont(-1,10,400,4)
	$hcheck=IniReadSection(@ProgramFilesDir & "\QuickTelnet\tese-backup.ini", $loccheck[$locs])
	For $hosts=1 to ubound($hcheck)-1
		Assign( $hosts & $locs , $hosts & $locs,2)
		$hosta=Eval($hosts & $locs)
		$hosta=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()


If $exit= $GUI_EVENT_CLOSE Then ExitLoop
Wend

Alles anzeigen

**bernd670**

Hallo,

kannst du die INI auch noch posten?

Magicmercury

Hier alles was ich habe!

Code

#include <GuiConstants.au3>


Dim $hosts, $locs, $ips, $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\tese-backup.ini", "Main", "breite","")
$hoehe = IniRead(@ProgramFilesDir & "\QuickTelnet\tese-backup.ini", "Main", "hoehe","")
$main=guicreate("Quick Telnet", $breite,$hoehe, -1,-1,$WS_SYSMENU + $WS_CAPTION + $WS_MINIMIZEBOX)


$loccheck=IniReadSectionNames(@ProgramFilesDir & "\QuickTelnet\tese-backup.ini")
For $locs=2 to ubound($loccheck)-1
	$locs1=1
	$locs1=GUICtrlCreateLabel($loccheck[$locs], $xLstart,$yLstart,120,20)
	GUICtrlSetFont(-1,10,400,4)
	$hcheck=IniReadSection(@ProgramFilesDir & "\QuickTelnet\tese-backup.ini", $loccheck[$locs])
	For $hosts=1 to ubound($hcheck)-1
		Assign( $hosts & $locs , $hosts & $locs,2)
		$hosta=Eval($hosts & $locs)
		$hosta=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()


If $exit= $GUI_EVENT_CLOSE Then ExitLoop
Wend

Alles anzeigen

.ini

Code

[Main]
breite=200
hoehe=300
[Location_one]
Host1=1.1.1.1
host2=2.2.2.2
host3=3.3.3.3
host4=4.4.4.4
host5=5.5.5.5
host6=6.6.6.6
[Location_two]
host1=1.1.1.1
host2=2.2.2.2

Alles anzeigen