vbs 函數(shù) 獲取數(shù)組字符串的最后一個LastOne 挺方便的

    將下面的代碼直接保存為jb51.vbs運行即可。
    代碼如下:
    Function LastOne(Str,splitStr)
    '輸入字符和分隔符，得到最后一部分
    LastOne = right(Str,len(Str)-InStrRev(Str,splitStr))
    End Function
    msgbox LastOne("1,2,3", ",")
    其實在實際應(yīng)用中多用 數(shù)組實現(xiàn)，這樣的效率對于大量的字符串來說，效率有點低了。
    'msgbox InStrRev("1,2,3", ",")=4
    InStrRev 返回某字符串在另一個字符串中最后出現(xiàn)的位置。
    用數(shù)組的實現(xiàn)方法如下：
    代碼如下:
    Function jb51(Str,splitStr)
    '輸入字符和分隔符，得到最后一部分
    strarr=split(Str,splitStr)
    lens=ubound(strarr)
    '獲取數(shù)組的長度
    jb51 = strarr(lens)
    End Function
    msgbox jb51("1,2,3", ",")