将下面的代码直接保存为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”, “,”)


您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。