复制代码代码如下:
-
dimcmd
setcmd = newcls_command
classcls_command
ส่วนตัว
PublicfunctionispositiveInteger (ค่า)
setre = newregexp
re.pattern = "^[1-9] [/d]*$"
re.ignorecase = true
re.global = true
isPositiveInteger = re.test (ค่า)
setre = ไม่มีอะไร
endfunction
PublicFunctionIsDigit (VSTRING)
ifvString = "" thenisdigit = false: exitfunction
setre = newregexp
re.pattern = "^[az]+$"
re.global = true
re.ignorecase = true
re.multiline = true
isDigit = re.test (vstring)
setre = ไม่มีอะไร
endfunction
Publicfunctionisalpha (VSTRING)
ifvString = "" thenisalpha = false: exitfunction
setre = newregexp
re.pattern = "^[/d]+$"
re.global = true
re.ignorecase = true
re.multiline = true
isalpha = re.test (vstring)
setre = ไม่มีอะไร
endfunction
Publicfunctionisalphadigit (VSTRING)
ifvString = "" thenisalphadigit = false: exitfunction
setre = newregexp
re.pattern = "^[a-za-z/d]+$"
re.global = true