在字符串中提取数字的问题，忘大家不吝指教！

[zek]

如有一字符串 ABC1000X200X3000X20
BCA200X10x300x1000
想要将1000、200、3000和20等数字分别从字符串中提出该怎么做？

[pickitup]

用MID函数逐个提取字符，对照ascii字符表判断其ascii码是不是数字的ascii码，是就提出，不是舍去，组合提取后的字符串用VAL转换为数值即可.

[hhjjhjhj]

双循环就可以了
第一个LIKE “#" 时开始第二个循环

[zek]

具体该怎么写呢？（本人是菜鸟 ：（）

[power17]

'添加一个TEXT控件和一个command控件
'，很长时间没有看过VB，可能有部分语法错误
private sub command_click()
a=len(text.text)
for i=1 to a
if str("1,2,3,4,5,6,7,8,9,0",a,i)<>0 then flag=flag+1
next i
end sub

[hunsea]

挨个字符比较就是了

[danielinbiti]

看着这么多分，挣一点^_^
Private Sub Command1_Click()
Dim str As String
Dim ch As String
Dim i As Integer
Dim isnum As Boolean
isnum = False
str = Text1.Text
For i = 1 To Len(str)
ch = Mid(Text1.Text, i, 1)
If (ch >= "0" And ch <= "9") Then
str = str + ch
isnum = True
Else
If isnum Then Print str
str = ""
isnum = False
End If
Next i
End Sub

[pickitup]

大家已经说得很多了，再菜的鸟也应该自己试一试，而不是等现成的答案。

[zek]

呵呵，谢谢各位了！

[FSoft]

呵呵，谢谢各位了！
-=-=-=-=-=-=-=-=-=-=-=-=
不结分吗？

[红牛哥110]

接分,老大問題幫你解決了就給我們點點救命分,怎麼樣!!:)