以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  很多个相联空格变成一个  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152802)
--  作者：2425004926
--  发布时间：2020/7/22 17:38:00
--  很多个相联空格变成一个
 文本框中，有很多个空格相联，具体也不知道多少个，怎么把这些相联的空格变成一个空格，
笨办法用（1个，2个、、、）替换成一个，或多次替换，
但是，有没有更简洁的代码？
--  作者：linyunu1
--  发布时间：2020/7/22 18:45:00
--  
笨办法
Dim s As String ="abc              efg"
s = s.Insert(s.IndexOf(" "),"|")
s = s.Replace(" ","")
s = s.Replace("|"," ")
msgbox(s)
--  作者：有点蓝
--  发布时间：2020/7/22 20:24:00
--  
Dim pattern As String = "[\\s]+"
Dim txt = "112         好4    83"
Dim str = System.Text.RegularExpressions.Regex.Replace(txt , pattern ," ")
Output.Show(str)