简单问题:如可取得一个字符串中的数字?

scmydg 2003-09-26 04:58:17
val()如果每一个字符是不是数字就不能返回正确的结果,还有没有其它的函数啊!


...全文
35 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
hemeijun81 2003-09-27
  • 打赏
  • 举报
回复
isnumeric()函数先判断一下
scmydg 2003-09-27
  • 打赏
  • 举报
回复
cuizm(射天狼) :
如果是val("ab123")的话,返回的是0

northwolves(野性的呼唤) :
谢谢,我主要是想知道有没有函数!
northwolves 2003-09-26
  • 打赏
  • 举报
回复
Function getnum(ByVal x As String) As String
Do While Not IsNumeric(x)
For i = 1 To Len(x)
If Not IsNumeric(Mid(x, i, 1)) Then x = Replace(x, Mid(x, i, 1), "")
Next
Loop
getnum = x
End Function
踏平扶桑 2003-09-26
  • 打赏
  • 举报
回复
如果不行就用for函数来判断吧
hcj2002 2003-09-26
  • 打赏
  • 举报
回复
kmzs(.:RNPA:.山水岿濛)
应该是:‘0’--‘9’吧
kmzs 2003-09-26
  • 打赏
  • 举报
回复
一个一个看,不是“0”-“1”就不是数字,是就&到另一个变量中
aha99 2003-09-26
  • 打赏
  • 举报
回复
可以进行把数字取出来之后,再用val
射天狼 2003-09-26
  • 打赏
  • 举报
回复
Val中以啊,
MsgBox Val("123sdlkfj")
返回的是123

其它函数如果有字符就出错!!
horsefly 2003-09-26
  • 打赏
  • 举报
回复
isnumeric()
haipingma 2003-09-26
  • 打赏
  • 举报
回复
cdbl
CInt
CLng
jlum99 2003-09-26
  • 打赏
  • 举报
回复
这是当然.有字符怎么能当成是数字来转换啊?

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