'檢查字串是否為英文與數字所組成的
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)
-
Blogger for Word. 的貼圖測試 .. 我想 ,Blogger for word 的做法是先取得 word 的 html 內容然後在傳送到主機上 , 所以 , 如果要貼圖 , 也是必須先將圖傳到網路上的位址上 , 然後在貼進來才行 !! 如果可以在編輯時也能將圖片直...
-
下面四個都是檢查email的... ^([0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$ ^[\w-]+(?:\.[\w-]+)*@(?:[\w-]+\.)+[a-z...
沒有留言:
張貼留言