复制代码代码如下:
<٪
DimCMD
setCMD = newcls_command
classcls_command
الخصوصية
publicfunctionispositisteger (القيمة)
setre = newregexp
re.pattern = "^[1-9] [/d]*$"
re.ignorecase = صحيح
re.global = صحيح
IspositistInteger = re.test (القيمة)
setre = لا شيء
الوظيفية
PublicFunctionIsDigit (VString)
ifvString = "" thenisDigit = false: exitfunction
setre = newregexp
re.pattern = "^[az]+$"
re.global = صحيح
re.ignorecase = صحيح
re.Multiline = صحيح
isDigit = re.test (vString)
setre = لا شيء
الوظيفية
publicfunctionisalpha (vString)
ifvString = "" thenisalpha = false: exitfunction
setre = newregexp
re.pattern = "^[/d]+$"
re.global = صحيح
re.ignorecase = صحيح
re.Multiline = صحيح
isalpha = re.test (vString)
setre = لا شيء
الوظيفية
publicfunctionisalphadigit (vString)
ifvString = "" thenisalphadigit = false: exitfunction
setre = newregexp
re.pattern = "^[a-za-z/d]+$"
re.global = صحيح