VBS-删除最后一个“ /”之后的字符串部分

Question

This is what I have:

Dim pathBefore
pathBefore = "product/subproduct/item/item"

This is what I need to get from pathBefore:

Dim pathAfter
pathAfter = "product/subproduct/item"

What I can do to achieve this? I have tried with RegEx but it is not acceptable solution.

Answer 1

@Gurman:

>> s = "product/subproduct/item/item"
>> a = Split(s, "/")
>> ReDim Preserve a(UBound(a) - 1)
>> WScript.Echo Join(a, "/")
>> WScript.Echo goFS.GetParentFolderName(s)
>> WScript.Echo Left(s, InstrRev(s, "/") - 1)
>>
product/subproduct/item
product/subproduct/item
product/subproduct/item

Answer 2

Try this code:

Dim pathBefore, pathAfter, temp, i
pathBefore = "product/subproduct/item/item"
temp = Split(pathBefore,"/")
For i=0 To UBound(temp)-1
    pathAfter = pathAfter & temp(i) & "/"
Next
pathAfter = Left(pathAfter,Len(pathAfter)-1)
MsgBox pathAfter

Output:

Answer 3

找到最后一个/然后读到这一点-1

pathAfter = left$(pathBefore, instrrev(pathBefore, "/") - 1)