замена нескольких одинаковых символов одним в строке

Question

У меня есть следующая строка:

dim str as string = "this       is    a string      .   "

Я хочу идентифицировать эти несколько пробелов и заменить их одним пробелом. использование функции замены заменит все из них, так как правильно выполнить такую ​​задачу?

Answer 1

import System.Text.RegularExpressions            

dim str as string  = "This is a      test   ."
dim r as RegEx = new Regex("[ ]+")
str = r.Replace(str, " ")

Answer 2

Используйте класс Regex для сопоставления с шаблоном «один или несколько пробелов», а затем замените все эти экземпляры одним пробелом.

Вот код C # для этого:

Regex regex = new Regex(" +");
string oldString = "this       is    a string      .   ";
string newString = regex.Replace(oldString, " ");

Answer 3

Я бы использовал модификатор \ s +, который легче читать

public Regex MyRegex = new Regex(
      "\\s+",
    RegexOptions.Multiline
    | RegexOptions.CultureInvariant
    | RegexOptions.Compiled
    );


// This is the replacement string
public string MyRegexReplace =   " ";

string result = MyRegex.Replace(InputText,MyRegexReplace);

Или в VB

Public Dim MyRegex As Regex = New Regex( _
      "\s+", _
    RegexOptions.Multiline _
    Or RegexOptions.CultureInvariant _
    Or RegexOptions.Compiled _
    )


Public Dim MyRegexReplace As String =  " "


Dim result As String = MyRegex.Replace(InputText,MyRegexReplace)

Answer 4

Используйте регулярное выражение. в соответствии с предложением этого другого пользователя SO here