vbs 函數 獲取數組字符串的最后一個LastOne 挺方便的
更新時間：2009年10月11日 23:53: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", ",")
復制代碼 代碼如下:
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實現的批量文件的替換2008-05-05
VBS教程：對象-Drive 對象...2006-11-11
這個cmdshell需要結合nc進行配合使用，現在肉雞上執(zhí)行cmdshell然后在本地上面運行nc，注意看下面的參數2013-07-07
Dynamic Activity Window動態(tài)活動窗口vbs
Dynamic Activity Window動態(tài)活動窗口2008-12-12
每天沒事到百度上回答問題要先打開IE，輸入BAIDU，點百度知道，點我要回答，再輸入要回答的問題類別，很麻煩，于是寫了這樣一個百度小助手.2009-12-12
Restart.vbs源代碼可以重啟遠程電腦的vbs...2007-02-02
VBS中常用腳本代碼...2007-03-03
在編寫 QTP腳本的過程中，有一些經常使用的函數。如果我們能熟悉這些常用的函數及其用法，并合理地使用它們，那么一些問題就很容易得到解決。2009-11-11
VBScript 中的字節(jié)數據操作函數...2006-06-06
VBS教程：VBscript語句-Class 語句...2006-11-11