VB6 TreeView节点存在性校验与新增逻辑修复求助

原代码核心问题 #

• 数组变量名混乱（第一段代码中PacketArray4与PacketArray4d混用）
• 节点匹配逻辑完全错误：用nod.Index对应数组索引，无法正确匹配用户名
• 业务逻辑颠倒：第二段代码中找到已存在的节点时反而执行添加操作
• 未实现逐个检查、不存在才添加的逻辑，而是批量重复添加所有用户
• 未利用TreeView的Nodes.Exists方法高效检查节点存在性，遍历效率低
• 第一段代码硬编码测试数据，未使用传入的data参数

修复后的完整代码 #

If InStr(data, "|Lst|") Then
    Dim PacketArray4d() As String
    Dim userName As String
    Dim userCount As Integer
    
    ' 分割数据，得到用户名数组
    PacketArray4d = Split(data, "|Lst|")
    
    ' 遍历分割后的数组，跳过第一个空元素（因为开头是|Lst|）
    For i = 1 To UBound(PacketArray4d)
        ' 去除用户名前后空格，避免空字符串或无效数据
        userName = Trim(PacketArray4d(i))
        If userName = "" Then GoTo NextUser
        
        ' 检查当前用户是否已在TreeView中（用用户名作为唯一Key）
        If Not hostgame.lstUsers.Nodes.Exists(userName) Then
            ' 限制最多添加20条用户
            If hostgame.lstUsers.Nodes.Count < 20 Then
                ' 添加节点：Key设为用户名（确保唯一），Text显示用户名，图标索引1
                hostgame.lstUsers.Nodes.Add , , userName, userName, 1
                userCount = userCount + 1
            Else
                ' 达到上限，可添加提示或直接退出循环
                Exit For
            End If
        End If
        
NextUser:
    Next i
End If

关键修复说明 #

1. 数组处理：用Split(data, "|Lst|")正确解析传入的用户数据，跳过分割后第一个空元素（因为原始字符串以|Lst|开头）
2. 存在性检查：利用Nodes.Exists(userName)高效判断用户是否已存在，这里将用户名设为节点的Key（必须唯一），避免重复添加
3. 逐个处理逻辑：遍历每个用户名，仅当用户不存在且未达20条上限时才添加节点
4. 数据清洗：用Trim去除用户名前后空格，避免添加空节点或无效数据
5. 移除冗余代码：删除了原代码中批量重复添加的逻辑，以及低效的嵌套遍历去重代码

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