Sign in to follow this  
Followers 0
waltv7

Help please

5 posts in this topic

Ok here is my messy code forgive me I am new and I had to borrow some code to. But most was writen by me. I am wanting this to send all the info in the input fields to the edit box after I have opened a file into the edit box.

;Mud Wold editing program round 2
#include <GUIConstants.au3>
#include <Misc.au3>
#include <String.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>

;$openfile = ""
;#include <GUIConstants.au3>

;Global $textout, $file
;$file = FileOpen("C:\15.wld", 0)
;$textread = FileRead($file)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MUD World Room Creator", 1070, 449, 5, 123)
$roomnum = GUICtrlCreateInput("", 24, 32, 57, 21)
$roomname = GUICtrlCreateInput("", 104, 32, 225, 21)
$roomdesc = GUICtrlCreateEdit("", 24, 72, 305, 105)
$Label1 = GUICtrlCreateLabel("Room Number", 24, 8, 72, 17)
$Label2 = GUICtrlCreateLabel("Room Name", 104, 8, 63, 17)
$Label3 = GUICtrlCreateLabel("Room Description", 24, 56, 88, 17)
$Label4 = GUICtrlCreateLabel("Zone Number", 24, 184, 69, 17)
$zonenum = GUICtrlCreateInput("", 24, 208, 65, 21)
$bitvector = GUICtrlCreateCombo("", 104, 208, 97, 25)
GUICtrlSetData(-1, "a DARK|b DEATH|c NO MOB|d INDOORS|e PEACEFUL|f SOUNDPROOF|g NOTRACK|h NOMAGIC|i TUNNEL|j PRIVATE|k GODROOM", "d INDOORS")
$Label5 = GUICtrlCreateLabel("Bit Vector", 104, 184, 50, 17)
$morevec = GUICtrlCreateInput("", 208, 208, 89, 21)
$Label17 = GUICtrlCreateLabel("Aditional Bit Vector", 208, 184, 93, 17)
$roomter = GUICtrlCreateCombo(" ", 304, 208, 89, 25)
GUICtrlSetData(-1, "0 INSIDE|1 CITY|2 FIELD|3 FOREST|4 HILLS|5 MOUNTAIN|6 WATER_SWIM|7 WATER_NOSWIM|8 FLYING|9 UNDERWATER", "0 INSIDE")
$Label6 = GUICtrlCreateLabel("Room Terrain", 304, 184, 68, 17)
$northc = GUICtrlCreateCheckbox("Checkbox1", 24, 256, 17, 17)
$eastc = GUICtrlCreateCheckbox("Checkbox2", 24, 288, 17, 17)
$southc = GUICtrlCreateCheckbox("Checkbox3", 24, 320, 17, 17)
$westc = GUICtrlCreateCheckbox("Checkbox4", 24, 352, 17, 17)
$upc = GUICtrlCreateCheckbox("Checkbox5", 24, 384, 17, 17)
$downc = GUICtrlCreateCheckbox("Checkbox6", 24, 416, 17, 17)
$Label7 = GUICtrlCreateLabel("Exits", 24, 232, 26, 17)
$Label8 = GUICtrlCreateLabel("North", 40, 256, 30, 17)
$Label9 = GUICtrlCreateLabel("East", 40, 288, 25, 17)
$Label10 = GUICtrlCreateLabel("South", 40, 320, 32, 17)
$Label11 = GUICtrlCreateLabel("West", 40, 352, 29, 17)
$Label12 = GUICtrlCreateLabel("Up", 40, 384, 18, 17)
$Label13 = GUICtrlCreateLabel("Down", 40, 416, 32, 17)
$doorn = GUICtrlCreateCombo("", 80, 248, 81, 25)
GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "")
$doore = GUICtrlCreateCombo("", 80, 280, 81, 25)
GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "")
$doors = GUICtrlCreateCombo("", 80, 312, 81, 25)
GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "")
$doorw = GUICtrlCreateCombo("", 80, 344, 81, 25)
GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "")
$dooru = GUICtrlCreateCombo("", 80, 376, 81, 25)
GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "")
$doord = GUICtrlCreateCombo("", 80, 408, 81, 25)
GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "")
$keynumn = GUICtrlCreateInput("", 176, 248, 73, 21)
$keynume = GUICtrlCreateInput("", 176, 280, 73, 21)
$keynums = GUICtrlCreateInput("", 176, 312, 73, 21)
$keynumw = GUICtrlCreateInput("", 176, 344, 73, 21)
$keynumu = GUICtrlCreateInput("", 176, 376, 73, 21)
$keynumd = GUICtrlCreateInput("", 176, 408, 73, 21)
$lookn = GUICtrlCreateInput("", 272, 248, 241, 21)
$looke = GUICtrlCreateInput("", 272, 280, 241, 21)
$looks = GUICtrlCreateInput("", 272, 312, 241, 21)
$lookw = GUICtrlCreateInput("", 272, 344, 241, 21)
$looku = GUICtrlCreateInput("", 272, 376, 241, 21)
$lookd = GUICtrlCreateInput("", 272, 408, 241, 21)
$makecode = GUICtrlCreateButton("Generate Code", 368, 24, 217, 33, 0)
$exit = GUICtrlCreateButton("Exit", 368, 72, 217, 33, 0)
$Label14 = GUICtrlCreateLabel("Door Options", 80, 232, 66, 17)
$Label15 = GUICtrlCreateLabel("Door Key #", 176, 232, 58, 17)
$Label16 = GUICtrlCreateLabel("Direction Look", 272, 232, 73, 17)
$nout = GUICtrlCreateInput("", 528, 248, 89, 21)
$eout = GUICtrlCreateInput("", 528, 280, 89, 21)
$sout = GUICtrlCreateInput("", 528, 312, 89, 21)
$wout = GUICtrlCreateInput("", 528, 344, 89, 21)
$uout = GUICtrlCreateInput("", 528, 376, 89, 21)
$dout = GUICtrlCreateInput("", 528, 408, 89, 21)
$File = GUICtrlCreateMenu("File")
$New = GUICtrlCreateMenuItem("New", $File)
$Open = GUICtrlCreateMenuItem("Open...", $File)
$Save = GUICtrlCreateMenuItem("Save", $File)
$SaveAs = GUICtrlCreateMenuItem("Save As...", $File)
GUICtrlCreateMenuItem("", $File)
$Print = GUICtrlCreateMenuItem("Print...", $File)
GUICtrlCreateMenuItem("", $File)
$Exit = GUICtrlCreateMenuItem("Exit", $File)

