Ini durchblättern

Ilse

Hallo,
weiß jemand wie man eine ini durchblättern kann?

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\mcc\desktop\autoit-programmierung\inianzeiger.kxf
$Form1_1 = GUICreate("Form1", 403, 67, 306, 277)
$btniniWahl = GUICtrlCreateButton("Ini öffnen", 8, 24, 75, 25, $WS_GROUP)
$btnstart = GUICtrlCreateButton("<<", 88, 24, 75, 25, $WS_GROUP)
$btnEnde = GUICtrlCreateButton(">>", 304, 24, 75, 25, $WS_GROUP)
$btnzurueck = GUICtrlCreateButton("<", 160, 24, 75, 25, $WS_GROUP)
$btnvor = GUICtrlCreateButton(">", 232, 24, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit][autoit][/autoit][autoit]

Case $btniniWahl
$openini = FileOpenDialog("Bitte wählen Sie einen Katalog:", @ScriptDir & "\", "Einstellungen (*.ini;*.txt)", 1 + 4)
If @error Then
MsgBox(4096, "", "No File(s) chosen")
Else
$openini = StringReplace($openini, "|", @CRLF)

[/autoit][autoit][/autoit][autoit]

EndIf
Case $btnstart
Case $btnEnde
Case $btnzurueck
Case $btnvor

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Global $i = 1
While 1

[/autoit][autoit][/autoit][autoit]

$Starte = IniRead($openini, "Startseite", $i, "NotFound")
MsgBox(4096,"Info",$Starte)
$i = $i +1
ExitLoop
WEnd

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit][/autoit]

Hier habe ich irgendwo ein Fehler!
Ich möchte es so haben, daß ich jedesmal klicken muß
um einen INI-Eintrag z.B. nach vorne zu blättern.

Meine Ini:

[autoit]

[Startseite]
1=Inhalt1
2=Inhalt2
3=Inhalt4

[/autoit]

Viele Grüße
Ilse

**Tweaky**

