Проверка, является ли введенная строка числом

Contents

Постановка задачи

Проверить, что введенная строка является числом.

Программный код

// Ввести строку.

String = InputDialog("Число";; "String:20"; "Ввод параметров")

// Получить COM-объект для работы с регулярными выражениями.

RegExp = CreateObject("VBScript.RegExp")

// Указать шаблон.

RegExp.Pattern = "^-?[0-9]+$"

// Определить соответствие шаблону.

ResultText = IfThen(RegExp.Test(String);

"Это целое число.";

"Введенная строка не является целым числом.")

ShowMessage(ResultText)

В примере, где задается шаблон, используются символы регулярного выражения:

•	^ – начало строки;

•	? – предыдущий символ может встретиться один раз или совсем отсутствовать в строке;

•	[0-9] – в строке может содержаться один из символов, указанных в интервале;

•	+ – предыдущий символ из интервала [0-9] может встретиться в строке один или несколько раз;

•	$ – конец строки.

Шаблон можно записать различными способами, например, этот же результат можно получить, написав: RegExp.Pattern = "^-{0,1}\d{1,}$".