Beiträge von slash

das klapper ding will niemand mehr^^ der is von der zeit wo xp neu aufn markt gekommen is^^

BugFix . Ich hab noch nen fujjistsu simens laptop. hast du in der nächsten zeit was vor??^^ der könnte ma nen kleinen check gebrauchen haha =P ne im ernst hab mit dem laptop nur probleme und weil es mich aufgeregt hat hab ich ihn weg gepackt und mir nen neuen geholt =)

cool danke funtzt perfekt

Iwie funtzt das net^^

Hi leute.
Ich wollte mal fragen wie das geht das wenn ich ein gui größer mache oder maximiere/fullscreen, dass die elemente im gui wie button edit usw automatisch mit größer werden.

Habe letztens als beispiel mal ne fullscreen gui gemacht aber die elemente bleiben dann einfach in der gleichen position.

Wie würde das den gehen? Hab jetzt zwar keine gui gemacht sondern es ist ja nur ne frage....

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

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

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

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

Achso ok. Kenne das so halt aus anderen Foren

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

Also pls closen

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.

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

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

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

Achso lol jetz versteh ich^^

das writebetweentag schreibt es ja in die angegebenen zeilen daher brauchtg man auch keine 2te funktion^^

sry ich brauch immer ein bischen länger^^

OkayDanke.

Ich hab da aber nochein problem.

habe deine write funktion bischen abgeändert.

#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("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 $nMsg = $BtnNormal
If $BtnNormal Then
_WriteBetweenTagNormal('data.txt', 'normal', $Edit1)
EndIf
Case $nMsg = $BtnHardcore
If $BtnHardcore Then
_WriteBetweenTagHardcore('data.txt', 'hardcore', $Edit1)
EndIf
EndSwitch
WEnd

Func _WriteBetweenTagNormal($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 & @CRLF)
EndFunc

Func _WriteBetweenTagHardcore($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 & @CRLF)
EndFunc

jedoch wenn ich das mache das schreibt er hammer lange zeilen nach unten nur ne 3 lol.
Was is der fehler?

okay habs hinbekommen

Mhm wenn ich diesen Code nehme

Kommt dieser Error

C:\Users\Patrick\Desktop\AutoIT Project\ExoPlay\Test2.au3(7,11) : ERROR: syntax error
"<normal>"
~~~~~~~~~~^
C:\Users\Patrick\Desktop\AutoIT Project\ExoPlay\Test2.au3 - 1 error(s), 0 warning(s)

Omg scheisse^^ sry ich hab das Total übersehen^^ loooool sry sry sry sry sry sry sry verzeih mir looooool!

OMG maaaaaaaan. Naja danke dir^^