主题：[求助]将字符串中多个相同的字符缩为一个

老师好！

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

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

Dim str As String = "你好,早上,,,,,中午,,下午,,,,,,"
str  = str.replace(",,,,,," , "," ).replace(",,,,," , "," ).replace(",," , "," )

谢谢蓝老师！

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

.....

Dim pattern As String = "[chr(13)]+"
Dim str2 = System.Text.RegularExpressions.Regex.Replace(str, pattern ,chr(13))