Remove Spaces (or other characters) from a String

[euklides]

In a simple way:

Code: (Select All)

Check$ = "This is a string that we're going to check to see how long it would take to remove the spaces from."
Check1$ = "": For x = 1 To Len(Check$): If Mid$(Check$, x, 1) <> " " Then Check1$ = Check1$ + Mid$(Check$, x, 1):
Next x: Check$ = Check1$: Print Check$: Sleep