vbscript:如何查找看起来相同的两个字符串之间的差异

我建议使用 For 循环, Mid 和 Asc ,逐个比较实际字符。类似(未尝试的代码):

' Presume input strings named s1 and s2
' Assume Len(s1) = Len(s2)
Dim i

For i = 1 to Len(s1)
   If Asc(Mid(s1, i, 1)) <> Asc(Mid(s2, i, 1)) Then
        Msgbox "Strings differ at character " & i
    End If
Next 'i

如果它们在这个测试中相等,并且不相等于 StrComp 然后…我真的不知道。也许用同样的东西 LenB 和 AscB 看看是Unicode还是编码问题。

最有可能的情况是在末尾有尾随空格(或其他类似空格的打印内容)。试着这样打印:

Debug.Print "*" & string1 & "*"
Debug.Print "*" & string2 & "*"

看看你得到了什么。

你试过用这个参数吗 vbTextCompare 在你 StrComnpare ? 这将对两个字符串进行不区分大小写的比较。

我也会推荐上面所说的2个。

所以:

StrCompare(String1, String2, vbTextCompare)

亲切的问候,