vb 检查 2 个字符串是不是有 2 个不相等的字符

Posted 2023-04-13

【中文标题】vb 检查 2 个字符串是不是有 2 个不相等的字符

【英文标题】：vb check if 2 strings have 2 not equal charsvb 检查 2 个字符串是否有 2 个不相等的字符

【发布时间】：2015-12-21 19:46:03

【问题描述】：

例如我们有 2 个字符串。

string1 = "abcdef"
string2 = "abvdtf"

我现在如何检查是否有超过 2 个字符不同，它应该返回 false。

【问题讨论】：

字符重复允许吗？

我不会vb的编码。但如果你愿意，我可以给你逻辑

逻辑会很棒;)

1) 将两个字符串拆分为字符数组 2) 查找非相交 (var nonintersect = array1.Except(array2).Union(array2.Except(array1)); //这是 c# 代码) 如果 nointersect 长度大于 0 你的两个字符串不匹配

两个字符串的长度是否总是相同的？

【参考方案1】：

您可以使用以下功能：-

Public Function Compare(s1 As String, s2 As String, errorlimit As Integer) As Boolean
    Dim ErrorCount As Integer = 0
    For x As Integer = 0 To s1.Length - 1
        If s1(x) <> s2(x) Then
            ErrorCount += 1
        End If
    Next
    If ErrorCount > errorlimit Then
        Return False
    Else
        Return True
    End If
End Function

返回值 true 表示字符串相同或不同字符的数量小于指定的错误限制。返回值 false 表示不同字符的数量超过了指定的错误限制。