So klappts Ilse

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=c:\users\mcc\desktop\autoit-programmierung\inianzeiger.kxf
$Form1_1 = GUICreate("Form1", 403, 67, 306, 277)
$btniniWahl = GUICtrlCreateButton("Ini öffnen", 8, 24, 75, 25, $WS_GROUP)
$btnstart = GUICtrlCreateButton("<<", 88, 24, 75, 25, $WS_GROUP)
$btnEnde = GUICtrlCreateButton(">>", 304, 24, 75, 25, $WS_GROUP)
$btnzurueck = GUICtrlCreateButton("<", 160, 24, 75, 25, $WS_GROUP)
$btnvor = GUICtrlCreateButton(">", 232, 24, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$i = 0

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $btniniWahl
$openini = FileOpenDialog("Bitte wählen Sie einen Katalog:", @ScriptDir & "\", "Einstellungen (*.ini;*.txt)", 1 + 4)
If @error Then
MsgBox(4096, "", "No File(s) chosen")
Else
$openini = StringReplace($openini, "|", @CRLF)
EndIf
Case $btnstart
Case $btnEnde
Case $btnzurueck
$i -= 1
$Starte = IniRead($openini, "Startseite", $i, "NotFound")
MsgBox(4096, "Info", $Starte)
Case $btnvor
$i += 1
$Starte = IniRead($openini, "Startseite", $i, "NotFound")
MsgBox(4096, "Info", $Starte)
EndSwitch
WEnd

[/autoit]

Ilse

Hallo Tweaky,

merci für deine Hilfe.
Kannst du bitte noch einmal drübersehen?
Ich habe noch 2 Felder als eine Art Zwischenspeicher eingebaut!

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\mcc\desktop\autoit-programmierung\inianzeiger.kxf
$Form1_1 = GUICreate("Form1", 410, 158, 306, 277)
$btnIniWahl = GUICtrlCreateButton("Ini öffnen", 8, 24, 75, 25, $WS_GROUP)
$btnstart = GUICtrlCreateButton("<<", 88, 24, 75, 25, $WS_GROUP)
$btnEnde = GUICtrlCreateButton(">>", 304, 24, 75, 25, $WS_GROUP)
$btnzurueck = GUICtrlCreateButton("<", 160, 24, 75, 25, $WS_GROUP)
$btnvor = GUICtrlCreateButton(">", 232, 24, 75, 25, $WS_GROUP)
$btnEntfernen = GUICtrlCreateButton("Diesen Eintrag entfernen", 232, 104, 147, 25, $WS_GROUP)
$Nr = GUICtrlCreateInput("", 48, 72, 33, 21)
$Eintrag = GUICtrlCreateInput("", 88, 72, 289, 21)
$Label1 = GUICtrlCreateLabel("Nr", 24, 72, 15, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$i = 0

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit][autoit][/autoit][autoit]

Case $btniniWahl
$openini = FileOpenDialog("Bitte wählen Sie einen Katalog:", @ScriptDir & "\", "Einstellungen (*.ini;*.txt)", 1 + 4)
If @error Then
MsgBox(4096, "", "No File(s) chosen")
Else
$openini = StringReplace($openini, "|", @CRLF)
EndIf
Case $btnstart
Case $btnEnde
Case $btnzurueck
$i -= 1
$Starte = IniRead($openini, "Startseite", $i, "NotFound")
MsgBox(4096, "Info", $Starte)
Case $btnvor
$i += 1
$Starte = IniRead($openini, "Startseite", $i, "NotFound")
MsgBox(4096, "Info", $Starte)
$MeineSuche = IniRead($openini, "Startseite", "key", "NotFound")
Msgbox(4096,"test",$MeineSuche)
GUICtrlSetData($Nr,$MeineSuche)
;$ID = GUICtrlSetData(

Case $btnEntfernen
IniDelete($openini, "Startseite", $Nr)
EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit][/autoit]

Z.B. wenn ich vor oder Zurück klicke, dann soll die jeweilige Nr und der dazugehörige Wert
in das Feld eingetragen werden.
Wenn ich dann auf entferne Klicke soll der Ini-Eintrag gelöscht werden.
Ich krieg das einfach nicht hin...
Wäre toll wenn du mir weiterhelfen könntest.

Liebe Grüße
Ilse

**Tweaky**

So weit weg bist du ja gar nicht.
Wenn du einen Wert auslesen willst,m uß du GuiCtrlRead verwenden

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=c:\users\mcc\desktop\autoit-programmierung\inianzeiger.kxf
$Form1_1 = GUICreate("Form1", 410, 158, 306, 277)
$btnIniWahl = GUICtrlCreateButton("Ini öffnen", 8, 24, 75, 25, $WS_GROUP)
$btnstart = GUICtrlCreateButton("<<", 88, 24, 75, 25, $WS_GROUP)
$btnEnde = GUICtrlCreateButton(">>", 304, 24, 75, 25, $WS_GROUP)
$btnzurueck = GUICtrlCreateButton("<", 160, 24, 75, 25, $WS_GROUP)
$btnvor = GUICtrlCreateButton(">", 232, 24, 75, 25, $WS_GROUP)
$btnEntfernen = GUICtrlCreateButton("Diesen Eintrag entfernen", 232, 104, 147, 25, $WS_GROUP)
$Nr = GUICtrlCreateInput("", 48, 72, 33, 21)
$Eintrag = GUICtrlCreateInput("", 88, 72, 289, 21)
$Label1 = GUICtrlCreateLabel("Nr", 24, 72, 15, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
$i = 0

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $btnIniWahl
$openini = FileOpenDialog("Bitte wählen Sie einen Katalog:", @ScriptDir & "\", "Einstellungen (*.ini;*.txt)", 1 + 4)
If @error Then
MsgBox(4096, "", "No File(s) chosen")
Else
$openini = StringReplace($openini, "|", @CRLF)
EndIf
Case $btnstart
Case $btnEnde
Case $btnzurueck
$i -= 1
$Starte = IniRead($openini, "Startseite", $i, "NotFound")
MsgBox(4096, "Info", $Starte)
Case $btnvor
$i += 1
$Starte = IniRead($openini, "Startseite", $i, "NotFound")
GUICtrlSetData($Nr, $i)
GUICtrlSetData($Eintrag, $Starte)

[/autoit] [autoit][/autoit] [autoit]

Case $btnEntfernen
$loeschen = GUICtrlRead($Nr)
IniDelete($openini, "Startseite", $loeschen)
EndSwitch
WEnd

[/autoit]

Ilse

Hallo Tweaky,

super..., endlich komm ich dank deiner Hilfe etwas weiter.

Vielen Dank
Ilse

m-obi

Soll das eigentlich so sein, dass man mehrere Kataloge gleichzeitig öffnen kann?

Ilse

Guten Morgen m-obi,

wollte im Prinzip 1 Katalog öffnen und dann bearbeiten.
Ist da noch ein Fehler drin?

Grüße
Ilse

m-obi

Ja hab mich gewundert das du beim FileOpenDialog noch die 4 mitangegeben hast, weil dies erlaubt eine Mehrfachauswahl.
Und weil du

[autoit]

$openini = StringReplace($openini, "|", @CRLF)

[/autoit]

geschrieben hast.
Aber das hab ich schon in einem anderen Thread geschrieben.

Ilse

merci nochmal für die Erklärung.
Prima!

Ilse