VB Split 分割 如何分割直接获取最后一组数组?

Question

要分割的内容不确定有多少个"/" 所以Split分割的时候不知道如何获取最后的一组
比如:
a/b/c/d
有时候或者会是 a/b/c/d/f

For J = 0 To UBound(SHUZU)
Form1.List2.List(J) = Split(Form1.List1.List(J), "\")(0)
Next

我知道这样可以获取最前一组
但是我想从后面开始推算获取最后一组该如何写呢?

Answer 1

ubound 可以取得数组的最后一位的下标。
print Split("a/b/c/d/e", "/")(UBound(Split("a/b/c/d/e", "/")) - 1)

Answer 2

a=Split("a\b\c\d\e\f\g","\")
msgbox a(lbound(a)) '//获取第一个 就是a
msgbox a(ubound(a)) '//获取最后一个 就是g