While loop problems - GameCreators Forum

Author

Message

MadBovine

19

Years of Service

User Offline

Joined: 17th Oct 2005

Location:

Posted: 23rd Mar 2006 03:40

Link

Ok I'm having a problem with a while loop. The code is meant to take an input from the user, change it to lower case, then strip off all non-letter or number characters and return the shortened string.

Everytime I try to compile this function it gives me a "Command out of place at line xxx" error where the endwhile is at. I've tried ending every else if section, but that gives other errors. I'm trying to keep this code as fast as possible so I don't want to run 34 if statements, I just want it to check until it hits the one it corresponds with then go to the next character. If there is a better way to do this I would love to know, but I would also like to know why this code won't compile. Thanks in advance!

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 23rd Mar 2006 13:20

Link

use code tags to post your code

example:

{code}
...your code here
{/code}

replace {} with []

will yield this:

+ Code Snippet

...your code here

FREE Automatic file updates for your distributed Games and Apps - see Program Announcements Forum - DBP Demo

Back to top

Profile PM

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 24th Mar 2006 02:56

Link

I can't see the code you posted, but this code does what it sounds like you want to do.

+ Code Snippet

do
input "string  ",string$
string$=lower$(string$)
while mid$(string$,1)=" "
newstring$=""
for i=2 to len(string$)
   newstring$=newstring$+mid$(string$,i)
next i
string$=newstring$
endwhile
while mid$(string$,len(string$))=" "
newstring$=""
for i=1 to len(string$)-1
   newstring$=newstring$+mid$(string$,i)
next i
string$=newstring$
endwhile
print string$+"--This is the new string"
loop

Insanity is just a state of mind

Back to top

Profile PM Website

MadBovine

19

Years of Service

User Offline

Joined: 17th Oct 2005

Location:

Posted: 24th Mar 2006 05:10

Link

Heh, I tried attaching it with the "source" window... After reading a few more posts I found another newbie to the forum had the same problem because it doesn't attach them for new users, silly me, lol.

Anyways, I was kinda sleep deprived the first time I wrote my code and found the silly error I made. Thanks for the help anyways guys, it's really appreciated! I have it working now (and faster, I switched from cascading Ifs to a Case selection) and as soon as I have it in a workable form I'll post it.

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 25th Mar 2006 01:15

Link

I like your forum name by the way...

+

mine is translated to...............

+

watch your back

FREE Automatic file updates for your distributed Games and Apps - see Program Announcements Forum - DBP Demo

Back to top

Profile PM

MadBovine

19

Years of Service

User Offline

Joined: 17th Oct 2005

Location:

Posted: 28th Mar 2006 07:57

Link

As promised here is my code, very simple, but useful for taking user input and parsing it down to just lowercase letters and numbers:

cls
input "What tool are you looking for?", tool_num_$
tool_num_$ = tool_num(tool_num_$)
print tool_num_$
wait key
end
function tool_num(tool_num_$)
remstart
This function will ask the user to input a tool number, which will then be parsed down to lowercase then have all
non-letter or number characters stripped.  The result will then be returned.
Example:
user inputs T-8990-2
the function then turns it into lowercase, t-8990-2
the function then strips off all non number or letter characters leaving the result: t89902
remend
tool_num_$ = lower$(tool_num_$)
new_tool_num_$ = ""
length = len(tool_num_$)
letter_or_num = 0
rem check each character in the tool string and if a letter or number add it to the tool number return value
while length >= 0
   char_$ = left$(tool_num_$, 1)
   length = length - 1
   select char_$
   case "0"
      letter_or_num = 1
      endcase
   case "1"
      letter_or_num = 1
      endcase
   case "2"
      letter_or_num = 1
      endcase
   case "3"
      letter_or_num = 1
      endcase
   case "4"
      letter_or_num = 1
      endcase
   case "5"
      letter_or_num = 1
      endcase
   case "6"
      letter_or_num = 1
      endcase
   case "7"
      letter_or_num = 1
      endcase
   case "8"
      letter_or_num = 1
      endcase
   case "9"
      letter_or_num = 1
      endcase
   case "a"
      letter_or_num = 1
      endcase
   case "b"
      letter_or_num = 1
      endcase
   case "c"
      letter_or_num = 1
      endcase
   case "d"
      letter_or_num = 1
      endcase
   case "e"
      letter_or_num = 1
      endcase
   case "f"
      letter_or_num = 1
      endcase
   case "g"
      letter_or_num = 1
      endcase
   case "h"
      letter_or_num = 1
      endcase
   case "i"
      letter_or_num = 1
      endcase
   case "j"
      letter_or_num = 1
      endcase
   case "k"
      letter_or_num = 1
      endcase
   case "l"
      letter_or_num = 1
      endcase
   case  "m"
      letter_or_num = 1
      endcase
   case "n"
      letter_or_num = 1
      endcase
   case "o"
      letter_or_num = 1
      endcase
   case "p"
      letter_or_num = 1
      endcase
   case "q"
      letter_or_num = 1
      endcase
   case "r"
      letter_or_num = 1
      endcase
   case "s"
      letter_or_num = 1
      endcase
   case "t"
      letter_or_num = 1
      endcase
   case "u"
      letter_or_num = 1
      endcase
   case "v"
      letter_or_num = 1
      endcase
   case "w"
      letter_or_num = 1
      endcase
   case "x"
      letter_or_num = 1
      endcase
   case "y"
      letter_or_num = 1
      endcase
   case "z"
      letter_or_num = 1
      endcase
   case default
      letter_or_num = 0
      endcase
   endselect
