读书人

大家看看这个要如何弄

发布时间: 2012-07-19 16:02:20 作者: rapoo

大家看看这个要怎么弄?
比如我有
CM9_480x800_001.jpg
CM9_480x800_002.jpg
CM9_480x800_003.jpg
CM9_480x800_004.jpg
CM9_480x800_005.jpg
CM9_480x800_006.jpg
CM9_480x800_007.jpg
CM9_480x800_008.jpg
CM9_480x800_009.jpg
CM9_480x800_010.jpg
CM9_480x800_011.jpg
..........

要怎么把它那加的一位去掉啊?
就像CM9_480x800_009.jpg到CM9_480x800_010.jpg那个009到010怎么搞?

[解决办法]

VB code
Function PadLeft(ByVal source As String, ByVal padchar As String, ByVal length As Long)    Dim i As Long    Dim s As String    For i = 1 To length - Len(source)        s = s & padchar    Next    PadLeft = s & sourceEnd Function 

读书人网 >VB

热点推荐