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

Posted 2023-05-03

要分割的内容不确定有多少个"/" 所以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

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

ubound 可以取得数组的最后一位的下标。
print Split("a/b/c/d/e", "/")(UBound(Split("a/b/c/d/e", "/")) - 1) 参考技术A a=Split("a\b\c\d\e\f\g","\")
msgbox a(lbound(a)) '//获取第一个 就是a
msgbox a(ubound(a)) '//获取最后一个 就是g

VB字符串分割为数组并遍历下标值

Dim A() As String
Private Sub Command1_Click()
A() = Split(Text1.Text, "-", -1, vbTextCompare)‘以“-”将字符串分割后存到一个以下标为0开始的数组里
Dim i As Integer
For i = 0 To UBound(A()) ‘UBound(a())返回数组的最大下标LBound(A())返回最小下标

Debug.Print A(i) ‘将结果打印到即时窗口

Next i
End Sub