Deleting spaces in a string

[arundahar]

How do i delete all spaces in a string and replace them with the   character?
I know you can use Replace() but what if the string has more than one space in it??

E.g
"Today is Thursday , the 9th"

to

"Today is  Thursday etc...

Thanks

Arun

 

[link9]

replace() will work no matter how many spaces are in the string -- it will replace every occurence with the string you specify.


Paul Prewett

 

[JohnYingling]

If you want to replace MULTIPLE spaces with a single space then

Dim str1
Dim str2
str1 = strData
Do 
    str2 = Replace(str1,"  "," ") ' Double to single
    if str2 = str1 then exit do
    str1 = str2
Loop

http://WWW.VBCompare.Com