Excel实例下载
  VBA  应用教程
    数据库SQL知识
设为首页
提取字符串中汉字、英文与数字的函数
作者:gvntw | 来源:网络转摘 | 时间:2006-04-12 | 阅读权限:游客 | 会员币:0 | 【
 语法:myget(srg,n,start_num ) 
=myget(srg,1,3)   ’从第3位开始取出中文字符 
=myget(srg,2)   ’从第1位开始取出英文字母,第3个参数省略默认为1 
=myget(srg,,5)      ’从第5位开始取出数字,第2个参数省略默认为0 
=myget(srg)   ’第2、3个参数都省略,默认为从第1位取出所有数字 

Function MyGet(Srg As String, Optional n As Integer = False, Optional start_num As Integer = 1) 

    Dim i As Integer 
    Dim s, MyString As String 
    Dim Bol As Boolean 
     
    For i = start_num To Len(Srg) 
        s = Mid(Srg, i, 1) 
        If n = 1 Then 
            Bol = Asc(s) < 0 
        ElseIf n = 2 Then 
            Bol = s Like "[a-z,A-Z]" 
        ElseIf n = 0 Then 
            Bol = s Like "#" 
        End If 
        If Bol Then MyString = MyString & s 
    Next 
     
    MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString)) 
     
End Function 
文章录入:admin | 浏览次数:
相关评论(以下网友评论只代表其个人观点,不代表Excel吧的观点或立场)
相关信息

关于本站 | 留言本站 | 友情连接 | 后台管理
Copyright © 2005 - 2008 Excel吧 Inc. All Rights Reserved.
HxCms Ver9.0  闽ICP备06001689号
关闭此窗口