以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何合并两个空格为一个空格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93833)
--  作者：jinzhengbe
--  发布时间：2016/12/8 10:40:00
--  如何合并两个空格为一个空格

场景：
 
表a  有 3列
 
a列                       b列                                c列
 
衣服  裤子  鞋子      3.2.1                            aa
 
上衣   帽子             1.2                              bb

上衣 帽子               1..3.2                          aa 


1   如果想加一列  d列  

值等于  b列的 数字之和  应该怎么写啊？

2 如果 有两个连续的空格   例如  上面黄色的部分， 这么合并成为一个空格（替换也可好 前提是连续两个空格）

效果如下

a列                       b列                                c列               d
 
衣服  裤子  鞋子      3.2.1                            aa                  6
 
上衣   帽子             1.2                              bb                  3

上衣 帽子               1.3.2                          aa                   6
--  作者：有点色
--  发布时间：2016/12/8 11:13:00
--  

Dim str As String = "上衣   帽子"
str = System.Text.RegularExpressions.Regex.Replace(str, " +", " ")
msgbox(str)
--  作者：有点色
--  发布时间：2016/12/8 11:15:00
--  
Dim str As String = "1.2.3.4.5"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]+")
Dim sum As Double = 0
For i As Integer = 0 To mc.count-1
    sum += val(mc(i).value)
Next
msgbox(sum)