How to remove the spaces from a string

[Anand]

Hi,

I have a string with spaces example

Full name="Anand Kumar Dave"
i want to remove the spaces and store in another variable as
"AnandKumarDave" how can we do this ??

There is list of names and i have to remove spaces from all the names.
some names are having only one space in between and some have two spaces.

[Sathiya]

hi
try with this syntax
sVal = Replace("Sathiya Arunachalam"," ","") ' A binary comparison starting at the beginning of the string. Returns "SathiyaArunachalam"

[suresh vasu]

Hi Anand,

I have written some code for you, which is working fine. It will work for any string irrespective of spaces it contains.

Code:

str = "Suresh Vasu Kondapally"
newStr = ""
For i=1 to len(str)
    char = Mid(str,i,1)
    if(char<>" ") then
    newStr = newStr+Mid(str,i,1)
    End if
Next
MsgBox newStr

Do let me know if you get problem in using the code.

Suresh.

[Anand]

Thanks Suresh the replace function works fine. It removes all the spaces.

[nandish]

Code:

str = "Suresh Vasu Kondapally"
x=split(str," ",-1,1)
y=ubound(x)
For i=0 to y
msgbox x(i)
    str1=str1+x(i)
Next
msgbox str1

[basanth27]

Why would we need to re-invent the wheel when Vbscript has provided a ready-made solution for your needs ? ;-)

[venkatesh9032]

Hi anand,,
You can use Trim function..

Dim str
Str=" Quick test professional"

Msgbox Str------->First run this and comment

Temp=Trim(Str)
Msgbox Temp------>Second run this


You will get it

---

[sreekanthP]

Dim str
str=" Quick test professional"
x=Split(str," ")

For i=1 To UBound(x) Step 1
    y = y&x(i)
Next

MsgBox y