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

2019-10-26 18:02:44

字体：大中小

来源：转载

供稿：网友

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

您可能感兴趣的文章:

javascript 获取元素位置的快速方法 getBoundingClientRect()javascript的原生方法获取数组中的最大(最小)值php数组函数序列之each() - 获取数组当前内部指针所指向元素的键名和键值，并将指针移到下一位php数组函数序列之array_values() 获取数组元素值的函数与方法php数组函数序列之array_keys() - 获取数组键名js获取数组任意个不重复的随机数组元素PHP获取数组中某元素的位置及array_keys函数应用

上一篇：脚本 MsAgent组件微软精灵揪出系统自带的宠物

下一篇：vbs 更改环境变量