'檢查字串是否為英文與數字所組成的
function IsEngNum(strChk)
dim objRe
set objRe = New RegExp
'設定正則式
objRe.Pattern = "^[A-Za-z0-9]$"
'如果符合就傳回true , 不符合就傳回false
IsEngNum = objRe.Test(strChk)
set objRE = nothing
end function
訂閱：
張貼留言 (Atom)
-
用SQL的語法來新增或更新欄位的描述, 而這是使用SQL2000所新增的系統預存程序sp_addextendedproperty跟sp_updateextendedproperty 以及新增的函數::fn_listextendedproperty ps.函數...
-
Google文件 目前提供了文件,試算表,簡報, 這算是 微軟office 中基本的功能, 不知道以後會不會有流程圖( visio ),專案管理( Project )等等的功能.
沒有留言:
張貼留言