六子技术网首页

六子技术网

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【六子技术网】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB检测字符串是否包含汉字的方法

    日期:2019/10/6 15:32:13来源分类:编程开发

    VB检测字符串是否包含汉字的方法,可以来识别是否纯英文纯数字带汉字等判断 代码如下

    '判断是否字符串中包含汉字
    Public Function IncludeChinese(ByVal s As String) As Boolean
    On Error Resume Next
        '定义字节数组指向字符串
        Dim data() As Byte
        data = s
        '临时变量,Integer长度为2,正好用来判断是否是汉字,因为汉字是双字节的
        Dim T As Integer
        '定义循环变量
        Dim i As Integer
        '汉字边界值
        '因为直接写&H9FA5会认为成integer的负数,所以要写成字符串,进行转换
        Dim lb, ub As Long
        lb = CLng("&H4E00") '汉字最小值
        ub = CLng("&H9FA5")
        '循环判断,汉字的范围是4E00 ~ 9FA5
        '因为我不太懂vb6的技巧写法,就用一个比较繁琐的写法做类型转换
        For i = 0 To UBound(data) Step 2
            T = CLng("&h" + Hex(data(i) + data(i + 1) * 255)) '连续的2个字节拼接为一个integer
            If T >= lb And T <= ub Then
                IncludeChinese = True '找到任何一个汉字则返回True
                Exit Function
            End If
        Next
        IncludeChinese = False '不包含汉字
    End Function

    本文由六子技术网小编:屌爆侠编辑整理 - 转载请注明来源 - http://www.liuzi.net/bc/html/3871.html

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【六子技术网】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员