[求助]Split函数，求最后一段字符串

heqing3000

如:求字符串"\\Dgyk-fwq\d\dgyk\Drop"   " \" 间隔的最后字段

字符串中间隔"\"数不一的.

heqing3000

问题解决了,使用

UBound 函数

即可!

officer_mk

我急用，可否举个例子，我是这样做的，但是行啊，总是返回Carol
Function mySplitText(strMyText As String) As String
'strMyText As String 要拆分的字符串
'调用示例：Me.Text1= mySplitText("CIGT - CIMC TF-Carol-Bond")
'返回： Bond
Dim i As Integer

i = UBound(Split(strMyText, "-", -1), 3)

mySplitText = Split(strMyText, "-", -1)(i - 1)

End Function