$Edit = GUICtrlCreateMenu("Edit")
$Undo = GUICtrlCreateMenuItem("Undo", $Edit)
GUICtrlCreateMenuItem("", $Edit)
$Cut = GUICtrlCreateMenuItem("Cut", $Edit)
$Copy = GUICtrlCreateMenuItem("Copy", $Edit)
$Paste = GUICtrlCreateMenuItem("Paste", $Edit)
$Delete = GUICtrlCreateMenuItem("Delete", $Edit)
GUICtrlCreateMenuItem("", $Edit)
$SelectAll = GUICtrlCreateMenuItem("Select All", $Edit)
$Time = GUICtrlCreateMenuItem("Time/Date", $Edit)

$Show = GUICtrlCreateMenu("Show")
$Font = GUICtrlCreateMenuItem("Font...", $Show)

$Help = GUICtrlCreateMenu("Help")
$About = GUICtrlCreateMenuItem("About", $Help)

$Extra = GUICtrlCreateMenu("Extra")
$Count = GUICtrlCreateMenuItem("Count...", $Extra)
$Reverse = GUICtrlCreateMenuItem("Reverse Text", $Extra)
$Hex = GUICtrlCreateMenuItem("Hex Text", $Extra)
$UnHex = GUICtrlCreateMenuItem("UnHex Text", $Extra)
$Encrypt = GUICtrlCreateMenuItem("Encrypt Text...", $Extra)

$EditField = GUICtrlCreateEdit("", 632, 24, 433, 409)

