復制代碼代碼如下:
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", ",")
