如何从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

我得到的输出是

1

33

123

23423

123124

在我运行代码之后。

Answer 4

上面很简单的 Python 风格循环。

扩展为 A 列中的字符串列表。

发现的数字将显示在右侧的列中 - B、C 等。

Dim count, count1 As Integer
Dim holder As String
Dim sample, smallSample As String
Dim r As Integer
Dim c As Integer
r = 1
c = 1


Do While Sheet2.Cells(r, c) <> ""
    count = 0
    count1 = 1
    sample = Sheet2.Cells(r, c)
    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
                Sheets(2).Cells(r, c + count1).Value = holder
                count1 = count1 + 1
            End If
            holder = ""
        End If
        sample = Right(sample, Len(sample) - 1)
    
    Loop
    r = r + 1
Loop

Answer 5

如果您在使用 @Scotts Answer 时收到错误“编译时出现问题，未定义用户定义的类型”，请启用正则表达式选项，如此处的第 1 步和第 2 步所示：How to Use/Enable (RegExp object) Regular Expression using VBA (MACRO) in word（也适用于 Excel）

附： Scotts 解决方案对我来说效果很好。