What is wrong with this select case?

[Azkar]

If InStr(x, ".") > 0 Then
            x = Trim(x)
            'x = UCase(x)
            Select Case x
                Case ".HELP"
                    send("PRIVMSG " & channel & " :" & "IRC bot written by Azkar (#BAH-NS)" & vbCrLf)
                Case ".help"
                    send("PRIVMSG " & channel & " :" & "IRC bot written by Azkar (#BAH-NS)" & vbCrLf)
                Case Else

                    send("PRIVMSG " & channel & " :" & x & vbCrLf)
            End Select
        End If

the else works, and the x output is exactally what should trigger the select case.

[nemaroller]

Your problem is the value of x.
Put a breakpoint on the line 'select case x', and run the program.

When the code stops at your breakpoint, hover your mouse over the X variable, and examine what it reads.

[Azkar]

Ah, thanks, it had a VBcrlf in it, how can I trim that out?

[Andy]

i would have figured the trim() statement you have would take care of that. .

[Azkar]

it didnt.

x still = ".HELP
"

[Pirate]

Originally posted by Azkar
it didnt.

x still = ".HELP
"

What do you want to do ?

[Azkar]

I want to remove the vbcrlf after the .help, strip x of its vbcrlf

[Pirate]

Do you have any example of a string that contain vbcrlf ?

[Azkar]

notice that x in the autos window is .HELP[](boxy thing)

when i delete the box, it give me the desired output...

[taxes]

Hi,

What's with the

Do Until 1<>1 bit??????

[Pirate]

Try this

x = x.Trim(vbCrLf.ToCharArray())

[Azkar]

ahhh... thanks, that worked.

[salvelinus]

Originally posted by taxes
Hi,

What's with the

Do Until 1<>1 bit??????

I think that's just another way of Do While True. He's got two conditions that will break him out of the loop, one is guaranteed to run. Can't see where he needs it though.

[Azkar]

yeah, i changed it around a whole lot, so i could do it using a different kind of loop, just didnt bother