以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何将字符串中多余的空格符去掉  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57619)
--  作者：chnfo
--  发布时间：2014/9/27 22:08:00
--  [求助]如何将字符串中多余的空格符去掉
Dim Multi As String = "1 2  3   4     5"
Dim Values() As String
Values = Multi.split(" ")
For Index As Integer = 0 To Values.Length - 1
    Output.Show(Values(Index)) 
Next

如上所示，12345间有1~N个空格符隔开
请教：
如何才能忽略掉多余的空格符而直接取得数字1，2，3，4，5呢？
--  作者：y2287958
--  发布时间：2014/9/27 22:40:00
--  
Replace
--  作者：Bin
--  发布时间：2014/9/28 8:47:00
--  
Multi.replace(" ")
--  作者：有点甜
--  发布时间：2014/9/28 9:21:00
--  
Dim str As String = "1  2  3       4     58  6"
Dim reg As new System.Text.RegularExpressions.Regex("(?<= {1}) *")
str = reg.Replace(str, "").replace(" ", "|")
msgbox(str)
--  作者：chnfo
--  发布时间：2014/9/28 9:21:00
--  
两位误会了吧，我是要得到1,2,3,4,5的序列，不是简单地把空格去掉
--  作者：有点甜
--  发布时间：2014/9/28 9:23:00
--  

Dim str As String = "1  2  3       4     58  6"
Dim reg As new System.Text.RegularExpressions.Regex("[0-9]+")

Dim mc As Object = reg.Matches(str)
For i As Integer = 0 To mc.count - 1
    output.show(mc(i).Value)
Next
--  作者：chnfo
--  发布时间：2014/10/5 14:56:00
--  
再请教，如果字符串是混合型的呢，例如字符串是“习大大 chn 12     57     380    a   克强“
--  作者：有点甜
--  发布时间：2014/10/5 14:59:00
--  

 

[此贴子已经被作者于2014-10-5 14:59:26编辑过]
--  作者：有点甜
--  发布时间：2014/10/5 14:59:00
--  

Dim str As String = "习大大 chn 12     57     380    a   克强"
Dim reg As new System.Text.RegularExpressions.Regex("[0-9a-zA-Z\\u4e00-\\u9fa5]+")

Dim mc As Object = reg.Matches(str)
For i As Integer = 0 To mc.count - 1
    output.show(mc(i).Value)
Next