VB6按Winsock索引匹配List项并移除不匹配项的问题排查

需求：将Label1.Caption（代表Winsock的索引，值为2）与List1中每项按"/"拆分后的第3个元素（索引项）匹配，移除所有不匹配项。
现有代码运行后错误移除了本应保留的匹配项。示例数据：当Label1.Caption=2时，应保留mosdjas/room2/2，移除xxx2x/room1/4、jaosjdiasjd/room1/5等不匹配项，但当前代码仍错误移除符合索引的用户。

现有错误代码 #

On Error Resume Next
Dim demopacket() As String
Dim X As Integer

For X = List1.ListCount - 1 To 0 Step -1

demopacket() = Split(List1.List(X), "/")
Dim num As Integer
num = num + 1
Debug.Print num

If num = Label1.Caption Then
'Exit For
End If

If Label1.Caption = demopacket(2) Then
Else

List1.RemoveItem X
lstOnline.RemoveItem X

'RemoveUser List1.List(X)
'RemoveUserFromRoom List1.List(X)
Call RemoveUser(demopacket(0))
Call RemoveUserFromRoom(demopacket(0))
Call RoomCount(demopacket(1), False)

End If
'Debug.Print demopacket(0)
'demopacket(0)  username
'demopacket(1) roomname
'demopacket(2) index

Next

错误原因 #

1. 多余逻辑干扰匹配：代码中添加的num变量自增及If num = Label1.Caption Then的判断完全无关，打乱了原本的索引匹配逻辑，导致本该保留的项被错误移除。
2. 无下标越界防护：未判断拆分后的数组长度是否足够，若List1中存在格式错误的项（拆分后不足3个元素），会触发下标越界错误，On Error Resume Next会跳过错误直接执行移除操作，进一步导致逻辑混乱。

修正后的代码 #

On Error Resume Next
Dim demopacket() As String
Dim X As Integer
Dim targetIndex As String

' 统一目标索引为字符串类型，避免类型不匹配问题
targetIndex = Label1.Caption

' 从后往前遍历，避免移除项导致后续索引错位
For X = List1.ListCount - 1 To 0 Step -1
    demopacket = Split(List1.List(X), "/")
    
    ' 先判断拆分后的数组是否包含至少3个元素
    If UBound(demopacket) >= 2 Then
        ' 直接比较索引项，不匹配则移除
        If demopacket(2) <> targetIndex Then
            List1.RemoveItem X
            lstOnline.RemoveItem X
            
            Call RemoveUser(demopacket(0))
            Call RemoveUserFromRoom(demopacket(0))
            Call RoomCount(demopacket(1), False)
        End If
    Else
        ' 格式错误的项直接移除
        List1.RemoveItem X
        lstOnline.RemoveItem X
    End If
Next

修正说明 #

• 移除了所有无关的num变量及判断逻辑，回归核心的索引匹配需求。
• 增加数组长度判断，避免下标越界错误，同时清理格式不符合要求的项。
• 统一使用字符串类型存储目标索引，确保比较时类型一致，避免隐式转换带来的意外问题。
• 保留从后往前遍历的正确逻辑，防止移除项后后续索引错位。

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