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

LenB(StrConv(myString, vbFromUnicode)) > Len(myString)

 

引用:http://www.dotblogs.com.tw/topcat/archive/2010/10/05/18106.aspx

arrow
arrow
    全站熱搜

    Empty 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