Remove Spaces From String Sub

[Arctic]

This isn't a request for code... actually I'm going to give it to you! The sub gets the new spaceless string as well as the number of spaces that were in the original string. Perhaps someone will have a use for it...

Code:

' Just a small sub to remove spaces for an input string
' 07-28-2003, AGs
' Use as you like :D

DECLARE SUB SpcRemover ()

SCREEN 13

CALL SpcRemover



SUB SpcRemover

  INPUT "Enter string : ", UserString$
  'db Print UserString$

  StringLen = LEN(UserString$)
  'db PRINT StringLen

  FOR x = 1 TO StringLen
    IF MID$(UserString$, x, 1) = " " THEN
      SpaceCount = SpaceCount + 1
    ELSE
      CleanString$ = CleanString$ + MID$(UserString$, x, 1)
    END IF
  NEXT x
  'db PRINT SpaceCount
  'db PRINT CleanString$

END SUB

I realize I could've just written it as part of the main module for the program but I wanted to be able to move it a bit more easily. As for the 'db those are just my debug checkpoints so instead of manually debugging it, I get to watch the values on screen while it does the work. I also have a function that I wrote in C++ for this as well if anybody is interested in getting it PM me.

Oh! Check out www.arcticgeckostudios.com we're still looking for more members

[toonski84]

Code:

FUNCTION spaceless$ (text$)
  DO
    IF x > 0 THEN result$ = result$ + MID$(text$, y, x - y)
    y = x + 1: x = INSTR(y, text$, " ")
  LOOP UNTIL x = 0
  spaceless$ = result$
END FUNCTION

print spaceless$ ("Oh, I wish I was in Dixie, hurray! hurray!")

if you can copy it in chunks, copy it in chunks. But yous got the general idea. Nice work.

[Arctic]

Nice, I had refrained from doing a function because in Basic I don't quite understand them... or I guess I just haven't taken a hard enough look. C++ is fine, but Basic functions really mess with me... lol Thanks for posting!

[toonski84]

QB functions are easy enough. instead of using a return() statement, you just fill a variable named after the function:

function add% (x, y)
. . add% = x + y
end function

and the type of value returned is the type of variable the function name is:

function add% returns an integer
function add$ returns a string
function add! returns a single precision value.
function add# returns a double precision value.

...and you get the idea.

More information

[Arctic]

Cool! Thanks... it makes a bit more sense now... it's just the syntax that was throwing me off, because I was expecting to return at the end instead.

[relsoft]

Toonski: Nice function name!! "Spaceless!!!"

[Agamemnus]

*STABS* C++ and runs!

[whitetiger0990]

Code:

FUNCTION remspace$ (spc$)
FOR i = 1 TO LEN(spc$)
IF MID$(spc$, i, 1) <> " " THEN nspc$ = nspc$ + MID$(spc$, i, 1)
NEXT i
remspace$ = nspc$
END FUNCTION

PRINT remspace$("Go for food")

This is shorter