以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何判断某一字符是否为数字？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63400)
--  作者：sensen9025
--  发布时间：2015/1/20 11:48:00
--  [求助]如何判断某一字符是否为数字？

dim str as string="2C1Z+1Y",一个数字，然后是字母，还有一个加号。

如何得到所有数字的总和：2+1+1=4？

 

怎么判断一个字符为数字还是字母？
--  作者：Bin
--  发布时间：2015/1/20 11:50:00
--  
连在一起的怎么算?   21C1Z+12K  
--  作者：sensen9025
--  发布时间：2015/1/20 11:55:00
--  

加号不是真的运算，只是一个记号。

我只需要把表达式里所有的数字累加便可。
--  作者：Bin
--  发布时间：2015/1/20 11:57:00
--  
我的问题不是这个,我是说数字连在一起的怎么算? 分开算?
--  作者：sensen9025
--  发布时间：2015/1/20 12:00:00
--  
不用分开，一次性累加。
--  作者：有点甜
--  发布时间：2015/1/20 12:05:00
--  
Dim str As String = "2C1Z+1Y"
Dim reg As new System.Text.RegularExpressions.Regex("[0-9]+")
Dim mc As Object = reg.matches(str)
Dim sum As Double = 0
For i As Integer = 0 To mc.count - 1
    sum += mc(i).Value
Next
msgbox(sum)
--  作者：sensen9025
--  发布时间：2015/1/20 12:22:00
--  
OK！谢谢有点甜，非常到位。