Function ContainsChtString(str) As Boolean |
02 |
'檢查字串是否包含中文或全形字 |
03 |
Dim i As Integer |
04 |
Dim Rc As Boolean |
05 |
Rc = False |
06 |
For i = 1 To Len(str) |
07 |
If Asc(Mid(str, i, 1)) < 0 Then |
08 |
Rc = True |
09 |
Exit For |
10 |
End If |
11 |
Next |
12 |
ContainsChtString = Rc |
13 |
End Function |
資料來源:http://www.blueshop.com.tw/board/show.asp?subcde=BRD2004020116544916K&fumcde=&odr=cdt&odrtyp=1
感謝璉璉大提供另一個判斷,方式很簡單
判斷Binary方式計算長度(LenB)與一般方式計算長度(Len)是否相同,如果不同就是有中文或全形!!
1 |
|
引用:http://www.dotblogs.com.tw/topcat/archive/2010/10/05/18106.aspx
全站熱搜
留言列表