从字符串中取末尾数字

[yirenapple]

已知asd003、asd200
但这个字串的长度是不定的，数字也不一定是3位，我想让他自增，也就是根据数字补充：asd003、asd004，asd005……asd200，类似这样的问题怎么解决啊？谢谢

[yirenapple]

可问题是长度都是不固定的啊，按照你这样说的话，你写个下例子出来可以么？

[rangeon]

"asd" + (int).ToString("000");

[yirenapple]

楼上的给出的是已经分好字符串的代码，我要的是分的过程……
还有就是说一下，字符串的长度是不固定的，数字长度字符也是不固定的，这个字符串也可能是 kljasd231

[harryheart]

分的过程?
\d+$

[yirenapple]

如果这个字串是固定的话，把字符和数字分开很容易，但问题是它是个可变的字符，但有一点是不变的，那就是只取最后的一排数字，中间如果和字串夹有数字可以不理会。类似lkj3asd123，我要的是123

[hc8112_boy]

dim i as integer
dim bb as string="lkj3asd123"
for i=1 to bb.length step 1

if not isnumeric(microsoft.visualbasic.right(bb,i)
messagebox.show "数字是:" & microsoft.visualbasic.right(bb,i-1)

exit for
end if




next i

[poson]

正则表达式提取，前面字符串，后面数据，

[yirenapple]

谢谢7楼给的代码，我等下研究下，得出的结果是我想要的。

[淡蓝色2]

给你写个函数，不过这个函数存在下面已知问题：
给定"abc0123",会返回"abc124"，就是说，数字部分的前面的0会被丢弃。
我时间很紧，就不继续调试了，只是给你一个思路，你稍微修改一下代码 即可解决上面的问题。

Private Function IncreaseString(ByVal src As String) As String
	If Not String.IsNullOrEmpty(src) Then
		For I As Integer = src.Length - 1 To 0 Step -1
			If Not Char.IsDigit(src(I)) Then
				Return src.Substring(0, I + 1) & CLng(ChrW(48) & src.Substring(I + 1)) + 1
			End If
		Next
	End If
	Return (CLng(ChrW(48) & src) + 1).ToString
End Function

[dcbr4]

存两个字段 用的时候把他们加起来就行