GUI Edit Feld

1. offizieller Beitrag

    Hallo,

    ich wollte auch mal anfangen meine Scripte mit einer schönen GUI zu versehen, aber ich habe das Problem das ich in eine bereits erstellte Edit-Box etwas reinschreiben möchte so das, dass was in der Box steht gelöscht wird und durch den neuen Text ersetzt wird.

    Aber ich habe keine Funktion gefunden die mir das ermöglicht.

    Ich hab mir gedacht GUIctrlsetdata() könnte helfen hat aber nicht geklappt.

    Es wäre sehr nett wenn ihr mir einen Tipp geben könntet.

    Mfg
    monkey

    Monkey - die finale Potenz von göttlich!
    Sloganizer

    Nein ich habe eine Edit-Feld in das was eingegeben werden soll, dieser Text wird dann in einer Funktion verändert und das Ergebnis soll in der gleichen Box ausgegeben werden.

    Edit:

    Ahhhh.... jetzt hab ichs kapiert ^^
    Es war also doch GuiCtrlsetData...

    GUICtrlSetData($edit, "")
    GUICtrlSetData($edit, $newtext)


    Und danke für die Schnelle Hilfe

    Mfg
    monkey

    Monkey - die finale Potenz von göttlich!
    Sloganizer

    Hab mir mal deine GUI für meine verschlüsselung ausgeliehen:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.10.0
    Author: monkey

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here
    #include<array.au3>
    #include<guiconstants.au3>
    #include <String.au3>

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

    $Alphabet = "abcdefghijklmnopqrstuvwxyz"
    $Alphabet &= StringUpper($Alphabet)
    $Alphabet &= "0123456789ß´`^°§$%&/()=?" & '"'
    $Alphabet &= "+*#'-_.:,;~@€~µ|<>²³{[]}\ äöüÄÖÜ"

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

    $Crypt = "o@"&'"'&"K3il{$Qp%hö6B|+~§v€~_ 4cäzn&d}"&"q[J9'1uAHE*OYwaß-°N#ijf(I´CS²s=RxÜgLD8Zü0]U,kMPGy/7Tjµt2m\^5ÖWb:V<.>eX?r`;)F"

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

    ;MsgBox(0,Stringlen($Alphabet),StringlEn($crypt))

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

    GUICreate("Verschlüsselung", 400, 450)
    $edit=GUICtrlCreateEdit("Hier den Text engeben der Ver- Entschlüsselt werden soll", 10,10, 380, 380)
    $Bencrypt=GUICtrlCreateButton("Verschlüsseln", 10,400, 75, 25)
    $Bdecrypt=GUICtrlCreateButton("Entschlüsseln", 315,400, 75, 25)
    GUICtrlSetData ($edit, "Second line",0)

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

    GUISetState(@SW_SHOW)

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

    While 1
    $GUImsg=GUIGetMsg()
    if $GUImsg=$GUI_EVENT_CLOSE then
    exitloop
    ElseIf $GUImsg = $Bencrypt Then
    $editread=GUICtrlRead($edit)
    $newtext=_crypt($editread)
    GUICtrlSetData($edit, "")
    GUICtrlSetData($edit, $newtext)
    ElseIf $GUImsg=$Bdecrypt Then
    $editread=GUICtrlRead($edit)
    $newtext=_decrypt($editread)
    GUICtrlSetData($edit, "")
    GUICtrlSetData($edit, $newtext)
    EndIf

    WEnd

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

    Func _Crypt($String)
    Dim $z
    For $i = 1 To StringLen($String)
    $b = StringMid($Crypt,StringInstr($Alphabet,StringMid($String,$i,1),1),1)

    If Not StringInstr($Alphabet,StringMid($String,$i,1),1) Then $b = StringMid($String,$i,1)
    $z &= $b
    Next
    Return _StringToHex($z)
    EndFunc
    Func _DeCrypt($String)
    Dim $y
    $String = _HexToString($String)
    For $i = 1 To StringLen($String)
    $b = StringMid($Alphabet,StringInstr($Crypt,StringMid($String,$i,1),1),1)
    If Not StringInstr($Crypt,StringMid($String,$i,1),1) Then $b = StringMid($String,$i,1)
    $y &= $b
    Next
    Return $y
    EndFunc

    [/autoit]