如何将空格去掉？

[mywangqian007]

请问高手：我有一行数据，各字段都是用一个空格隔开的，请问如何把空格全部去掉？
如将：“aaa bbb ccc ddd“ 转换成“aaabbbcccddd“

[Reminisce]

?????trim()可以吗？？？一个个字符遍历出来，然后对每一个字符进行trim()？呵呵

[Gulang68]

replace("aaa bbb ccc ddd"," ","")

[wangchong]

Replace("aaa bbb ccc ddd, " ", "")

[abc10]

Function DelspaceStr(str As String) As String '去掉空格
Dim I As Integer
For I = 1 To Len(str)
If Mid(str, I, 1) <> " " Then DelspaceStr = DelspaceStr + Mid(str, I, 1)
Next
End Function
调用:
dim aaa as string
aaa="aaa bbb ccc ddd"
aaa=DelspaceStr(aaa)

[射天狼]

Dim s As String

s = "aaa bbb ccc ddd"
s = Replace(s, " ", "")

[demo001]

dim strA as string

strA="aaa bbb ccc ddd"

do while instr(strA," ")>0
strA=replace(strA," ","")
loop

[zjcxc]

用replace就行了.

msgbox replace("aaa bbb ccc ddd"," ","")

[zjcxc]

'即使有多个空格相临也可以只用一句
msgbox replace("aaa bbb ccc ddd"," ","")

[Jackile]

用Replace即可！Replace("aaa bbb ccc ddd","想要被替换掉的字符","想要替换成的字符")

[demo001]

不好意思，我那个循环多余了。

前几天有个类似的问题拿过来的，那里要用循环，这里空格全部去掉不需要加循环

[yedapeng]

用trim函数也可以啊

[yjch]

Public Function trim_all(strallstring)
Dim b(65535), d(65535), str As String
Dim i As Long
Dim step As Long
step = Len(strallstring)
For i = 1 To step
b(i) = Mid(strallstring, i, 1)
Next
For i = 1 To step
If b(i) <> " " Then
d(i) = b(i)
str = str & d(i)
End If
Next
trim_all = str
End Function
我写了一个类似于"Trim,Rtrm,Ltrim"的函数。他的调用如下例：
Private Sub Command1_Click()
a = " ffvvv fff ffv"
Print trim_all(a)
End Sub