Question

求教怎样用按键精灵区分文字和数字

如文本内容为“我在花园10单元25号“，希望输出结果为
a= 我在花园单元号
b=1025

Answer 1

q="我在花园10单元25号"
For i=1 to len(q)
If int(Mid(q, i,1))<>""
a=a&int(Mid(q, i,1))
Else
b=b&Mid(q, i,1)
End If
Next
MessageBox a&" , "&b

追问

那如果q="我在花园10,25号“
怎么把”10,25“中间的逗号都识别出来，
而不只是1025啊？

追答

dim a,b
q="我在花园10单元,25号"
For i=1 to len(q)
If IsNumeric(Mid(q, i, 1)) = True or Mid(q, i, 1)=","
a = a & Mid(q, i, 1)
Else
b = b & Mid(q, i, 1)
End If
Next
MessageBox a&" , "&b