Next without For

[Forged]

I keep getting the error next without for when this code runs and I have no clue why.  I do have a for loop

Code Select Expand


Private Sub CSB_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)

If LCase(Message) = LCase("Your friends are:") Then
'
End If
For i = 1 To 25 Step 1
If Left((LCase(Message)), 3) = (LCase(i & ": ")) Then
    ParseFriends Message
Next i
Else
AddC vbYellow, Message
End If

End Sub


[dxoigmn]

Code Select Expand


Private Sub CSB_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)

  If LCase(Message) = LCase("Your friends are:") Then
    '
  End If

  For i = 1 To 25 Step 1
    If Left((LCase(Message)), 3) = (LCase(i & ": ")) Then
      ParseFriends Message
      Next i
    Else
      AddC vbYellow, Message
    End If

End Sub


Tabbing reveals the problem...

[Forged]

except that will add the server info 25 times and I don't want to do that.

[shout]

except that will add the server info 25 times and I don't want to do that.

If you did not notice is the exact same code except it has tabbing.

[Blaze]

except that will add the server info 25 times and I don't want to do that.

Think then...

Code Select Expand


Private Sub CSB_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)

If LCase(Message) = LCase("Your friends are:") Then
'
End If

If Left((LCase(Message)), 3) = (LCase(i & ": ")) Then
    For i = 1 To 25 Step 1
        ParseFriends Message
    Next i
Else
AddC vbYellow, Message
End If

End Sub


[Forged]

For i = 1 to 25 needs to be above the if statement because I am using the value of i in the if statement.

[Blaze]

Hmm, how about we do this the easy way then..

Code Select Expand


Private Sub CSB_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)

     If LCase(Message) = LCase("Your friends are:") Then
          '
     End If

     For i = 1 To 25 Step 1
          If Left((LCase(Message)), 3) = (LCase(i & ": ")) Then
               ParseFriends Message
          Else
               AddC vbYellow, Message
               Exit For
          End If
     Next i
End Sub


[dxoigmn]

For i = 1 to 25 needs to be above the if statement because I am using the value of i in the if statement.

I'm guessing you want to do something like this:

Code Select Expand


Private Sub CSB_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)

  If LCase(Message) = LCase("Your friends are:") Then ' Why not lower-case the string yourself? *Lazy*
    '
  End If

  If Left(Message, 3) Like "#: " Then
    ParseFriends Message
  Else
    AddC vbYellow, Message
  End If

End Sub


Edit: This might only work for 1 digit. Making it work for 2 digits is trivial.

[Forged]

Thank you sir, that is exactlly what I needed.   I had never heard of the Like operator before, kind of nifty.

[Joe[x86]]

In my bot, just print server info to the screen, and update my friends list using 0x.. whatever the packet was. That way if they use /f l it will display correctly.

[Eric]

I keep getting the error next without for when this code runs and I have no clue why.  I do have a for loop

Code Select Expand


Private Sub CSB_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)

If LCase(Message) = LCase("Your friends are:") Then
'
End If
For i = 1 To 25 Step 1
If Left((LCase(Message)), 3) = (LCase(i & ": ")) Then
    ParseFriends Message
Next i
Else
AddC vbYellow, Message
End If

End Sub


You're missing an End If.

Code Select Expand


Private Sub CSB_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)

If LCase(Message) = LCase("Your friends are:") Then
'
End If
For i = 1 To 25 Step 1
If Left((LCase(Message)), 3) = (LCase(i & ": ")) Then
    ParseFriends Message
End If
Next i
Else
AddC vbYellow, Message
End If

End Sub


[Joe[x86]]

Code Select Expand

If LCase(Message) = LCase("Your friends are:") Then
'
End If

I'd comment out the If and End If lines as well (for efficency) or just plain remove them, seeing as how its a compare to do even though it doesn't effect anything.