VB6解析粘贴工单文本调用Active Directory查询无匹配结果问题

问题根本原因 #

• 你从工单系统粘贴的文本里包含不可见的非打印Unicode字符，最常见的就是不间断空格（U+00A0，也就是HTML里的 ）、软换行符、零宽空格这类字符：
  • 你现有的LTrim/RTrim只能处理普通的半角空格（ASCII 32），没法过滤这类特殊空白字符
  • Len()计算长度的时候会把这些特殊字符算入，所以你看到两种场景长度一致，但实际字符内容不一样
  • 你手动复制内容到输入框的时候，操作系统/表单控件会自动把这类特殊空白转成普通空格，所以调用GetID就正常

修复方案 #

第一步：新增字符串清理函数，过滤特殊空白/非打印字符 #

先写一个通用处理函数，把所有异常字符转换成普通可识别内容，示例VB代码：

' 清理字符串中的特殊空白、非打印字符
Function CleanString(inputStr As String) As String
    Dim i As Long
    Dim result As String
    result = ""
    For i = 1 To Len(inputStr)
        Dim c As Integer
        c = AscW(Mid(inputStr, i, 1))
        ' 过滤控制字符、特殊空白，保留正常可见字符、普通空格
        If (c >= 32 And c <= 126) Or c > 127 Then ' 大于127的字符保留正常多语言可见内容
            If c = 160 Then ' 把不间断空格转成普通空格
                result = result & " "
            Else
                result = result & ChrW(c)
            End If
        End If
    Next
    ' 清理首尾空格、多余的连续空格
    CleanString = Trim(Replace(Replace(result, vbTab, " "), vbCrLf, " "))
    Do While InStr(CleanString, "  ") > 0
        CleanString = Replace(CleanString, "  ", " ")
    Loop
End Function

第二步：修改原有解析逻辑，先清理再处理姓名 #

Idx = InStr(txtPaste.Text, "Voalte.")
Work = Mid$(txtPaste.Text, Idx + 8, Len(txtPaste.Text))
' 先对粘贴的文本做全局清理再解析
Temp = CleanString(Work)
   
FirstName = RTrim(Left(Temp, InStr(1, Temp, " ") - 1))
LastName = RTrim(Mid(Temp, InStr(Temp, " ") + 1))
' 对解析出的姓名再做一次清理做双保险
FirstName = CleanString(FirstName)
LastName = CleanString(LastName)
      
MsgBox "First Name: " & FirstName & " Len: " & Len(FirstName) & "   /   " & "Last Name: " & LastName & " Len: " & Len(LastName)
   
txtADUserID.Text = GetID(LastName, FirstName)
DoEvents
MsgBox "ID: " & txtADUserID.Text
txtADUserName.Text = FirstName & " " & LastName

第三步：排查验证方案（可选） #

如果修改后仍有问题，可以加调试代码输出每个字符的编码，对比解析出的姓名和手动输入的姓名编码差异，定位残留的特殊字符：

' 输出字符串每个字符的编码，用于对比差异
Sub DebugString(s As String, fieldName As String)
    Dim i As Long, out As String
    out = fieldName & " 字符编码：" & vbCrLf
    For i = 1 To Len(s)
        out = out & Mid(s, i, 1) & " : " & AscW(Mid(s, i, 1)) & vbCrLf
    Next
    Debug.Print out
    MsgBox out
End Sub
' 调用示例
DebugString FirstName, "FirstName"
DebugString LastName, "LastName"

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