Global $GUI,  $fod_save
;GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;GUICtrlSetData($textout, "")
$exitcheck = 1
GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
        _Exit()
    Case $nMsg = $New
        _New()
    Case $nMsg = $Open
        _Open()
    Case $nMsg = $Save
        _Save()
    Case $nMsg = $SaveAs
        _SaveAs()
    Case $nMsg = $Print
        _Print()
    Case $nMsg = $Exit
        _Exit()
    Case $nMsg = $Undo
        Sleep(100)
        Send("^z")
    Case $nMsg = $Cut
        Sleep(100)
        Send("^x")
    Case $nMsg = $Copy
        Sleep(100)
        Send("^c")
    Case $nmsg = $Paste
        Sleep(100)
        Send("^v")
    Case $nMsg = $Delete
        Sleep(100)
        Send("{DELETE}")
    Case $nMsg = $SelectAll
        Sleep(100)
        Send("{TAB}")
    Case $nMsg = $Time
        $TimeDate = @HOUR & ":" & @MIN & " " & @MDAY & "-" & @MON & "-" & @YEAR
        Sleep(100)
        Send($TimeDate)
    Case $nMsg = $Font
        $aFont = _ChooseFont("", "", "", "", "", "", "", $GUI)
        If $aFont <> -1 Then
            GUICtrlSetFont($EditField, $aFont[3], $aFont[4], $aFont[1], $aFont[2])
            GUICtrlSetColor($EditField, $aFont[7])
        EndIf
    Case $nMsg = $About
        MsgBox(64, "About", "Notepad Example made by" & @CRLF & "AlmarM")
    Case $nMsg = $Count
        _Count()
    Case $nMsg = $Reverse
        _Reverse()
    Case $nMsg = $Hex
        _Hex()
    Case $nMsg = $UnHex
        _UnHex()
    Case $nMsg = $Encrypt
        _Encrypt(GUICtrlRead($EditField))
    EndSelect
WEnd

Func _New()
    If GUICtrlRead($EditField) <> "" Then
        $MsgBox = MsgBox(51, "", "Save text first?")
        If $MsgBox = 6 Then
            $read_text = GUICtrlRead($EditField)
            $fod_new_save = FileSaveDialog("Save...", @DesktopDir, "World Files (*.wld)", 18, "", $GUI)
            FileWrite($fod_new_save & ".wld", $read_text)
            GUICtrlSetData($EditField, "")
        ElseIf $MsgBox = 7 Then
            GUICtrlSetData($EditField, "")
        Else
        EndIf
    Else
        GUICtrlSetData($EditField, "")
    EndIf
EndFunc

Func _Open()
    If GUICtrlRead($EditField) <> "" Then
        $MsgBox = MsgBox(51, "", "Save text first?")
        If $MsgBox = 6 Then
            $read_text = GUICtrlRead($EditField)
            $fod_open_save = FileSaveDialog("Save...", @DesktopDir, "World Files (*.wld)", 18, "", $GUI)
            FileWrite($fod_open_save & ".wld", $read_text)
            $fod_open = FileOpenDialog("Open...", @DesktopDir, "World Files (*.wld)", 11, "", $GUI)
            $read = FileRead($fod_open)
            GUICtrlSetData($EditField, $read)
        ElseIf $MsgBox = 7 Then
            $fod_open = FileOpenDialog("Open...", @DesktopDir, "World Files (*.wld)", 11, "", $GUI)
            $read = FileRead($fod_open)
            $gettitle = WinGetTitle("[CLASS:AutoIt v3 GUI]")
            WinSetTitle($gettitle, "", $fod_open)
            GUICtrlSetData($EditField, $read)
        Else
        EndIf
    Else
        $fod_open = FileOpenDialog("Open...", @DesktopDir, "World Files (*.wld)", 11, "", $GUI)
        $read = FileRead($fod_open)
        $gettitle = WinGetTitle("[CLASS:AutoIt v3 GUI]")
        WinSetTitle($gettitle, "", $fod_open)
        GUICtrlSetData($EditField, $read)
    EndIf
EndFunc

Func _Save()
    If WinGetTitle("[CLASS:AutoIt v3 GUI]") <> "Notepad Example" Then
        $gettitle = WinGetTitle("[CLASS:AutoIt v3 GUI]")
        FileWrite($gettitle, GUICtrlRead($EditField))
    Else
        $fod_save = FileSaveDialog("Save...", @DesktopDir, "World Files (*.wld)", 18, "", $GUI)
        If $fod_save <> "" Then
            $read = GUICtrlRead($EditField)
            FileWrite($fod_save & ".wld", $read)
            WinSetTitle(WinGetTitle("[CLASS:AutoIt v3 GUI]"), "", $fod_save)
        EndIf
    EndIf
EndFunc

