含不可打印字符的字符串比较：文本模式结果异常原因排查

我需要比较由多个子串拼接而成的两个字符串，要求基于子串本身进行比较（子串通过字符串内的分隔符区分）。原本用"/"做分隔符，但子串可能包含任意字符（比如"/"），所以改用ASCII码31的不可打印字符作为分隔符。但现在比较结果随模式不同出现差异：

dim string1$, string2$, sep$
sep = Chr(31)
string1 = "11" & sep & "1"
string2 = "1" & sep & "11"
comp = StrComp(string1, string2, vbBinaryCompare)   ' 返回1，即string1 > string2 - 符合预期
comp = StrComp(string1, string2, vbTextCompare)     ' 返回-1，即string1 < string2 - 不符合预期

我需要使用文本模式进行比较，但ASCII码31小于所有可打印字符的编码，且无大小写之分，为何两种模式结果不同？我存在哪些误解？

问题根源：文本模式排序≠ASCII码值顺序 #

你对vbTextCompare的逻辑理解有误——它不是按字符的原始ASCII/Unicode编码值比较，而是遵循Windows系统区域设置的文本排序规则，控制字符的排序优先级在这个规则里和二进制模式完全相反。

具体到你的例子：

• 二进制模式（vbBinaryCompare）：严格按编码值逐位对比。ASCII 31的编码是31，数字"1"是49。对比时，string1的第二个字符是"1"（49），string2的第二个字符是分隔符（31），因为49>31，所以string1整体更大，返回1，符合预期。
• 文本模式（vbTextCompare）：Windows的区域排序规则中，ASCII 0-31的控制字符排序权重高于所有可打印字符（包括数字）。也就是说，文本比较逻辑里，分隔符（ASCII31）比"1"的排序优先级更高。逐位对比时，string1的第二个字符"1"被认为小于分隔符，因此string1整体小于string2，返回-1。

正确的子串比较方案 #

直接对拼接后的整串用StrComp无法实现"先比第一个子串，再比第二个子串"的需求，因为分隔符会和子串字符混在一起参与排序。正确做法是：

1. 把两个字符串按分隔符拆分成子串数组
2. 逐个子串进行比较（按需选择vbTextCompare或vbBinaryCompare）
3. 找到第一个不相等的子串就返回结果；若所有子串都相等，再比较子串数量

示例代码：

dim arr1(), arr2()
arr1 = Split(string1, sep)
arr2 = Split(string2, sep)

dim i as integer, comp as integer
comp = 0
' 先比较共同长度的子串
for i = 0 to WorksheetFunction.Min(UBound(arr1), UBound(arr2))
    comp = StrComp(arr1(i), arr2(i), vbTextCompare)
    if comp <> 0 then exit for
next
' 若前面子串都相等，比较子串数量
if comp = 0 then
    if UBound(arr1) > UBound(arr2) then
        comp = 1
    elseif UBound(arr1) < UBound(arr2) then
        comp = -1
    end if
end if

内容的提问来源于stack exchange，提问作者valigi