Edit Control (GuiCtrlCreateEdit) count input for SMS

[merriman]

Hi

Is there a way to count the number of characters a user types into a Edit control, at the time the user types them. I would like to set a variable for the maximum number characters allowed and decrement it has the user types into the edit control. I am using it to send a SMS from a website to a mobile phone, and the maximum number of character allowed is 163.

Would appreciate some advice

[SmOke_N]

StringLen(GUICtrlRead($EditControl))?

Edit:

Here's an example because I was bored:

expandcollapse popup

#include <guiconstants.au3>
Opt('GUIOnEventMode', 1)

$Main = GUICreate('Edit Test', 200, 270)
$Edit = GUICtrlCreateEdit('', 10, 10, 180, 190)
$Label = GUICtrlCreateLabel(0, 10, 205, 180, 20, $ES_READONLY)
$Submit = GUICtrlCreateButton('Send', 30, 225, 60, 30)
$Clear = GUICtrlCreateButton('Clear', 100, 225, 60, 30)

GUISetOnEvent($GUI_EVENT_CLOSE, '_Event_Handler', $Main)
GUICtrlSetOnEvent($Submit, '_Event_Handler')
GUICtrlSetOnEvent($Clear, '_Event_Handler')

GUISetState()
AdlibEnable('_CheckEditLength', 10)

While 1
    Sleep(20000)
WEnd

Func _Event_Handler()
    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Submit
            Local $GCTRLRead = GUICtrlRead($Edit)
            If StringLen($GCTRLRead) < 164 Then
                ;do something you would do to send it
            Else
                MsgBox(64, 'Info:', 'Please check your length, you are only allowed 163 characters.')
            EndIf
        Case $Clear
            GUICtrlSetData($Edit, '')
    EndSwitch
EndFunc

Func _CheckEditLength()
    Local $GCTRLReadEdit = GUICtrlRead($Edit)
    Local $GCTRLReadLabel = GUICtrlRead($Label)
    If StringLen($GCTRLReadEdit) <> Int($GCTRLReadLabel) Then
        GUICtrlSetData($Label, StringLen($GCTRLReadEdit))
    EndIf
    If StringLen($GCTRLReadEdit) > 163 Then
        GUICtrlSetData($Edit, StringLeft($GCTRLReadEdit, 163))
        GUICtrlSetData($Label, StringLen(GUICtrlRead($Edit)))
    EndIf
EndFunc

Edit2:

Replaced a > with <>

Edited July 11, 2006 by SmOke_N

[Skruge]

How about this?

GUICtrlSetLimit($EditControl,163)   ; to limit the entry to 163 chars

[SmOke_N]

How about this?

GUICtrlSetLimit($EditControl,163)   ; to limit the entry to 163 chars

I can't tell you how many times I forget about that function... obviously that's the proper way!