Zufällige Daten aus ini wiedergeben.

Aber dennoch schreibt er in die txt datei eine 3 zwischen den Tags.

So sieht mein Code aus.

#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Datenbank = "data.txt"

If FileExists($Datenbank) Then
MsgBox(4096, "Überprüfen", "Datenbank ist Vorhanden")
Else
MsgBox(4096,"Überprüfen" , "Datenbank existiert nicht. Sie wird nun erstellt.")
_FileCreate($Datenbank)
FileWrite($Datenbank, "<normal>")
FileWrite($Datenbank, "</normal>")
FileWrite($Datenbank, @CRLF & @CRLF)
FileWrite($Datenbank, "<hardcore>")
FileWrite($Datenbank, "</hardcore>")
EndIf

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 538, 239, 355, 216)
$Edit1 = GUICtrlCreateEdit("", 16, 8, 505, 193)
$BtnNormal = GUICtrlCreateButton("Speichern Normal", 80, 208, 137, 25)
$BtnHardcore = GUICtrlCreateButton("Speichern Hardcore", 320, 208, 137, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BtnNormal
If $BtnNormal Then
_WriteBetweenTag($Datenbank, 'normal', $Edit1)
EndIf
Case $BtnHardcore
If $BtnHardcore then
_WriteBetweenTag($Datenbank, 'hardcore', $Edit1)
EndIf
EndSwitch
WEnd

Func _WriteBetweenTag($sFilePath, $sTag, $sText)
Local $iLines = _FileCountLines($sFilePath)
For $i = $iLines To 1 Step -1
If FileReadLine($sFilePath, $i) = "</" & $sTag & ">" Then ExitLoop
Next
If $i = 1 Then Return SetError(1,0,0)
Return _FileWriteToLine($sFilePath, $i, $sText)
EndFunc

Ok danke funktioniert.
Jetzt brauch ich nur noch die funktion zum ausgeben.

So sieht mein Code aus. Ich weis nicht wie ich das in die edit box bekomme also die jeweiligen daten.

#include <String.au3>
#include <Array.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 538, 239, 355, 216)
$Edit1 = GUICtrlCreateEdit("", 16, 8, 505, 193)
$BtnNormal = GUICtrlCreateButton("Lesen Normal", 80, 208, 137, 25)
$BtnHardcore = GUICtrlCreateButton("Lesen Hardcore", 320, 208, 137, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$sFileRead = FileRead('data.txt')

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $nMsg = $BtnNormal
If $BtnNormal Then
$aRet = _StringBetween($sFileRead, '<normal>' & @CRLF, @CRLF & '</normal>')
$aNormal = StringSplit($aRet[0], @CRLF, 3)
ConsoleWrite($aNormal[Random(0,UBound($aNormal)-1,1)] & @CRLF)
EndIf

Case $nMsg = $BtnHardcore
If $BtnHardcore Then
$aRet = _StringBetween($sFileRead, '<hard>' & @CRLF, @CRLF & '</hard>')
$aHard = StringSplit($aRet[0], @CRLF, 3)
ConsoleWrite($aHard[Random(0,UBound($aHard)-1,1)] & @CRLF)
EndIf

EndSwitch
WEnd

Klickt man auf den Button Lesen normal so zeigt er eine zufallszeile aus dem normal tag an klickt man auf Lesen Hardcore zeigt er eine zufalls zeile aus dem tag Hardcore.... aber es sollte halt in der Editbox angezeigt werden

Also wenn ich das so mache:

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $nMsg = $BtnNormal
If $BtnNormal Then
$aRet = _StringBetween($sFileRead, '<normal>' & @CRLF, @CRLF & '</normal>')
$aNormal = StringSplit($aRet[0], @CRLF, 3)
GUICtrlSetData($Edit1, $aNormal[Random(0,UBound($aNormal)-1,1)])
EndIf

Case $nMsg = $BtnHardcore
If $BtnHardcore Then
$aRet = _StringBetween($sFileRead, '<hard>' & @CRLF, @CRLF & '</hard>')
$aHard = StringSplit($aRet[0], @CRLF, 3)
GUICtrlSetData($Edit1, $aHard[Random(0,UBound($aHard)-1,1)])
EndIf

EndSwitch
WEnd

Dann flackert es in der edit box und ich kann auch keine neuen daten auslesen. klicke ich auf hardcore so schliest das programm.

Okay also an Alle danke hab nun alles was ich benötige
Echt hammer wie ihr mir helft *heul*

Also pls closen

Habe doch noch was gefunden.

Also ich möchte das man die daten editieren und löschen kann.
Den Code habe ich schon aber ka wie ich die funktionen machen soll.

Hier mein code:

#include <File.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Datenbank = @ScriptDir & "\data\data.txt"

If FileExists($Datenbank) Then
MsgBox(4096, "Überprüfen", "Datenbank ist Vorhanden")
Else
MsgBox(4096,"Überprüfen" , "Datenbank existiert nicht. Sie wird nun erstellt.")
_FileCreate($Datenbank)
FileWrite($Datenbank, "<normal>" & @CRLF)
FileWrite($Datenbank, "</normal>")
FileWrite($Datenbank, @CRLF & @CRLF)
FileWrite($Datenbank, "<hardcore>" & @CRLF)
FileWrite($Datenbank, "</hardcore>")
EndIf

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ExoPlay", 554, 330, -1, -1)
$Edit1 = GUICtrlCreateEdit("", 16, 24, 521, 153)
$BtnNormal = GUICtrlCreateButton("Speichern Normal", 16, 184, 257, 33)
$BtnHardcore = GUICtrlCreateButton("Speichern Hardcore", 280, 184, 257, 33)
$Combo1 = GUICtrlCreateCombo("Wähle eine Aufgabe die gelöscht werden soll!", 16, 256, 521, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Group1 = GUICtrlCreateGroup("Aufgaben erstellen", 8, 8, 537, 217)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Aufgaben Editieren", 8, 232, 537, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$BtnEdit = GUICtrlCreateButton("Aufgabe Editieren", 16, 280, 257, 33)
$BtnDelete = GUICtrlCreateButton("Aufgabe Löschen", 280, 280, 257, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BtnNormal
If $BtnNormal Then
_WriteBetweenTag($Datenbank, 'normal', GUICtrlRead($Edit1))
EndIf
MsgBox(4096,"Eingetragen", "Daten wurden in die Datenbank gespeichert")
Case $BtnHardcore
If $BtnHardcore then
_WriteBetweenTag($Datenbank, 'hardcore', GUICtrlRead($Edit1))
EndIf
MsgBox(4096,"Eingetragen", "Daten wurden in die Datenbank gespeichert")
EndSwitch
WEnd

Func _WriteBetweenTag($sFilePath, $sTag, $sText)
Local $iLines = _FileCountLines($sFilePath)
For $i = $iLines To 1 Step -1
If FileReadLine($sFilePath, $i) = "</" & $sTag & ">" Then ExitLoop
Next
If $i = 1 Then Return SetError(1,0,0)
Return _FileWriteToLine($sFilePath, $i, $sText)
EndFunc

Also soweit bin ich gekommen:

Nur bekomm ich das nicht hin das er mir zeile für zeile die einträge zeigt und wie man die editiert oder löscht weis ich sowieso net^^ hab ansich noch nicht viel mit dateien gearbeitet^^ und mit tags noch garnicht

Sry ich versteh nur bahngof =(
Wenn ich das als Codebeispiel seh, kann ich es mir besser einprägen.

okay ich gebs auf. keine ahnung wie ich das machen soll lol.