Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = "SSSSSABCCCCCC33333 DDDD"
Dim s1 As String = "33"
Dim i As Int32
For i = 1 To Int(s.Length / 2)
s = s.Replace("33", "3")
s = s.Replace("SS", "S")
s = s.Replace("CC", "C")
s = s.Replace("DD", "D")
Next
MsgBox(s)
End Sub
End Class
"(.)\1*"
"([^\r\n\s])\1*"
Dim reg As New Regex("([^\r\n\s])\1*")
Dim mc As MatchCollection = reg.Matches("SSSSSABCCCCCC33333 DDDD")
For Each m As Match In mc
TextBox1.Text += m.Groups(1).Value & vbLf
Next
Dim reg As New Regex("([^\r\n\s])\1*")
Dim mc As MatchCollection = reg.Matches("SSSSSABCCCCCC33333 DDDD")
For Each m As Match In mc
TextBox1.Text += m.Groups(1).Value
Next
private void button1_Click(object sender, EventArgs e)
{
string s = "SSSSSABCCCCCC33333 DDDD";
StringBuilder resultBuilder = new StringBuilder();
s.ToCharArray().Aggregate(char.MinValue,(p, n) =>
{
if (p != n) resultBuilder.Append(n);
p = n;
return p;
});
MessageBox.Show(resultBuilder.ToString());
}
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim s As String = "SSSSSABCCCCCC33333 DDDD"
Dim resultBuilder As New StringBuilder
s.ToCharArray.Aggregate(Of Char, Char)(ChrW(0), Function (ByVal cp As Char, ByVal cn As Char)
If (cp <> cn) Then
resultBuilder.Append(cn)
End If
cp = cn
Return cp
End Function)
MessageBox.Show(resultBuilder.ToString)
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim s As String = "SSSSSABCCCCCC33333 DDDD"
Dim resultBuilder As New StringBuilder
s.ToCharArray.Aggregate(Of Char, Char)(ChrW(0), Function (ByVal p As Char, ByVal n As Char)
If ((p <> n) AndAlso New Char() { " "c, ChrW(13), ChrW(10) }.Contains(Of Char)(n)) Then
resultBuilder.Append(n)
End If
p = n
Return p
End Function)
MessageBox.Show(resultBuilder.ToString)
End Sub
Public Sub test_lambda_and_linq03(ByVal r As Char)
Dim s As String = "SSSSSABCCCCCC33333 DDDD"
Dim resultBuilder As New StringBuilder
s.ToCharArray.Aggregate(Of Char, Char)(ChrW(0), Function (ByVal p As Char, ByVal n As Char)
If ((n <> r) OrElse ((n = r) AndAlso (p = r))) Then
resultBuilder.Append(n)
End If
Return n
End Function)
MessageBox.Show(resultBuilder.ToString)
End Sub
Me.test_lambda_and_linq03("3"c)
本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。