_GUICtrlUSPS_Create()

[argumentum]

#include <GuiConstants.au3>
#include <GuiIPAddress.au3>
#include <WindowsConstants.au3>
Opt("MustDeclareVars", 1)
test()
Func test()
    Local $hgui, $nMsg, $iBtn_Get, $hIPAddress
    $hgui = GUICreate("IP Address Control Example", 500, 150)
    Local $hIPAddress = _GUICtrlIpAddress_Create($hgui, 10, 10, 200, 20)
    _GUICtrlIpAddress_Set($hIPAddress, @IPAddress1)
    $iBtn_Get = GUICtrlCreateButton("Get IP", 220, 10, 75, 20)

    GUICtrlCreateInput("1234 1234 1234 1234 1234", 10, 40, 200)
    GUICtrlCreateButton("Get USPS", 220, 40, 75, 20)
    GUICtrlCreateInput("1234 1234 1234 1234 1234 12", 10, 70, 200)
    GUICtrlCreateButton("Get USPS", 220, 70, 75, 20)

    GUISetState(@SW_SHOW)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                GUIDelete($hgui)
                ExitLoop
            Case $iBtn_Get
                Local $sIP = _GUICtrlIpAddress_Get($hIPAddress)
                MsgBox(4160, "Information", "IP Address entered: " & $sIP)
        EndSwitch
    WEnd
EndFunc   ;==>test

 

I'd like to have an input control that behaves like the one for IPv4 ( grouping the octets ) grouping  the 4 symbols of the number and the optional 2 at the end. Because the number can be 20 or 22 char long.

Help

[argumentum]

This behaves nicely 

expandcollapse popup

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

Global $idInput = -1

Exit Test2()
Func Test2()
    Local $hgui = GUICreate("USPS thing", 340, 100)
    $idInput = GUICtrlCreateInput("1234 1234 1234 1234 1234 17", 10, 35, 200, 20)
    GUICtrlSetLimit(-1, 27) ; 22 digits + 5 spaces
;~  GUICtrlSetBkColor(-1, 0x667788)
    Local $idBttn = GUICtrlCreateButton("Validate USPS number", 210, 35, 120, 20)
    GUISetState()
    GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                GUIDelete($hgui)
                ExitLoop
            Case $idBttn
                If _USPS_Mod10_Check(GUICtrlRead($idInput)) Then
                    MsgBox(64, "Valid", "Checksum Passed! This is a validly formatted USPS number.", 60, $hgui)
                Else
                    ConsoleWrite('- the last digit should have been ' & @extended & @CRLF)
                    MsgBox(16, "Error", "Checksum Failed! Please check for typos.", 60, $hgui)
                EndIf
        EndSwitch
    WEnd
EndFunc   ;==>Test2

Func _WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    Local $iIDFrom = BitAND($wParam, 0xFFFF)
    Local $iCode = BitShift($wParam, 16)

    If $iIDFrom = $idInput And $iCode = $EN_CHANGE Then
        Local $aSel = _GUICtrlEdit_GetSel($idInput)
        Local $iPos = $aSel[0]

        Local $sCurrent = GUICtrlRead($idInput)

        ; 1. REGEX: Remove everything that is NOT a digit [^0-9]
        Local $sClean = StringRegExpReplace($sCurrent, "[^0-9]", "")

        ; 2. REGEX: Insert space every 4 digits
;~      Local $sFormatted = StringRegExpReplace($sClean, "(.{4})", "$1 ")
        Local $sFormatted = StringRegExpReplace($sClean, ".{4}", "$0 ") ; pixelsearch
        $sFormatted = StringStripWS($sFormatted, 2) ; Remove trailing space

        If $sCurrent <> $sFormatted Then
            GUICtrlSetData($idInput, $sFormatted)

            ; 3. Adjust cursor position if text length changed
            If StringLen($sFormatted) > StringLen($sCurrent) Then $iPos += 1
            If StringLen($sFormatted) < StringLen($sCurrent) Then $iPos -= 1

            _GUICtrlEdit_SetSel($idInput, $iPos, $iPos)
        EndIf
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc   ;==>_WM_COMMAND

