Question

我想从文件夹路径中提取最后一个文件夹：

path = C:\Users\z204685\tecware\RESULTS\D1369_3 (R=0) Surface Failure

我想在“\”之后的新字符串中提取最后一部分：

newString = "D1369_3 (R=0) Surface Failure"

可能会反转路径字符串，然后使用带有“\”的拆分功能然后再将其反转......有更好的想法吗？

Answer 1

这是我的抨击：

Sub test()
    Dim testString As String
    Dim test As Long
    Dim output As String

    testString = "C:\Users\z204685\tecware\RESULTS\D1369_3 (R=0) Surface Failure"

    test = InStrRev(testString, "\")

    output = Right(testString, Len(testString) - test)

End Sub

希望它能让你接近！

Answer 2

查找InStrRev功能。

Answer 3

另一种解决方案，根据@TimWilliams的评论，您可以使用Split和UBound

来实现。

Sub test()

Dim fpath As String
Dim newString As String
Dim temp_arr As Variant

fpath = "C:\Users\z204685\tecware\RESULTS\D1369_3 (R=0) Surface Failure"
temp_arr = Split(fpath, "\")
newString = temp_arr(UBound(temp_arr))

End Sub

VBA - 从右到左分开（反转）

3 个答案: