混合字符串快速提取数字方法

tanhong

前不久与一些朋友探讨了关于从混合字符串中快速提取数字的方法.发个实例与大家共享.



实例样本：

Henry D. Sy

猜一猜江兄用的是
Asc

tanhong

哈哈!猜错了吧

tanhong

GLW提取方法一:运用了IsNumeric函数方法

1. Function tractstr(str As String) As String
   
2.     Dim i As Integer
   
3.     For i = 1 To Len(str)
   
4.         If IsNumeric(Mid(str, i, 1)) = True Then
   
5.             tractstr = tractstr & Mid(str, i, 1)
   
6.         End If
   
7.     Next i
   
8. End Function

复制代码

提取方法二:VBS表达式方法

1. Function ReplaceStr(sourStr, patrn, replStr)
   
2.     Dim regEx As Object    ' 建立变量
   
3.     Set regEx = CreateObject("vbScript.RegExp")    ' 建立正则表达式
   
4.     regEx.Pattern = patrn    ' 要找的字符串
   
5.     regEx.Global = True    '全程查找(若非全程查找则只进行一次匹配)
   
6.     regEx.IgnoreCase = True    ' 设置是否区分大小写
   
7.     ReplaceStr = regEx.Replace("" & sourStr & "", "" & replStr & "")    ' 替换
   
8. End Function
   
9. 
   
10. '函数提取实例
    
11. sourceText = "7中国0abc6美国英30国efg日22本韩国3"
    
12. MsgBox ReplaceStr(sourceText, "[^0-9]", "")

复制代码

叶海峰Select Case语句方法

1. Dim i          As Integer
   
2. Dim str, str1  As String
   
3. str = "7中国0abc6美国英30国efg日22本韩国3"
   
4. For i = 1 To Len(str)
   
5.     Select Case Mid(str, i, 1)
   
6.     Case 0 To 9
   
7.         str1 = str1 & Mid(str, i, 1)
   
8.     End Select
   
9. Next

复制代码

[ 本帖最后由 tanhong 于 2008-11-22 23:21 编辑 ]

Henry D. Sy

原帖由 tanhong 于 2008-11-22 23:03 发表
哈哈!猜错了吧

IsNumeric这个好，简单。

ui

正则表达式, 高

xuwenning

受教
[:50]

fjh

good

a157838566

不错，看看先