如何提取号码组从一个字符串在VBA

Question

，我有以下形状的字符串：

RRP 90 AVE DE GAULLE 92800 PUTEAUX 0109781431-0149012126 

的数字可能被其他字符不是连字符（例如，空格）分隔。我知道如何用len（）来区分它们。

我需要每一串数字被单独存储（例如在一个数组中），以便我可以用len（）区分它们，然后使用它们。

我已经找到了如何从字符串中去除的字符掉： How to find numbers from a string?

但它不适合我的问题......

你能告诉我到代码的函数或该位可以帮助我呢？

Answer 1

这会跑的比循环

Public Function NumericOnly(s As String) As String 
    Dim s2 As String 
    Dim replace_hyphen As String 
    replace_hyphen = " " 
    Static re As RegExp 
    If re Is Nothing Then Set re = New RegExp 
    re.IgnoreCase = True 
    re.Global = True 
    re.Pattern = "[^0-9 -]" 'includes space, if you want to exclude space "[^0-9]" 
    s2 = re.Replace(s, vbNullString) 
    re.Pattern = "[^0-9 ]" 
    NumericOnly = re.Replace(s2, replace_hyphen) 
End Function 

Answer 2

试试下面的代码：

Function parseNum(strSearch As String) As String 

    ' Dim strSearch As String 
    'strSearch = "RRP 90 AVE DE GAULLE 92800 PUTEAUX 0109781431-0149012126" 

    Dim i As Integer, tempVal As String 
    For i = 1 To Len(strSearch) 
     If IsNumeric(Mid(strSearch, i, 1)) Then 
      tempVal = tempVal + Mid(strSearch, i, 1) 
     End If 
    Next 

    parseNum = tempVal 
End Function 

Answer 3

所以我知道这是很久以前快多了......但我一直在寻找类似的解决方案在线。

关于我的编程技巧（原文如此）的一些以前的历史：我从Python和Python开始我有一个方便的工具叫List。 VBA没有这个，所以我留下来的东西是我可以输入的变量，我在下面称为sample，即sample = [1,4,5]。

返回小代码。我做到这一点，所以holder将只包含数字组，因为你如何指定他们应该分组。

Dim count, count1 As Integer 
Dim holder As String 
Dim sample, smallSample As String 


count = 0 
count1 = 1 
sample = "1ab33 efa 123 adfije-23423 123124-23423" 
holder = "" 
Do While count <> Len(sample) 
    smallSample = Left(sample, 1) 
    If smallSample = "0" Or smallSample = "1" Or smallSample = "2" Or smallSample = "3" Or smallSample = "4" Or smallSample = "5" Or smallSample = "6" Or smallSample = "7" Or smallSample = "8" Or smallSample = "9" Then 
     holder = holder & smallSample 
    Else 
     If holder <> "" Then 
      Cells(count1,1) = holder 
      count1 = count1 + 1 
     End If 
     holder = "" 
    End If 
    sample = Right(sample, Len(sample) - 1) 

Loop 

我得到的输出是

我运行代码后。

Answer 4

如果您收到错误“问题在编译时，用户定义类型没有定义”，而使用@Scotts回答启用正则表达式的选择，因为在步骤1 2在这里看到和：How to Use/Enable (RegExp object) Regular Expression using VBA (MACRO) in word（工程在Excel中也有）

Ps Scotts Solution对我来说效果很好。