将下面的代码直接保存为jb51.vbs运行即可。

复制代码 代码如下:

Function LastOne(Str,splitStr)

'输入字符和分隔符，得到最后一部分

LastOne = right(Str,len(Str)-InStrRev(Str,splitStr))

End Function

msgbox LastOne("1,2,3", ",")

其实在实际应用中多用 数组实现，这样的效率对于大量的字符串来说，效率有点低了。

'msgbox InStrRev("1,2,3", ",")=4

InStrRev 返回某字符串在另一个字符串中最后出现的位置。

用数组的实现方法如下：

复制代码 代码如下:

Function jb51(Str,splitStr)

'输入字符和分隔符，得到最后一部分

strarr=split(Str,splitStr)

lens=ubound(strarr)

'获取数组的长度

jb51 = strarr(lens)

End Function

msgbox jb51("1,2,3", ",")