从字符串中提取 Excel VBA 文件名

Question

I want to extract file names from a string. The length of the string and the length of the file name are always different. Must be done with VBA!

String:

href ist gleich: "abc/db://test.pdf|0|100">Bsp.:

I would like that: test.pdf

I do not know how to proceed. It would also be nice if the script could extract multiple filenames from a string.

Zb:

String:

href ist gleich: "abc//db://test.t.pdf|0|100" "db://test1.pdf|0|100">Bsp.

I would like that:

test.t.pdf test1.pdf

Answer 1

Try this and edit it according to your needs. At least it was designed for two of your examples.

Dim sStringToFormat As String
Dim i As Integer
Dim vSplit As Variant
Dim colFileNames As Collection
Dim sFormattedString As String

Set colFileNames = New Collection

sStringToFormat = "href ist gleich: ""abc//db://test.t.pdf|0|100"" ""db://test1.pdf|0|100"">Bsp."

vSplit = Split(sStringToFormat, "/")

For i = LBound(vSplit) To UBound(vSplit)

    If InStr(vSplit(i), ".") > 0 Then
        sFormattedString = Split(vSplit(i), "|")(0)
        sFormattedString = Split(sFormattedString, "<")(0)
        sFormattedString = Split(sFormattedString, ">")(0)
        colFileNames.Add sFormattedString
    End If

Next i

Answer 2

Sub testExtractFileName()
 Debug.Print extractFileName("file://D:/ETVGI_556/Carconfigurator_file/carconf_d.pdf", "//")
 Debug.Print extractFileName("abc//db://test.t.pdf|0|100")
 Debug.Print extractFileName("db://test1.pdf|0|100")
End Sub

Function extractFileName(initString As String, Optional delim As String) As String
 Dim necString As String
   necString = left(initString, InStr(initString, ".pdf") + 3)
   necString = Right(necString, Len(necString) - InStrRev(necString, _
            IIf(delim <> "", delim, "/")) - IIf(delim <> "", Len(delim) - 1, 0))
   extractFileName = necString
End Function

The single condition is that in front of the file name (all the time) to exist "//" characters in the initial string. And of course the file extension to all the time to be .pdf. If not, this extension is required and the function can be easily adapted... The function returns full name if the second (optional) parameter will be "//" or just the file name (without path) if it is omitted.

Answer 3

One option could be using a pattern where you would match the preceding / and capture in a group 1+ word characters \\w+ followed by .pdf

Your value is in capturing group 1.

/(\w+\.pdf)

See a regex demo

If you want to have a broader match than \\w you could extend what you do want to match using a character class or use a negated character class [^ to match any char except the listed in the character class.

In this case the negated character class [^/|"\\s] would match any char except / | " or a whitespace character \\s

/([^/|"\s]+\.pdf)

See another regex demo