GUICtrlCreateInput to accept only formattted numbers

[myspacee]

Hello,

to facilitate my users to input money digits in my GUICtrlCreateInput i want to format like this :

1234,00 = 1.234,00

9999888,77 = 9.999.888,77

 

How set GUICtrlCreateInput to accept numbers, comma and dot chars like above examples ?

 

Thank you for any info,

m.

[Starstar]

Local $isnum = 445

If IsNumber($isnum) Then
    MsgBox(0,"Error","This is a digits")
Else
    MsgBox(0,"Error","This is not a digits")
    EndIf

Try this one.

[myspacee]

HEllo,

thank you for reply but i ask for a separator style like this :

 

m.

 

[BrewManNH]

I believe you'll have to process that yourself. There's no setting for an input control that will do it automatically. Maybe this thread might give you some ideas.

[Starstar]

$guiInfo = GUICreate("Data",250,150)
$guicombo = GUICtrlCreateCombo("",140,10,80,30)
$guicombolbl = GUICtrlCreateLabel("Select Formate",10,10,80,30)
$guicombo1 = GUICtrlCreateCombo("",140,50,80,30)
$guicombolbl = GUICtrlCreateLabel("Data Entry",10,50,80,30)
GUICtrlSetData($guicombo, "Number|Text|", "Number")
GUISetState(@SW_SHOW)

while 2
    $reding = GUICtrlRead($guicombo)
    Select
        Case $reding = "Number"
            Local $gnmdata
        $nmdata = "1|2|3|4|5|6|7|8|9|10"
        If $nmdata <> $gnmdata Then
            GUICtrlSetData($guicombo1,"")
            GUICtrlSetData($guicombo1, "1|2|3|4|5|6|7|8|9|10", "1")
            $gnmdata = $nmdata
            $gtxdata = ""
            EndIf
        Case Else
            Local $gtxdata
            $txdata = "A|B|C|D|E|F|G|H|I|J"
            If $txdata <> $gtxdata Then
            GUICtrlSetData($guicombo1,"")
            GUICtrlSetData($guicombo1, "A|B|C|D|E|F|G|H|I|J", "A")
            $gtxdata = $txdata
            $gnmdata = ""
            EndIf
    EndSelect
    $gMsg = GUIGetMsg()
    Switch $gMsg
        Case -3
        Exit
        EndSwitch
WEnd

Do you want something like this?

[UEZ]

Try this:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

AutoItSetOption("GUIOnEventMode", 1)

Global Const $sSep = ".", $sDec = ","
Global Const $hGUI = GUICreate("Currency Decimal Separator", 232, 90)
Global Const $Label = GUICtrlCreateLabel("Enter some numbers", 22, 8, 163, 17)
Global Const $input = GUICtrlCreateInput("", 22, 30, 165, 24)
GUICtrlSetLimit(-1, 19)
GUICtrlSetFont(-1, 12)
Global Const $iCurrency = GUICtrlCreateLabel("€", 22 + 165 + 4, 32, 10, 17)
GUICtrlSetFont(-1, 12)
GUISetState()

GUIRegisterMsg($WM_COMMAND, '_WM_COMMAND')
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

While Sleep(1000)
WEnd

Func _Exit()
    GUIDelete()
    Exit
EndFunc

Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    If BitAND($wParam, 0x0000FFFF) = $input Then
        GUICtrlSetData($input, CurrencySeperator(StringRegExpReplace(GUICtrlRead($input), "[^0-9" & $sDec & "]", "")))
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

Func CurrencySeperator($iNumber, $iDecPlace = 2)
    $iNumber = StringReplace($iNumber, $sSep, "")
    StringReplace($iNumber, $sDec, $sDec)
    Switch @extended
        Case 0
            If StringLen($iNumber) > 3 Then
                $iNumber = StringReverse(StringRegExpReplace(StringReverse($iNumber), ".{3}", "$0" & $sSep))
                If StringLeft($iNumber, 1) = $sSep Then $iNumber = StringTrimLeft($iNumber, 1)
            EndIf
            Return $iNumber
        Case 1
            Local Const $f = StringLeft(StringRegExpReplace($iNumber, ".+\" & $sDec & "(\d*)", "$1"), $iDecPlace)
            $iNumber = StringRegExpReplace($iNumber, "(\d+)\" & $sDec & ".*", "$1")
            $iNumber = StringReverse(StringRegExpReplace(StringReverse($iNumber), ".{3}", "$0" & $sSep))
            If StringLeft($iNumber, 1) = $sSep Then $iNumber = StringTrimLeft($iNumber, 1)
            Return $iNumber & $sDec & $f
        Case Else
            Return StringTrimRight($iNumber, 1)
    EndSwitch
EndFunc

Not implemented yet: -,+

Edited May 22, 2015 by UEZ

[mikell]

UEZ,

Nice
The CurrencySeperator func could be compacted a bit though

Func CurrencySeperator($iNumber, $iDecPlace = 2)
  Local $s = StringSplit(StringReplace($iNumber, $sSep, ""), $sDec)
  Return StringRegExpReplace($s[1], '(?<=\d)(?=(\d{3})+$)', $sSep) & (($s[0] = 1) ? "" : "," & StringLeft($s[2], $iDecPlace))
EndFunc

Edit
And this allows typing a comma as first char

Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    If BitAND($wParam, 0x0000FFFF) = $input Then
        Local $iNumber = StringRegExpReplace(GUICtrlRead($input), '^' & $sDec, "0" & $sDec)
        GUICtrlSetData($input, CurrencySeperator(StringRegExpReplace($iNumber, "[^0-9" & $sDec & "]", "")))
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

Edited May 22, 2015 by mikell

[UEZ]

Absolutely cool how you shorten the CurrencySeperator function. 

 

Thanks.

[myspacee]

Thank you!

m.