Func _SaveAs()
    $fod_saveas = FileSaveDialog("Save As...", @DesktopDir, "World Files (*.wld)", 18, "", $GUI)
    If $fod_saveas <> "" Then
        $read = GUICtrlRead($EditField)
        FileWrite($fod_save & ".wld", $read)
    EndIf
EndFunc

Func _Print()
    $Read = GUICtrlRead($EditField)
    $Random = Random(000000, 999999, 1)
    $x = FileWrite(@TempDir & "\$~" & $Random & ".wld", $Read)
    $File = @TempDir & "\$~" & $Random & ".wld"
    _FilePrint($File)
    Sleep(1000)
    FileDelete($File)
EndFunc

Func _Count()
    $Words = StringSplit(GUICtrlRead($EditField), " ")
    $xWords = $Words[0]
    MsgBox(0, "", "Total: " & StringLen(GUICtrlRead($EditField)) & @CRLF & "Total Words: " & $xWords & @CRLF & "10 Most Left: " & StringLeft(GUICtrlRead($EditField), 10) & @CRLF & "10 Most Right: " & _
                    StringRight(GUICtrlRead($EditField), 10))
EndFunc

Func _Reverse()
    $read = GUICtrlRead($EditField)
    $rev = _StringReverse($read)
    GUICtrlSetData($EditField, $rev)
EndFunc

Func _Hex()
    $Read = GUICtrlRead($EditField)
    $x = _StringToHex($Read)
    GUICtrlSetData($EditField, $x)
EndFunc

Func _UnHex()
    $Read = GUICtrlRead($EditField)
    $x = _HexToString($Read)
    GUICtrlSetData($EditField, $x)
EndFunc

Func _Encrypt($nText)
    $Main = GUICreate("Encrypt", 400, 400, -1, -1)
    $EditText = GUICtrlCreateEdit("", 5, 5, 390, 350)
    GUICtrlSetData($EditText, $nText)
    $InputPass = GUICtrlCreateInput("", 5, 360, 100, 20, BitOR($ES_PASSWORD, $ES_CENTER))
    $InputLevel = GUICtrlCreateInput("1", 110, 360, 50, 20, $SM_REMOTECONTROL)
    $UpDown = GUICtrlCreateUpDown($InputLevel)
    GUICtrlSetLimit($UpDown, 10, 1)
    $EncryptButton = GUICtrlCreateButton("Encrypt", 170, 360, 105, 35)
    $DecryptButton = GUICtrlCreateButton("Decrypt", 285, 360, 105, 35)
    
    GUISetState()
    While 1
        $nMsg = GUIGetMsg()
        Select
        Case $nMsg = $GUI_EVENT_CLOSE
            GUIDelete($Main)
            ExitLoop
        Case $nMsg = $EncryptButton
            $Read_Text = GUICtrlRead($EditText)
            $Read_Level = GUICtrlRead($InputPass)
            $Read_Pass = GUICtrlRead($InputPass)
            GUICtrlSetData($EditText, "Encrypting...")
            $x = _StringEncrypt(1, $Read_Text, $Read_Pass, $Read_Level)
            GUICtrlSetData($EditText, $x)
        Case $nmsg = $DecryptButton
            $Read_Text = GUICtrlRead($EditText)
            $Read_Level = GUICtrlRead($InputPass)
            $Read_Pass = GUICtrlRead($InputPass)
            GUICtrlSetData($EditText, "Decrypting...")
            $x = _StringEncrypt(0, $Read_Text, $Read_Pass, $Read_Level)
            GUICtrlSetData($EditText, $x)
        EndSelect
    WEnd
EndFunc

Func _Exit()
    If GUICtrlRead($EditField) <> "" Then
        $MsgBox = MsgBox(51, "", "Save text first?")
        If $MsgBox = 6 Then
            $read_text = GUICtrlRead($EditField)
            $fod_new_save = FileSaveDialog("Save...", @DesktopDir, "Text Files (*.wld)", 18, "", $GUI)
            FileWrite($fod_new_save & ".wld", $read_text)
            GUICtrlSetData($EditField, "")
        ElseIf $MsgBox = 7 Then
            Exit
        Else
        EndIf
    Else
        Exit
    EndIf
EndFunc

