国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

提取字符串中漢字、英文與數(shù)字的函數(shù)
語(yǔ)法：myget(srg,n,start_num )  
=myget(srg,1,3)   ’從第3位開(kāi)始取出中文字符  
=myget(srg,2)   ’從第1位開(kāi)始取出英文字母，第3個(gè)參數(shù)省略默認(rèn)為1  
=myget(srg,,5)      ’從第5位開(kāi)始取出數(shù)字，第2個(gè)參數(shù)省略默認(rèn)為0  
=myget(srg)   ’第2、3個(gè)參數(shù)都省略，默認(rèn)為從第1位取出所有數(shù)字  

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