VBA Excel Instr() StrComp() 无法正常工作

Question

我正在尝试比较两个字符串，但是，函数返回错误的匹配项。我厌倦了使用三种不同的方法并将每种方法的结果发布在不同的列中进行测试。我厌倦了使用“string1”=“string2”、instr() 和 strcomp() 进行比较。

当使用相同的两个字符串时，它们甚至不会为每个方法返回相同的结果；有时一种类型的比较是正确的，而另一些则可能不是。

对于误报，Instr() 返回一个位置，但子字符串不在目标字符串中，Strcomp() 返回 0 但单词不一样，"string1" = string2" 为真但字符串不同。

Worksheets("hemo").Cells(f, 1) = Trim(Worksheets(Stabv).Cells(Count, 1))
Worksheets("hemo").Cells(f, 2) = Len(Trim(Worksheets(Stabv).Cells(Count, 1)))
Worksheets("hemo").Cells(f, 3) = Trim(LitBaseArray(y))
Worksheets("hemo").Cells(f, 4) = Len(Trim(LitBaseArray(y)))

scrapeString1 = Trim(Worksheets(Stabv).Cells(Count, 1))
scrapeString2 = Trim(LitBaseArray(y))

If scrapeString1 = scrapeString2 Then
Worksheets("hemo").Cells(f, 5) = "true"
End If

If StrComp(Trim(scrapeString1), Trim(scrapeString2), vbTextCompare) = 0 Then
Worksheets("hemo").Cells(f, 6) = "true    " & StrComp(Trim(scrapeString1), Trim(scrapeString2), vbTextCompare)
End If

If InStr(1, Trim(scrapeString1), Trim(scrapeString2), vbTextCompare) > 0 Then
Worksheets("hemo").Cells(f, 7) = "true    " & InStr(1, Trim(scrapeString1), Trim(scrapeString2), vbTextCompare)
End If

f = f + 1

Answer 1

1.

If str1 = str2 Then
    'str1 is exactly similar with str2
    '"ABC" = "ABC", but "ABC" <> "Abc"
End If

2.

If StrComp(str1, str2, vbTextCompare) = 0 Then
    'str1 is similar with str2, but in case insensitive manner
    'StrComp("ABC", "ABC", vbTextCompare) = 0 and
    'StrComp("ABC", "Abc", vbTextCompare) = 0 as well
    'Use binary comparison if you want similar behavior as for the = operator
End If

Docs.

3.

If InStr(1, str1, str2, vbTextCompare) > 0 Then
    'Will be true if str1 contains str2 in a case insensitive manner
    'To make it case-sensitive, use binary comparison instead of vbTextCompare
    'InStr(1, Nothing, "A", vbTextCompare) will be 0
    'InStr(1, "A", Nothing, vbTextCompare) will be 1 !
    'InStr(1, "", "A", vbTextCompare) will be 1 !
    'InStr(1, "ABC", "CD", vbTextCompare) will be 0
    'InStr(1, "ABC", "BC", vbTextCompare) > 0
    'InStr(1, "ABC", "AB", vbTextCompare) > 0
    'InStr(1, "ABC", "abc", vbTextCompare) > 0
    'InStr(1, "ABC", "c", vbTextCompare) > 0
End If

Docs.

如您所见，在不同的情况下可能会出现不同的行为，尤其是因为您在某些情况下Trim 他们而不是在其他情况下Trim 他们。