VBScript：如何找到两个看起来相同的字符串之间的差异

Question

在 VB 脚本中比较两个字符串“test_name”。它们必须相同，并且在调试查看器中看起来相同，但 StrCompare(string1, string2) 返回 1。

历史记录。 这是QTP中的测试。第一个字符串是从 Excel 中读取的。第二个来自 Windows 应用程序。 QTP 从 Excel 读取一个值，将其输入到 Windows 窗体中，然后从另一个地方读取相同的值。如果这两个值相同，则测试通过。

如何找到这两个字符串的差异以便我可以纠正测试？

Answer 1

我建议使用 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 或编码问题。

Answer 2

最有可能的是你在末尾有尾随空格（或者其他像空格一样打印的东西）。尝试像这样打印它们：

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

看看你会得到什么。

Answer 3

您是否尝试在 StrComnpare 中使用参数 vbTextCompare ？
这将对两个字符串进行不区分大小写的比较。

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

所以应该是：

StrCompare(String1, String2, vbTextCompare)

亲切的问候，