复制代码代码如下：
<％
DIMCMD
setCMD = newcls_command
classCls_command
私人
publicFunctionispostistionInteger（value）
setre = newregexp
re.pattern =“^[1-9] [/d]*$”
re.ignorecase = true
re.global = true
IspastivitiveInteger = 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 =没有
最终功能
uperfunctionalpha（VSTRING）
ifvString =“” thenisalpha = false：出口
setre = newregexp
re.pattern =“^[/d]+$”
re.global = true
re.ignorecase = true
re.multiline = true
isalpha = re.test（vstring）
setre =没有
最终功能
publicfunctionalphadigit（VSTRING）
ifvString =“” thensalphadigit = false：出口
setre = newregexp
re.pattern =“^[a-za-z/d]+$”
re.global = true