Как бы эта программка выглядела без стандартной функции StringIsDigit?
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
Local $hGUI = GUICreate("Приложение на autoit",500,500)
GUICtrlCreateLabel("Введите текст", 10, 0,150,25)
Local $idInput_1 = GUICtrlCreateInput("", 10, 25, 300, 20)
Local $clicked= GUICtrlCreateButton("Проверка на число", 10, 100,150,25)
GUISetState(@SW_SHOW, $hGUI)
While 1
$msg = GUIGetMsg()
if $msg = $GUI_EVENT_CLOSE then
ExitLoop
endif
if $msg = $clicked then
$word = GUICtrlRead($idInput_1)
$res = StringIsDigit($word)
if $res = 1 then
msgbox(0,"Сообщение","Это число")
Else
msgbox(0,"Сообщение","Невозможно преобразовать в число")
endif
endif
WEnd
|