Func _USPS_Mod10_Check($sNum) ; The official USPS MOD10 Algorithm
    ; https://www.autoitscript.com/forum/topic/213428-_guictrlusps_create/#findComment-1549245
    $sNum = StringStripWS($sNum, 8) ; remove the spaces if any, and count 20 or 22
    If StringLen($sNum) <> 22 And StringLen($sNum) <> 20 Then Return SetError(1, -1, False)
    Local $aDigits = StringSplit($sNum, "")
    Local $iSum = 0, $iWeight = 3 ; The digit just before the check digit always gets a weight of 3

    ; Start from the one before the check digit and move LEFT
    For $i = $aDigits[0] - 1 To 1 Step -1
        $iSum += Int($aDigits[$i]) * $iWeight
        $iWeight = ($iWeight = 3 ? 1 : 3) ; Alternate weight between 3 and 1
    Next

    ; The check digit is the number needed to reach the next multiple of 10
    Local $iRemainder = Mod($iSum, 10)
    Local $iCalculatedCheck = ($iRemainder = 0) ? 0 : (10 - $iRemainder)

    ; Return True if the last digit matches the calculation
    Return SetError(0, $iCalculatedCheck, $iCalculatedCheck = Int($aDigits[$aDigits[0]]))
EndFunc   ;==>_USPS_Mod10_Check

...if you come up with something better, do post

Edit: added a validation function.

Edited 3 hours ago by argumentum
better

[pixelsearch]

Nice one @argumentum
For the record, does this pattern works for you, without any group ?

; Local $sFormatted = StringRegExpReplace($sClean, "(.{4})", "$1 ")
Local $sFormatted = StringRegExpReplace($sClean, ".{4}", "$0 ")

 

[argumentum]

...have to go on the road ( work ), I'll tell you in a few hours  

[Andreik]

I suspect you might also want to fix the code to process the backspace when it's after a space to delete the last digit of the previous group.

[mLipok]

Interesting
Here is my variation.

expandcollapse popup

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
#include <WindowsConstants.au3>
#include <String.au3>

Global $idInput = -1

Test2()
Exit

Func Test2()
    Local $hgui = GUICreate("USPS thing", 300, 100)
    #forceref $hgui

    $idInput = GUICtrlCreateInput("", 20, 35, 260, 20)
    GUICtrlSetLimit(-1, 27) ; 22 digits + 5 spaces
    GUISetState()
    GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")

    While 1
        If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
    WEnd
EndFunc   ;==>Test2

Func _WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $lParam

    Local $iIDFrom = BitAND($wParam, 0xFFFF)
    Local $iCode = BitShift($wParam, 16)

    If $iIDFrom = $idInput And $iCode = $EN_CHANGE Then
        Local $aSel = _GUICtrlEdit_GetSel($idInput)
        Local $iPos = $aSel[0]

        Local $sCurrent = GUICtrlRead($idInput)

        ; 1. REGEX: Remove everything that is NOT a digit [^0-9]
        Local $sClean = StringRegExpReplace($sCurrent, "[^0-9]", "")
        Local Static $sEmptyMask = '*********************'
        $sClean = $sClean & StringLeft($sEmptyMask, 21 - StringLen($sClean))

        ; 2. REGEX: Insert space every 4 digits
        ; Local $sFormatted = StringRegExpReplace($sClean, "(.{4})", "$1 ")
        Local $sFormatted = StringRegExpReplace($sClean, ".{4}", "$0.")
        $sFormatted = StringStripWS($sFormatted, 2) ; Remove trailing space

        If $sCurrent <> $sFormatted Then
            GUICtrlSetData($idInput, $sFormatted)

            ; 3. Adjust cursor position if text length changed
            If StringLen($sFormatted) > StringLen($sCurrent) Then $iPos += 1
            If StringLen($sFormatted) < StringLen($sCurrent) Then $iPos -= 1

            _GUICtrlEdit_SetSel($idInput, $iPos, $iPos)
        EndIf
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc   ;==>_WM_COMMAND

ISSUES / TODO :

1. to use 22 * not 21
2. to see all * at start
3. to works well when you type numbers
4. to works well when you use delete/backspace key

 

[argumentum]

3 hours ago, pixelsearch said:

For the record, does this pattern works for you, without any group ?

Yes, worked well. Replaced the original with yours ( yes, I am the king of copy and paste  ). Thanks.
Still don't know what's the difference, functionally. Unless I didn't test enough 🤔

44 minutes ago, mLipok said:

Here is my variation.

Didn't behave well and the one I put together ( yes, I edited the 2nd post ) works good enough.

But always welcome new ideas  

[argumentum]

2 hours ago, Andreik said:

I suspect you might also want to fix the code to process the backspace when it's after a space to delete the last digit of the previous group.

..I see. No I didn't
If you have a solution in mind, post it  

[mLipok]

43 minutes ago, argumentum said:

Didn't behave well and the one I put together ( yes, I edited the 2nd post ) works good enough.

But always welcome new ideas  

Thank you.
My version was a case study of sorts, a proof of concept that it could be achieved this way.
I'm curious if anyone can solve my list:

1 hour ago, mLipok said:

ISSUES / TODO :

1. to use 22 * not 21
2. to see all * at start
3. to works well when you type numbers
4. to works well when you use delete/backspace key