[RESOLVED] string increment

hi experts :wave:
last time you gave me this code for string increment
AI/WE/23--+1 increment--->AI/WE/24
but when i passed
AI/WE/001--+1 increment--->AI/WE/2
i required
AI/WE/002
plz help me ,what chang i make this function
thanks in advance :wave:

Public Function IncrementString(ByVal sTxt As String, ByVal nIncrement As
Long) As String
Dim sParts() As String
Dim nUpperIdx As Long
'Split the string into different parts, use / as the delimiter
sParts = Split(sTxt, "/")
'the part to increment is the last number
nUpperIdx = UBound(sParts)
'Check that this part is numeric
If IsNumeric(sParts(nUpperIdx)) Then
'increment this part with nIncrement
sParts(nUpperIdx) = CStr(CLng(sParts(nUpperIdx)) + nIncrement)
End If
'Join the parts again and return the new string
IncrementString = Join(sParts, "/")
End Function

VB Code:

Public Function IncrementString(ByVal sTxt As String, ByVal nIncrement As Long) As String
    Dim sParts() As String
    Dim nUpperIdx As Long
    'Split the string into different parts, use / as the delimiter
    sParts = Split(sTxt, "/")
    'the part to increment is the last number
    nUpperIdx = UBound(sParts)
    'Check that this part is numeric
    If IsNumeric(sParts(nUpperIdx)) Then
        'increment this part with nIncrement
        sParts(nUpperIdx) = [b]Format$(CLng(sParts(nUpperIdx)) + nIncrement, String(Len(sParts(nUpperIdx)), "0"))[/b]
    End If
    'Join the parts again and return the new string
    IncrementString = Join(sParts, "/")
End Function

Please use [ vbcode ] and [ /vbcode ] tags (without the spaces) when you post source code.

thanks i will try it

it will work for AI/WE/23---------->AI/WE/24

I tried it with: AI/WE/001 -> AI/WE/002

but i reqired for both 001 and 23

Yeah, it works for any number.
AI/WE/23 --> AI/WE/24
AI/WE/023 --> AI/WE/024

..and so on...

thanks joacim andersson