excel公式在文件路径文本字符串中找到零件号

Question

我提取了网络驱动器上的所有文件，其中一些文件名是部件号，部件号格式为0000-000000-00 。 现在，在此文件的600,000多个路径名中，我试图找出如何从路径名中提取零件号。 我认为一个mid公式可能会起作用，但是我对如何告诉它查找带有＃格式0000-000000-00的部件并从路径中仅提取那14个字符的内容感到0000-000000-00 ？

输入看起来像这样

c:\users\stuff\folder_name\1234-000001-01_ baskets_1.pdf
c:\users\stuff\folder_name\1234-000001-02_ baskets_2.pdf
c:\users\stuff\folder_name\1234-000001-03_ baskets_3.pdf
c:\users\stuff\folder_name\1234-000030-01_ tree_30.pdf
c:\users\stuff\folder_name\random text_1234-000030-02_ tree_30.pdf
c:\users\stuff\folder_name\more random stuff_1234-000030-02_ tree_30.pdf

我希望的输出

1234-000001-01
1234-000001-02
1234-000001-03
1234-000030-01

Answer 1

既然您有可以利用的模式，请使用此模式：

=MID(A1,SEARCH("????-??????-??",A1),14)

查找模式的开头，然后返回14个字符。

Answer 2

您需要一个公式，但也可以使用UDF来应用正则表达式以获取模式（在这种情况下，有些过分了但值得注意）：

Option Explicit
Public Sub GetCustomString()
    Dim i As Long, tests()
    tests = Array("c:\users\stuff\folder_name\1234-000001-01_ baskets_1.pdf", _
    "c:\users\stuff\folder_name\1234-000001-02_ baskets_2.pdf", _
    "c:\users\stuff\folder_name\1234-000001-03_ baskets_3.pdf", _
    "c:\users\stuff\folder_name\1234-000030-01_ tree_30.pdf", _
    "c:\users\stuff\folder_name\random text_1234-000030-02_ tree_30.pdf", _
    "c:\users\stuff\folder_name\more random stuff_1234-000030-02_ tree_30.pdf")

    For i = LBound(tests) To UBound(tests)
        Debug.Print GetString(tests(i))
    Next
End Sub

Public Function GetString(ByVal inputString As String) As String
    Dim arr() As String, i As Long, matches As Object, re As Object
    Set re = CreateObject("VBScript.RegExp")
    With re
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = "\d{4}-\d{6}-\d{2}"
        If .test(inputString) Then
            GetString = .Execute(inputString)(0)
        Else
            GetString = vbNullString
        End If
    End With
End Function

---

在工作表中使用UDF：

---

模式： \\d{4}-\\d{6}-\\d{2}

说明：

\\ d {4}匹配一个数字（等于[0-9]）

{4}量词-精确匹配4次

“-”与字符匹配-字面意义（区分大小写）

\\ d {6}匹配一个数字（等于[0-9]）

{6}量词-精确匹配6次

“-”与字符匹配-字面意义（区分大小写）

\\ d {2}匹配一个数字（等于[0-9]）

{2}量词-精确匹配2次

全局模式标志：g修饰符：全局。 所有匹配项（第一次匹配后不返回）m修饰符：多行。 使^和$匹配每行的开始/结束（不仅是字符串的开始/结束）