To parse the value entered in the editbox.

[chngrcn]

Code: Select all

Gui, Add, Edit, x32 y40 w320 h90 vInpt, EB542219*34JP6237*40372894838
Gui, Add, Edit, x32 y160 w320 h20 vEdi1, %Edi1%
Gui, Add, Edit, x32 y210 w320 h20 vEdi2, %Edi2%
Gui, Add, Edit, x32 y260 w320 h20 vEdi3, %Edi3%
Gui, Add, Text, x32 y140 w100 h20 , Edi1
Gui, Add, Text, x32 y190 w100 h20 , Edi2
Gui, Add, Text, x32 y240 w100 h20 , Edi3
Gui, Add, Text, x32 y20 w200 h20 , Main Table 
Gui, Show, w479 h379, Gui
return

Hello

in the above code I want to do;

I want to parse the value entered in the main table box.

"*" to decompose the values up.


the result will be:

main table = EB542219*34JP6237*40372894838

edi1 = EB542219
edi2 = 34JP6237
edi3 = 40372894838

thank you for your help.

[Odlanir]

Code: Select all

Gui, Add, Edit, x32 y40 w320 h90 vInpt, EB542219*34JP6237*40372894838
Gui, Add, Edit, x32 y160 w320 h20 vEdi1, %Edi1%
Gui, Add, Edit, x32 y210 w320 h20 vEdi2, %Edi2%
Gui, Add, Edit, x32 y260 w320 h20 vEdi3, %Edi3%
Gui, Add, Text, x32 y140 w100 h20 , Edi1
Gui, Add, Text, x32 y190 w100 h20 , Edi2
Gui, Add, Text, x32 y240 w100 h20 , Edi3
Gui, Add, Text, x32 y20 w200 h20 , Main Table 
Gui, Add, Button, x32 y300 w200 h60 gBut, Do the work 
Gui, Show, w479 h379, Gui
return

ExitApp

But:
    Gui, Submit, NoHide
    Arr := StrSplit(Inpt, "*")
    loop, 3
        GuiControl,,Edi%A_index%, % Arr[a_index]
return

[chngrcn]

Can we put a check here?

if the Inpt box ( vInpt) is empty, exit sub.

[BoBo]

Yes "we" can.

Code: Select all

But:
    Gui, Submit, NoHide
    If (inpt != " ") {    ; if input is NOT empty go on. Else ...
        Arr := StrSplit(Inpt, "*")
        Loop, 3
            GuiControl,,Edi%A_index%, % Arr[a_index]
        }
    Return 

[chngrcn]

thank you very much bobo.. i can speak english a little. Excuse me!

[Johana]

Yes "we" can.

Code: Select all

But:
    Gui, Submit, NoHide
    If (inpt != " ") {    ; if input is NOT empty go on. Else ...
        Arr := StrSplit(Inpt, "*")
        Loop, 3
            GuiControl,,Edi%A_index%, % Arr[a_index]
        }
    Return 

Bobo, is there a difference if there's a space where the " " are? I.e: Does this work:

Code: Select all

If (inpt != "") 

[BoBo]

Well, there is a difference indeed ...

Code: Select all

; inpt :=
; inpt := ""
inpt := " "

If (inpt != " ")   ; if var doesn't contain a space character
   MsgBox % "1 |" . inpt . "|"
If (inpt != "")   ; if var isn't empty
   MsgBox % "2 |" . inpt . "|"

[Johana]

Well, there is a difference indeed ...

Code: Select all

; inpt :=
; inpt := ""
inpt := " "

If (inpt != " ")   ; if var doesn't contain a space character
   MsgBox % "1 |" . inpt . "|"
If (inpt != "")   ; if var isn't empty
   MsgBox % "2 |" . inpt . "|"

Thanks!

[chngrcn]

Code: Select all

Gui, Add, Edit, x32 y40 w320 h90 vInpt, EB542219*34JP6237*40372894838
Gui, Add, Edit, x32 y160 w320 h20 vEdi1, %Edi1%
Gui, Add, Edit, x32 y210 w320 h20 vEdi2, %Edi2%
Gui, Add, Edit, x32 y260 w320 h20 vEdi3, %Edi3%
Gui, Add, Text, x32 y140 w100 h20 , Edi1
Gui, Add, Text, x32 y190 w100 h20 , Edi2
Gui, Add, Text, x32 y240 w100 h20 , Edi3
Gui, Add, Text, x32 y20 w200 h20 , Main Table 
Gui, Add, Button, x32 y300 w200 h60 gBut, Do the work 
Gui, Show, w479 h379, Gui
return

ExitApp

But:
    Gui, Submit, NoHide
    Arr := StrSplit(Inpt, "*")
    loop, 3
        GuiControl,,Edi%A_index%, % Arr[a_index]
return

I would like to ask my friends something else.
in the above code, but not in the editbox's change event?