Office中国论坛/Access中国论坛

标题: [求助]Split函数，求最后一段字符串 [打印本页]

作者: heqing3000 时间: 2007-6-16 19:45
标题: [求助]Split函数，求最后一段字符串
如:求字符串"\\Dgyk-fwq\d\dgyk\Drop" " \" 间隔的最后字段

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

作者: heqing3000 时间: 2007-6-16 19:57
问题解决了,使用

UBound 函数

即可!

作者: officer_mk 时间: 2010-3-9 20:17
我急用，可否举个例子，我是这样做的，但是行啊，总是返回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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)