·在VB中，怎样在一句话中提出数字。

来源：百度知道 编辑：UC知道 时间：2024/05/13 09:01:03
例如：在text1中输入“电话号码87654321是谁家的？”
在text2中自动显示“87654321”
用vb的语句怎么写。。。？

'如果是电话，那么应该是8位（至少在中国）
Dim i as integer,dianhua2 as string
const dianhua="电话号码87654321是谁家的"
For i = 1 to len(dianhua)
If Isnumeric(mid(dianhua,i,1)) then
dianhua2=mid(dianhua,i,8)
exit for
end if
Next i
print dianhua2