以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字符串空格替换  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174872)
--  作者：lianghanyu
--  发布时间：2022/2/10 11:30:00
--  字符串空格替换
Dim s As String ="abc    123efg"
s = s.Replace(" ","_")
Output.Show(s)

得到的结果是：abc____123efg

我想得到的是，无论中间多少个空格，  有空格的地方，只用一个“_"代替：

abc_123efg
--  作者：有点蓝
--  发布时间：2022/2/10 11:35:00
--  
Dim pattern As String = "[\\s]+"
Dim txt = "112         好4    83"
Dim str = System.Text.RegularExpressions.Regex.Replace(txt , pattern ,"_")
Output.Show(str)