复制代码代码如下：
<％
dimcmd
setcmd = newcls_command
classcls_command
privatere
publicFunctionIspositiveInteger（value）
setre = newRegexp
re.pattern = "^[1-9] [/d]*$"
re.ignorecase = true
re.global = true
ispositiveInteger = re.test（value）
setre =何もない
エンド機能
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 =何もない
エンド機能
publicFunctionSalpha（vstring）
ifvstring = "" shinisalpha = false：exitFunction
setre = newRegexp
re.pattern = "^[/d]+$"
re.global = true
re.ignorecase = true
re.multiline = true
isalpha = re.test（vstring）
setre =何もない
エンド機能
public -functionisalphadigit（vstring）
ifvstring = "" shinisalphadigit = false：exitFunction
setre = newRegexp
re.pattern = "^[a-za-z/d]+$"
re.global = true