VBS「/」

これは私が持っているもので、最後の後に文字列の一部を削除しVBS「/」

Dim pathAfter 
pathAfter = "product/subproduct/item"

私は達成するために何ができますこの？私はRegExを試しましたが、それは容認できる解決策ではありません。

出典

2017-09-19 punky

その時点件まで読んで最後/検索 - 1

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

出典

2017-09-19 12:17:41

$は無効な古代遺物です。 –

は、このコードを試してみてください。

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

出力：

出典

2017-09-19 12:20:39 Gurman

しないでください、より良い（より効率的に/より簡単に）代替があります。 –

@ Ekkehard.Horner彼らから喜んで勉強します。これが私の心に来た最初の方法でした。 – Gurman

@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

出典

2017-09-19 12:31:32

彼らは確かに良いです。ありがとう、この:) – Gurman

答えて

関連する問題