While $exitcheck = 1
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $nMsg = $makecode
            If GUICtrlRead($bitvector) = "a DARK" Then
                    $bitvec = "a"
                ElseIf GUICtrlRead($bitvector) = "b DEATH" Then
                    $bitvec = "b"
                ElseIf GUICtrlRead($bitvector) = "c NO MOB" Then
                    $bitvec = "c"
                ElseIf GUICtrlRead($bitvector) = "d INDOORS" Then
                    $bitvec = "d"
                ElseIf GUICtrlRead($bitvector) = "e PEACFUL" Then
                    $bitvec = "e"
                ElseIf GUICtrlRead($bitvector) = "f SOUNDPROOF" Then
                    $bitvec = "f"
                ElseIf GUICtrlRead($bitvector) = "g NOTRACK" Then
                    $bitvec = "g"
                ElseIf GUICtrlRead($bitvector) = "h NOMAGIC" Then
                    $bitvec = "h"
                ElseIf GUICtrlRead($bitvector) = "i TUNNEL" Then
                    $bitvec = "i"
                ElseIf GUICtrlRead($bitvector) = "j PRIVATE" Then
                    $bitvec = "j"
                ElseIf GUICtrlRead($bitvector) = "k GODROOM" Then
                    $bitvec = "k"
            EndIf
            If GUICtrlRead($roomter) = "0 INSIDE" Then
                    $tertype = "0"
                ElseIf GUICtrlRead($roomter) = "1 CITY" Then
                    $tertype = "1"
                ElseIf GUICtrlRead($roomter) = "2 FIELD" Then
                    $tertype = "2"
                ElseIf GUICtrlRead($roomter) = "3 FOREST" Then
                    $tertype = "3"
                ElseIf GUICtrlRead($roomter) = "4 HILLS" Then
                    $tertype = "4"
                ElseIf GUICtrlRead($roomter) = "5 MOUNTAIN" Then
                    $tertype = "5"
                ElseIf GUICtrlRead($roomter) = "6 WATER_SWIM" Then
                    $tertype = "6"
                ElseIf GUICtrlRead($roomter) = "7 WATER_NOSWIM" Then
                    $tertype = "7"
                ElseIf GUICtrlRead($roomter) = "8 FLYING" Then
                    $tertype = "8"
                ElseIf GUICtrlRead($roomter) = "9 UNDERWATER" Then
                    $tertype = "9"
            EndIf
        GUISetState($northc) 
        If GUICtrlRead($northc) = "1" Then
            $dirn = "D0"
            If GUICtrlRead($doorn) = "0 No Door" Then
                $ndoor = "0"
                $nkey = "-1"            
            ElseIf GUICtrlRead($doorn) = "1 Door" Then
                $ndoor = "1"
                $nkey = GUICtrlRead($keynumn)
            Else
                $ndoor = "2"
                $nkey = GUICtrlRead($keynumn)
            EndIf
        EndIf
        GUISetState($eastc)
        If GUICtrlRead($eastc) = "1" Then
            $dire = "D1"
            If GUICtrlRead($doore) = "0 No Door" Then
                $edoor = "0"
                $ekey = "-1"            
            ElseIf GUICtrlRead($doore) = "1 Door" Then
                $edoor = "1"
                $ekey = GUICtrlRead($keynume)
            Else
                $edoor = "2"
                $ekey = GUICtrlRead($keynume)
            EndIf
        EndIf
        GUISetState($southc)
        If GUICtrlRead($southc) = "1" Then
            $dirs = "D2"
            If GUICtrlRead($doors) = "0 No Door" Then
                $sdoor = "0"
                $skey = "-1"            
            ElseIf GUICtrlRead($doors) = "1 Door" Then
                $sdoor = "1"
                $skey = GUICtrlRead($keynums)
            Else
                $sdoor = "2"
                $skey = GUICtrlRead($keynums)
            EndIf
        EndIf
        GUISetState($westc)
        If GUICtrlRead($westc) = "1" Then
            $dirw = "D3"
            If GUICtrlRead($doorw) = "0 No Door" Then
                $wdoor = "0"
                $wkey = "-1"            
            ElseIf GUICtrlRead($doorw) = "1 Door" Then
                $wdoor = "1"
                $wkey = GUICtrlRead($keynumw)
            Else
                $wdoor = "2"
                $wkey = GUICtrlRead($keynumw)
            EndIf
        EndIf
        GUISetState($upc)
        If GUICtrlRead($upc) = "1" Then
            $diru = "D4"
            If GUICtrlRead($dooru) = "0 No Door" Then
                $udoor = "0"
                $ukey = "-1"            
            ElseIf GUICtrlRead($dooru) = "1 Door" Then
                $udoor = "1"
                $ukey = GUICtrlRead($keynumu)
            Else
                $udoor = "2"
                $ukey = GUICtrlRead($keynumu)
            EndIf
        EndIf
        GUISetState($downc)
        If GUICtrlRead($downc) = "1" Then
            $dird = "D5"
            If GUICtrlRead($doord) = "0 No Door" Then
                $ddoor = "0"
                $dkey = "-1"            
            ElseIf GUICtrlRead($doord) = "1 Door" Then
                $ddoor = "1"
                $dkey = GUICtrlRead($keynumd)
            Else
                $ddoor = "2"
                $dkey = GUICtrlRead($keynumd)
            EndIf
        EndIf
