Question

如何判断一个字符串中包含相同的字符

Answer 1

判断字符串中是否存在重复字符，代码：

        Dim STR as String 'STR为判断的字符串
        Dim LSTR as Integer = Len(STR)
        For i As Integer = 1 To LSTR
            For ii As Integer = i To LSTR
                If StopP = True Then Exit For
                Dim J As String = Mid(TextBox1.Text, i, 1)
                Dim K As String = Mid(TextBox1.Text, ii, 1)
                If J = K AndAlso i <> ii Then
                    If J <> Mid(vbCrLf, 1, 1) AndAlso J <> Mid(vbCrLf, 2, 1) Then
                        '存在相同字符，且排除换行符。
                        Exit Sub '退出该过程
                    End If
                End If
            Next
        Next

我编写的程序（VB.Net）

能够找出文本中重复的字符（不包括换行符）

请下载源代码