以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]将字符串中多个相同的字符缩为一个  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159985)
--  作者：天一生水
--  发布时间：2021/1/16 13:03:00
--  [求助]将字符串中多个相同的字符缩为一个

老师好！

从文档中获取的字符串编码，含有多个连续、不定个数的特定字符，怎样将这些连续的字符缩为一个？

比如下面的代码，如果逗号个数不确定，就不能用了：

Dim str As String = "你好,早上,,,,,中午,,下午,,,,,,"
str  = str.replace(",,,,,," , "," ).replace(",,,,," , "," ).replace(",," , "," )
--  作者：有点蓝
--  发布时间：2021/1/16 14:17:00
--  
Dim pattern As String = "[,]+"
Dim str As String = "你好,早上,,,,,中午,,下午,,,,,,"
Dim str2 = System.Text.RegularExpressions.Regex.Replace(str, pattern ,",")
Output.Show(str2)
--  作者：天一生水
--  发布时间：2021/1/16 15:16:00
--  

谢谢蓝老师！

如果字符是 chr(13)，应该怎样写？下面的代码不起作用。

 

.....

Dim pattern As String = "[chr(13)]+"
Dim str2 = System.Text.RegularExpressions.Regex.Replace(str, pattern ,chr(13))
--  作者：有点蓝
--  发布时间：2021/1/16 15:38:00
--  
Dim pattern As String = "[\\n]+"