IfProductIDLike"[A-Za-z][0-9][0-9][0-9]"ThenPrint"OK"
'thisisequivalment,because"#"standsforadigit
IfProductIDLike"[A-Za-z]###"ThenPrint"OK"
除了上述基本功能,LIKE在其他情況下也非常有用。以下就一一列舉:
比如,可以檢查一個字符串只包含大寫字母:
IfNotProductIDLike"*[!A-Z]*"ThenPrint"OK"
同理,也可以檢查一個字符串只包含數字:
IfNotProductIDLike"*[!0-9]*"ThenPrint"OK"
下面的語句檢查一個字符串只包含字母或者數字符:
IfNotProductIDLike"*[!A-Za-z0-9]*"ThenPrint"OK"
下面的語句檢查一個字符串是否為合法的VB變量名,就是說,開頭是一個字母,接著跟隨字母或數字符:
'VarName是被檢查的字符串
IfVarNamelike"[A-Za-z]*"AndNotMid$(VarName,2)Like"*[!A-Z_a-z0-9]*"_
ThenPrint"OK"
下面的語句檢查字符串是否至少包含2個空格(連續的或者間隔的):
IfTestStringLike"***"ThenPrint"OK"
而下面的語句進一步確認2個空格是不連續的:
IfTestStringLike"*?**"ThenPrint"OK"
檢查一個有符號整數是很復雜的事情,因為必須計算出前導符號並且計算好"#"符號的正確數目:
'NumValue是被檢測的字符串
IfNumValueLike"#"Or(Len(NumValue)>1AndNumValueLike"[- 0-9]"&_
String$(Len(NumValue)-1,"#"))ThenPrint"OK"
最後一個例子是:檢測NumValue是否包含一個有符號的十進制數值。這種情況下,我們必須要確定存在一個前導符號以及只有一個十進制分隔符,並且所有其他字符都是數字符:
'NumValue是被檢測的字符串
IfNumValueLike"#"Or(Len(NumValue)>1AndLeft$(NumValue,_
1)Like"[- .0-9]"AndNotMid$(NumValue,2)Like"*[!.0-9]*"AndNot_
NumValueLike"*.*.*")ThenPrint"OK"
->