Help with code plz

[the_lord_mephy]

Do
$letter = InputBox("Enter Character", "Please Enter the character you wish to see the ASCII code for. To end script, enter quit in the box below")
$ascii = Asc($letter)
If StringLen($letter) >= 2 AND NOT $letter="quit" Then
   MsgBox(0, "Error", "You typed in more than one character at once")
ElseIf StringLen($letter) = 1 Then
MsgBox(0, "ASCII", "The ASCII Code for: " &$letter& " is: " &$ascii)
EndIf

Until $letter = "quit"

How come when ever i enter a random letter combonation, it doesnt do the Msgbox that says you typed in more than one character at once

[Matt @ MPCS]

Try This:

Do
$letter = InputBox("Enter Character", "Please Enter the character you wish to see the ASCII code for. To end script, enter quit in the box below")
$ascii = Asc($letter)
If StringLen($letter) >= 2 AND NOT( $letter="quit" ) Then
   MsgBox(0, "Error", "You typed in more than one character at once")
ElseIf StringLen($letter) = 1 Then
MsgBox(0, "ASCII", "The ASCII Code for: " &$letter& " is: " &$ascii)
EndIf

Until $letter = "quit"

[the_lord_mephy]

thankyou

[the_lord_mephy]

is there a way to make it so that if the person clicks cancel it goes away?

[Jos]

is there a way to make it so that if the person clicks cancel it goes away?

<{POST_SNAPBACK}>

Do
   $letter = InputBox("Enter Character", "Please Enter the character you wish to see the ASCII code for. To end script, enter quit in the box below")
   If @error = 1 then ExitLoop
   $ascii = Asc($letter)
   If StringLen($letter) >= 2 And Not $letter = "quit" Then
      MsgBox(0, "Error", "You typed in more than one character at once")
   ElseIf StringLen($letter) = 1 Then
      MsgBox(0, "ASCII", "The ASCII Code for: " & $letter & " is: " & $ascii)
   EndIf
   
Until $letter = "quit"

[Matt @ MPCS]

@JdeB

Did that work for you? I was trying it, but it wasn't working for me.

*** Matt @ MPCS

[Jos]

@JdeB

Did that work for you? I was trying it, but it wasn't working for me.

*** Matt @ MPCS

<{POST_SNAPBACK}>

yeap, works for me... when Cancel is clicked in the InputBox, the loop is exited....

Did you use my code or did you place the @error test at a different line ?

Edited September 9, 2004 by JdeB

[Matt @ MPCS]

Here it is, for some reason the @error has to come before you determine the ascii value:

Do
   $letter = InputBox("Enter Character", "Please Enter the character you wish to see the ASCII code for. To end script, enter quit in the box below")
   If @error = 1 then ExitLoop
   $ascii = Asc($letter)
   If StringLen($letter) >= 2 AND NOT( $letter="quit" ) Then
      MsgBox(0, "Error", "You typed in more than one character at once")
   ElseIf StringLen($letter) = 1 Then
   MsgBox(0, "ASCII", "The ASCII Code for: " &$letter& " is: " &$ascii)
   EndIf
Until $letter = "quit"

*** Matt @ MPCS

[Jos]

Here it is, for some reason the @error has to come before you determine the ascii value:

Do
   $letter = InputBox("Enter Character", "Please Enter the character you wish to see the ASCII code for. To end script, enter quit in the box below")
   If @error = 1 then ExitLoop
   $ascii = Asc($letter)
   If StringLen($letter) >= 2 AND NOT( $letter="quit" ) Then
      MsgBox(0, "Error", "You typed in more than one character at once")
   ElseIf StringLen($letter) = 1 Then
   MsgBox(0, "ASCII", "The ASCII Code for: " &$letter& " is: " &$ascii)
   EndIf
Until $letter = "quit"

*** Matt @ MPCS

<{POST_SNAPBACK}>

@error contains the Error condition of the last function, so it has to come right after the inputbox.....

[Matt @ MPCS]

Yeah i figured that out after looking at the documentation. Thanks for the pointer though.

*** Matt @ MPCS