| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1423 人关注过本帖
标题:字符串处理00000
只看楼主 加入收藏
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:325
专家分:435
注 册:2012-1-29
结帖率:87.21%
收藏
已结贴  问题点数:20 回复次数:2 
字符串处理00000
有个问题请教各位老师:在文本框中输入数字,同时自动去掉字符串中无效的0,
是否可以在KeyPress中做到?我看好像只能在LostFocus事件中去做。
 如下字符串。
   数字:     结果:   
  0.0          0
  0080         80
  00.001       0.001
  0080.00100   80.001
上面是纯数字,如果前后含有字母要怎么处理,字母不在中间
如果是纯数字我用的Val()效果挺好的,但是如果前后含有字母就失效了。

搜索更多相关主题的帖子: 数字 纯数字 字母 字符串 处理 
2020-03-03 16:16
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:20 
要看你怎么对待字母,可以写一个函数,用自己需要的字符替代字母(也可以是空字符),函数如下:
Function onlynum(a As String, b As String) As Double
  Dim i As Integer, c As String, d As String
  d = ".0123456789"
  If b <> "" Then b = Val(Left(b, 1))
  For i = 1 To Len(a)
    If InStr(d, Mid(a, i, 1)) > 0 Then
      c = c & Mid(a, i, 1)
    Else
      c = c & b
    End If
  Next
  onlynum = Val(c)
End Function

函数调用示范:
a=onlynum("a1234b.cd233","")  结果:a=1234.233,所有字母都被去掉
a=onlynum("a1234b.cd233","a") 结果:a=12340.00233,所有英文字母被0替代
a=onlynum("a1234b.cd233","5") 结果:a=512345.55233,所有英文字母被5替代

能编个毛线衣吗?
2020-03-03 21:04
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:325
专家分:435
注 册:2012-1-29
收藏
得分:0 
回复 2楼 wmf2014
师傅!你这个队处理字符串是挺好的,但是与我想达到的效果还是有差距的。

学习--------------学习-------------------学习--------------------!!
2020-03-11 15:03
快速回复:字符串处理00000
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056039 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved