华域联盟 vbs vbs 函数 获取数组字符串的最后一个LastOne 挺方便的

vbs 函数 获取数组字符串的最后一个LastOne 挺方便的

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


您可能感兴趣的文章:

本文由 华域联盟 原创撰写:华域联盟 » vbs 函数 获取数组字符串的最后一个LastOne 挺方便的

转载请保留出处和原文链接:https://www.cnhackhy.com/15774.htm

本文来自网络,不代表华域联盟立场,转载请注明出处。

作者: sterben

发表回复

联系我们

联系我们

2551209778

在线咨询: QQ交谈

邮箱: [email protected]

工作时间:周一至周五,9:00-17:30,节假日休息

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部