主题：变量赋值

给变量赋值，该值为任何单个字符，请问如何设置？

“DcBcBEF"

 

找出字符串ABAB型的词，如上面字符串的“cBcB”。请问如何设置？

如果是汉字或者其它符号，比如在帮助文档中，有重复多余词语，要找出来，请问如何设置？

Dim d As String = "ababcdcd"
If d IsNot Nothing Then
    For i As Integer = 0 To d.Length - 1
        If (i - 2) > 0 Then
            If d.Chars(i) = d.Chars(i-2) AndAlso d.Chars(i-1) = d.Chars(i-3) Then
                Messagebox.Show("连续重复的词语:" & d.Chars(i-3) & d.Chars(i-2) & d.Chars(i-3) & d.Chars(i-2))
            End If
        End If
    Next
End If

 

上面代码基本可以达到要求。

其它符号如何设置？（如：“/?.*>[!)”，主要用于检查语句是否通顺）

 

谢谢！先收藏，再研究。

 

下面代码可以实现，但代码较长。

 

Dim d As String = "abab([([cdc123123d??4545你好你好"

Dim s As String = "AA" '重复
'Dim s As String = "ABAB"

'Dim s As String = "ABcABc"

If d IsNot Nothing Then
    For i As Integer = 0 To d.Length - 1
        If s = "AA"
            If (i - 1) > 0 Then
                If d.Chars(i) = d.Chars(i-1) Then
                    Messagebox.Show("连续重复的词语:" & d.Chars(i-1) & d.Chars(i))
                End If
            End If
        ElseIf s = "ABAB"
            If (i - 2) > 0 Then
                If d.Chars(i) = d.Chars(i-2) AndAlso d.Chars(i-1) = d.Chars(i-3) Then
                    Messagebox.Show("连续重复的词语:" & d.Chars(i-3) & d.Chars(i-2) & d.Chars(i-3) & d.Chars(i-2))
                End If
            End If
        ElseIf s = "ABCABC" Then
            If (i - 4) > 0 Then
                If d.Chars(i) = d.Chars(i-3) AndAlso d.Chars(i-1) = d.Chars(i-4) AndAlso d.Chars(i-2) = d.Chars(i-5) Then
                    Messagebox.Show("连续重复的词语:" & d.Chars(i-5) & d.Chars(i-4) & d.Chars(i-3) & d.Chars(i-2) & d.Chars(i-1) & d.Chars(i))
                End If
            End If
        End If
    Next
End If