rem now if the character is a letter or number we add it to the new tool number string
   if letter_or_num
      new_tool_num_$ = new_tool_num_$ + char_$
      letter_or_num = 0
      endif
   tool_num_$ = Right$(tool_num_$, length)
   endwhile
tool_num_$ = new_tool_num_$
endfunction tool_num_$

+ Code Snippet

cls
input "What tool are you looking for?", tool_num_$
tool_num_$ = tool_num(tool_num_$)
print tool_num_$
wait key
end
function tool_num(tool_num_$)
remstart
This function will ask the user to input a tool number, which will then be parsed down to lowercase then have all
non-letter or number characters stripped.  The result will then be returned.
Example:
user inputs T-8990-2
the function then turns it into lowercase, t-8990-2
the function then strips off all non number or letter characters leaving the result: t89902
remend
tool_num_$ = lower$(tool_num_$)
new_tool_num_$ = ""
length = len(tool_num_$)
letter_or_num = 0
rem check each character in the tool string and if a letter or number add it to the tool number return value
while length >= 0
   char_$ = left$(tool_num_$, 1)
   length = length - 1
   select char_$
   case "0"
      letter_or_num = 1
      endcase
   case "1"
      letter_or_num = 1
      endcase
   case "2"
      letter_or_num = 1
      endcase
   case "3"
      letter_or_num = 1
      endcase
   case "4"
      letter_or_num = 1
      endcase
   case "5"
      letter_or_num = 1
      endcase
   case "6"
      letter_or_num = 1
      endcase
   case "7"
      letter_or_num = 1
      endcase
   case "8"
      letter_or_num = 1
      endcase
   case "9"
      letter_or_num = 1
      endcase
   case "a"
      letter_or_num = 1
      endcase
   case "b"
      letter_or_num = 1
      endcase
   case "c"
      letter_or_num = 1
      endcase
   case "d"
      letter_or_num = 1
      endcase
   case "e"
      letter_or_num = 1
      endcase
   case "f"
      letter_or_num = 1
      endcase
   case "g"
      letter_or_num = 1
      endcase
   case "h"
      letter_or_num = 1
      endcase
   case "i"
      letter_or_num = 1
      endcase
   case "j"
      letter_or_num = 1
      endcase
   case "k"
      letter_or_num = 1
      endcase
   case "l"
      letter_or_num = 1
      endcase
   case  "m"
      letter_or_num = 1
      endcase
   case "n"
      letter_or_num = 1
      endcase
   case "o"
      letter_or_num = 1
      endcase
   case "p"
      letter_or_num = 1
      endcase
   case "q"
      letter_or_num = 1
      endcase
   case "r"
      letter_or_num = 1
      endcase
   case "s"
      letter_or_num = 1
      endcase
   case "t"
      letter_or_num = 1
      endcase
   case "u"
      letter_or_num = 1
      endcase
   case "v"
      letter_or_num = 1
      endcase
   case "w"
      letter_or_num = 1
      endcase
   case "x"
      letter_or_num = 1
      endcase
   case "y"
      letter_or_num = 1
      endcase
   case "z"
      letter_or_num = 1
      endcase
   case default
      letter_or_num = 0
      endcase
   endselect
rem now if the character is a letter or number we add it to the new tool number string
   if letter_or_num
      new_tool_num_$ = new_tool_num_$ + char_$
      letter_or_num = 0
      endif
   tool_num_$ = Right$(tool_num_$, length)
   endwhile
tool_num_$ = new_tool_num_$
endfunction tool_num_$

Oh yeah, forgot to say that it is DBP.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / While loop problems