首页 相关文章 检查字符串strSource是否为big或big5码

检查字符串strSource是否为big或big5码

  Public Function CheckBIG(strSource As String) As Boolean
Dim idx As Long
Dim ByteTemp() As Byte
CheckBIG = False
For idx = 1 To Len(strSource)
  ByteTemp = StrConv(Mid(strSource, idx, 1), vbFromUnicode)
  If UBound(ByteTemp) 0 Then
    If (ByteTemp(1) = 64) And (ByteTemp(1) <= 126) Then
      CheckBIG = True
      Exit For
    End If
  End If
Next idx
End Function


 [ 查看全文 ]

2016-01-29 标签:

检查字符串strSource是否为big或big5码的相关文章

手机页面
收藏网站 回到头部