我想刪除文本框中的重複字符

Question

我正在使用VB.Net。 我需要刪除的文本框

舉例而言，所有重複字符：

myy naaaame isss Johnn 

到

my name is John 

任何人都可以幫我嗎？

Answer 1

因此，即使我，約VB.NET和正則表達式知道小人物想通了還有20分鐘：

Sub Main() 
    Dim input As String = "myy naaaame isss Johnn" 

    ' You need a regex group that matches any char: (.) 
    ' ... and a back reference: \1 
    ' ... and a count more than one: {1,} 
    Dim rgx As New Regex("(.)\1{1,}") 

    ' use the regex to Replace by the first char of the match group 
    Dim output As String = rgx.Replace(input, New MatchEvaluator(Function(ByVal m) 
                    Return m.Value.First 
                   End Function)) 
End Sub