求去掉字符串前面的0的函数

hanjj

VBS中是否有去掉字符串前面的0的函数,
如 "0012321312"我要得到“12321312”

如 "000012321312"我要得到“12321312”

有什么好方法吗？

xjwldlover

CLng(a)

黑羽祭

回复 1# hanjj


    如下：

1. Dim str
   
2. str = "000120203"
   
3. msgbox myStr(str)
   
4. 
   
5. Function myStr(oString)
   
6.     Dim oStr , StrLen , i
   
7.     oStr = oString
   
8.     StrLen = len(oStr)
   
9.     For i = 1 To StrLen
   
10.         If mid(oStr,1,1) = "0" Then
    
11.             oStr = mid(oStr,2)
    
12.         End If
    
13.     Next
    
14.     myStr = oStr
    
15. End Function

复制代码