大家有没有试过把0001 这样的字符串加1呢?测试结果会出现2,但是我们怎么保留0出现0002呢?有人说用format,但是比如这样的01009,用format不也复杂吗?如下图:
想了半天,没想到什么好的解决办法,干脆写个函数把。如下:
Function 测试函数( a As String) As String
Dim b As String
Dim i As Integer: Dim l As Integer: Dim x
As Integer
i = Len(a)
For x = 1 To i
If Mid(a, x, 1) = 0 Then
l = l + 1
'获得从第一位开始有几个0
Else
Exit For
End If
Next
b = Right(a, i - l) + 1
If Len(b) = Len(Right(a, i - l)) Then '如果位数没有变化
测试函数 = Left(a, l) & b
Else
测试函数 = Left(a, l - 1) & b
End If
End Function
测试结果: