怎么让一个类似w0001的字符串每次自增1，要考虑到加到10或者100以后的数如何更改它的数值

Question

vb.net怎么实现让一个类似w0001的字符串每次自增1，要考虑到加到10或者100以后的数如何更改它的数值

Answer 1

 '自定义一个函数：
    Private Function GetNumber(ByVal pStr As String) As String
        Dim s As String = String.Empty
        Dim n As Integer = 0
        While Val(pStr) = 0
            s = s & pStr.Substring(0, 1)
            pStr = pStr.Substring(1)
        End While
        n = Val(pStr) + 1
        GetNumber = String.Format("{0}{1}", s, n.ToString("000"))
    End Function'测试：
    Console.WriteLine(GetNumber("w001"))
    Console.WriteLine(GetNumber("ID012"))'结果：
' w002
' ID013