nike kobe 11 alt:VB中如何写个函数判断数字与字母

来源:百度文库 编辑:高校问答 时间:2024/05/01 03:01:05
ab1234567如何只取数字1234567,不取ab等字母

function haha(str as string) as string
for i=1 to len(str)
if not isnumeric(mid(str,i,1)) then
a=a&mid(str,i,1)
end if
next
haha=a
end function

解释:
分别检查传入的字符串的每一位字符是否是数字,如果不是,则保存。
遍历,最后返回保存结果。

VB里有一个函数Isnumeric可以直接判断是否是数字.
rezult=Isnumeric(mystring)
如果是数字rezult就是真,否则就是假。

好像没有什么好办法
循环一个一个判断是否数字