利用ASC函数来提取数字和字母

时　间:2017-02-09 20:22:07
作　者:MDZZ   ID：47512  城市：南京
摘　要:利用ASC函数来提取数字和字母
正　文:

关于提取数字 字母 办法 有很多种  比如正则表达式  一些函数组合起来  其实用ASC这个函数 提取也是比较简单的  首先我们看下这个函数的介绍

对于数字和字母都有对应的一个区间  所以 用这个函数来提取数字和字母也是比较方便的

自编函数如下

Function 提取(str As String, i As Integer) As String 'ASC   48到57为数字 0到9  65到90 大写字母  97到122小写字母

Dim k As String

Select Case i

Case 1   '提取数字

For i = 1 To Len(str)

 k = Asc(Mid(str, i, 1))

 If k >= 48 And k <= 57 Then 提取 = 提取 & Mid(str, i, 1)

 Next

Case 2   '提取字母 不分大小写

For i = 1 To Len(str)

 k = Asc(Mid(str, i, 1))

 If k >= 65 And k <= 90 or k >= 97 And k <= 122 Then 提取 = 提取 & Mid(str, i, 1)

 Next

 Case 3   '提取字母 小写

For i = 1 To Len(str)

 k = Asc(Mid(str, i, 1))

 If k >= 65 And k <= 90 Then 提取 = 提取 & Mid(str, i, 1)

 Next

  Case 4   '提取字母 大写

For i = 1 To Len(str)

 k = Asc(Mid(str, i, 1))

 If k >= 97 And k <= 122 Then 提取 = 提取 & Mid(str, i, 1)

 Next

   Case 5   '提取字母和数字

For i = 1 To Len(str)

 k = Asc(Mid(str, i, 1))

 If k >= 65 And k <= 90 or k >= 97 And k <= 122 or k >= 48 And k <= 57 Then 提取 = 提取 & Mid(str, i, 1)

 Next

 End Select

End Function

调用示例