中英文混排资料提取方法-十段
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


中英文混排资料提取方法

发表时间:2008/1/5 22:44:02 评论(0) 浏览(6073)  评论 | 加入收藏 | 复制
   
摘 要:当中英文资料混合在一起时,若要将中/英文分离出来,用手工来分离一来麻烦,二可能会出错,我所提供的实例将会给大家提供一个思路

正 文:

'汉字提取

Public Function HZGet(ByVal strscr As String) As String
    Dim i As Integer
    For i = 1 To Len(strscr)
        If Asc(Mid(strscr, i, 1)) < 0 Then
            HZGet = HZGet & Mid(strscr, i, 1)
        End If
    Next i
    HZGet = HZGet

End Function

'英文和数字提取
Public Function YWGet(ByVal strscr As String) As String
    Dim i As Integer
    For i = 1 To Len(strscr)
        If Asc(Mid(strscr, i, 1)) > 0 Then
            YWGet = YWGet & Mid(strscr, i, 1)
        End If
    Next i
    YWGet = YWGet

End Function

 


Access软件网交流QQ群(群号:198465573)
 
 相关文章
【Access自定义函数】不规则提取日期数据的示例  【红尘如烟  2013/2/13】
【Access小品】继往开来--用正则表达式提取信息示例  【煮江品茶  2013/3/3】
【Access小品】无关紧要--提取字符串中的数字示例  【煮江品茶  2013/3/15】
利用正则表达式提取字符串里的汉字  【叶海峰  2013/4/19】
常见问答
技术分类
相关资源
文章搜索
关于作者

十段

文章分类

文章存档

友情链接