ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 检查字符串strSource是否为big或big5码(转)

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

原创 Linux操作系统 作者:jcszjswkzhou 时间:2019-03-06 11:00:07 0 删除 编辑
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

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10294527/viewspace-124706/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2007-08-29

  • 博文量
    3488
  • 访问量
    2631249