求文本中的数字之和 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求文本中的数字之和

共有10393人关注过本帖树形打印复制链接主题：求文本中的数字之和

lrj03

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：92 积分：1117 威望：0 精华：0 注册：2011/5/6 12:46:00

求文本中的数字之和 发帖心情

Post By：2012/11/2 15:15:00 [只看该作者]

有这么一行文本“年金643.8 医保1540.83 失业金404.33 公积金9704.7养老金5746.16"在窗体备注框中，求其中数字的和，要怎么编程呢？

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/11/2 15:21:00 [只看该作者]

太难，我路过，小林上！

图片点击可在新窗口打开查看

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/11/2 15:33:00 [只看该作者]

用正则表达式……挺简单。如下代码

Dim data As String = "年金643.8 医保1540.83 失业金404.33 公积金9704.7养老金5746.16"
Dim catchs As New System.Text.RegularExpressions.Regex("[0-9\.]+")
Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data)
Dim sum As Double = 0
For i As Integer = 0 To mc.Count - 1
sum = sum + mc(i).Value
Next
msgbox(sum)

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/11/2 15:35:00 [只看该作者]

图片点击可在新窗口打开查看

hanxuntx

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2609 积分：16926 威望：0 精华：11 注册：2011/9/20 16:13:00

Post By：2012/11/2 15:42:00 [只看该作者]

佩服，学习了

lihe60

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6809 积分：43063 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2012/11/2 15:45:00 [只看该作者]

以下是引用lin_hailun在2012-11-2 15:33:00的发言：
用正则表达式……挺简单。如下代码

Dim data As String = "年金643.8 医保1540.83 失业金404.33 公积金9704.7养老金5746.16"
Dim catchs As New System.Text.RegularExpressions.Regex("[0-9\.]+")
Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data)
Dim sum As Double = 0
For i As Integer = 0 To mc.Count - 1
sum = sum + mc(i).Value
Next
msgbox(sum)

收藏。