VBS - Retirez une partie de chaîne après la dernière «/»

Question

C'est ce que j'ai:

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

C'est ce que je dois obtenir de pathBefore:

Dim pathAfter 
pathAfter = "product/subproduct/item" 

Ce que je peux faire pour atteindre ce? J'ai essayé avec RegEx mais ce n'est pas une solution acceptable.

Answer 1

Trouver la dernière / puis lu jusqu'à ce point - 1

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

Answer 2

Essayez ce 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 

Sortie:

Answer 3

@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