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

Question

我想从字符串中提取文件名。字符串的长度和文件名的长度总是不同的。 必须用 VBA 完成！

字符串：

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

我想要这样： 测试.pdf

我不知道该怎么做。 如果脚本可以从字符串中提取多个文件名，那就太好了。

Zb：

字符串：

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

我想要：

test.t.pdf test1.pdf

Answer 1

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

唯一的条件是文件名前面（一直）在初始字符串中存在"//"个字符。当然文件扩展名一直是.pdf. 如果不是，这个扩展名是必需的，功能可以很容易地适应...... 如果第二个（可选）参数为"//"，则函数返回全名，如果省略则只返回文件名（不带路径）。

Answer 2

一个选项可能是使用一种模式，您可以匹配前面的 / 并在一组中捕获 1+ 个单词字符 \w+，后跟 .pdf

您的价值在于捕获第 1 组。

/(\w+\.pdf)

查看regex demo

如果您想获得比\w 更广泛的匹配，您可以使用字符类扩展您想要匹配的内容，或使用negated character class [^ 来匹配除字符类中列出的任何字符。

在这种情况下，否定字符类 [^/|"\s] 将匹配除 / | " 或空白字符 \s 之外的任何字符

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

查看另一个regex demo

Answer 3

试试这个并根据您的需要进行编辑。至少它是为您的两个示例设计的。

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