;       FileWrite($file, "S" & @CRLF)
        Case $nMsg = $exit
            ExitLoop
    EndSelect
            GUICtrlSetData($EditField, GUICtrlRead($roomnum) & @CRLF & GUICtrlRead($roomname) & @CRLF & GUICtrlRead($roomdesc) & @CRLF)
            GUICtrlSetData($EditField, "~" & @CRLF & GUICtrlRead($zonenum) & " " & $bitvec & GUICtrlRead($morevec) & " " & $tertype & @CRLF)
            GUICtrlSetData($EditField, $dirn & @CRLF & GUICtrlRead($lookn) & @CRLF & "~" & @CRLF & "~" & @CRLF)
            GUICtrlSetData($EditField, $ndoor & " " & $nkey & " " & GUICtrlRead($nout) & @CRLF &  $dire & @CRLF & GUICtrlRead($looke) & @CRLF)
            GUICtrlSetData($EditField, "~" & @CRLF & "~" & @CRLF & $edoor & " " & $ekey & " " & GUICtrlRead($eout) & @CRLF & $dirs & @CRLF)
            GUICtrlSetData($EditField, GUICtrlRead($looks) & @CRLF & "~" & @CRLF & "~" & @CRLF & $sdoor & " " & $skey & " " & GUICtrlRead($sout) & @CRLF)
            GUICtrlSetData($EditField, $dirw & @CRLF & GUICtrlRead($lookw) & @CRLF & "~" & @CRLF & "~" & @CRLF)
            GUICtrlSetData($EditField, $wdoor & " " & $wkey & " " & GUICtrlRead($wout) & @CRLF & $diru & @CRLF & GUICtrlRead($looku) & @CRLF)
            GUICtrlSetData($EditField, "~" & @CRLF & "~" & @CRLF & $udoor & " " & $ukey & " " & GUICtrlRead($uout) & @CRLF & $dird & @CRLF)
            GUICtrlSetData($EditField, GUICtrlRead($lookd) & @CRLF & "~" & @CRLF & "~" & @CRLF & $ddoor & " " & $dkey & " " & GUICtrlRead($dout) & @CRLF)
WEnd

Share this post


Link to post
Share on other sites



I am wanting this to send all the info in the input fields to the edit box after I have opened a file into the edit box.

What does this mean?

after I have opened a file into the edit box.

Can you explain what you want to do a bit more clearly? You have 32 edits so are you talking about $EditField?

Do upu want the text in each input to be displayed somehow in $EditField?


Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

What does this mean?

Can you explain what you want to do a bit more clearly? You have 32 edits so are you talking about $EditField?

Do upu want the text in each input to be displayed somehow in $EditField?

Well you said exactly what I want all the text in each input displayed in $EditField

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Well you said exactly what I want all the text in each input displayed in $EditField

All you have to do is to get the text from each edit using something like

$text1 = GuiCtrlRead($edit1)

And you can write whatever you want to the big edit with something like

GuiCtrlSetData($EditField,$text1 @ @CRLF,1); ,1 to append the text to whats already in the edit rather than replace it.

Or do something like

$text = ''
$text &= "item 1 = " & guiCtrlRead($edit1) & @CRLF
$text &= "Door option chosen = " & Guictrlread($edit2) & @CRLF
;etc
GuictrlSetData($EditField,$text)

EDIT:spelling

Edited by martin

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

Haha ^^,

you borrowed some code from me :), thats cool :)

AlmarM


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0