Question

vb中如何截取字符串中的数字

例如：
a=“4a8 w9e9 448aw98e a49”
这个字符串中如何把里面的数字截取出来？

Answer 1

str="123456"
mid(str,
4,
2)
这样才是截取45这部分..
相当一进从第4位开始,取2个字
如果是从第4位开始,
取5位,就会因为取不到足够的数,vb默认就是取整个字符串了.

Answer 2

a=“4a8 w9e9 448aw98e a49”
s=""
for i=1 to len(a)
b=mid(a,i,1)
if b>="0" and b<="9" then s=s & b
next
print s

追问

为什么要加“s=s & b”这句上去，这句是什么意思？

追答

用于把所有的数字一个一个连接起来

Answer 3

'把所有数值串起来：
Dim a$, b$, c$, i%
Const t = "1234567890"
a = "4a8 w9e9 448aw98e a49"
For i = 1 To Len(a)
b = Mid(a, i, 1)
If InStr(t, b) > 0 Then c = c & b
Next
MsgBox c

Answer 4

用Mid、Asc函数实现，要不要源码？