请帮我写一个函数实现字符过滤，过滤所有字符中间的空格，包括中间和前后的．谢谢哪位好心人啦．

LTrim，RTrim，及 Trim 函数示例
本示例使用 LTrim 及 RTrim 函数将某字符串的开头及结尾的空格全部去除。事实上只使用 Trim 函数也可以做到将两头空格全部去除。

Dim MyString, TrimString
MyString = " <-Trim-> " ' 设置字符串初值。
TrimString = LTrim(MyString) ' TrimString = "<-Trim-> "。
TrimString = RTrim(MyString) ' TrimString = " <-Trim->"。
TrimString = LTrim(RTrim(MyString)) ' TrimString = "<-Trim->"。
' 只使用 Trim 函数也同样将两头空格去除。
TrimString = Trim(MyString) ' TrimString = "<-Trim->"。

谢谢，这样可以去除字符串中间的空格吗

dim str as string
dim str2 as string
str="a v c d dc cdsfsd sdfsd fsdf ,ds"
str2=replace(str," ","") '去除str 的所有空格

4楼的，你的方法不太灵啊！

试试这个，虽然麻烦，但绝对可靠：
Private Function GetString(Expression As String) As String
Dim strValue As String
Dim AscCode As Integer
Dim Msg As String
Dim i As Integer
Dim L As Integer
Dim strValue1 As String

Msg = Text1
L = Len(Expression)
For i = 1 To L
strValue = Mid$(Msg, i, 1)
AscCode = Asc(strValue)
If AscCode <> 32 Then
strValue1 = strValue1 & strValue

End If

Next

GetString = strValue1

End Function

replace(str," ","")这个不灵？不是吧？


Private Function GetString(Expression As String) As String
Dim strValue As String
Dim AscCode As Integer
Dim Msg As String
Dim i As Integer
Dim L As Integer
Dim strValue1 As String

Msg = Text1
L = Len(Expression)
For i = 1 To L
strValue = Mid$(Msg, i, 1)
AscCode = Asc(strValue)
If AscCode <> 32 Then
strValue1 = strValue1 & strValue

End If

Next

GetString = strValue1

End Function

你这个也叫function？参数形同虚设....Expression你不如直接写长度算了。

如果考虑用类来处理，将其处理为方法，肯定要作成函数，难道不是吗？当在form中引用一个叫C的类，C中就有一个叫"GetString"的方法，那在form中只需：
Text2=C.GetString(Text1)
试问：如果不定义“Expression As String”，怎么把要处理的字符串传值给函数处理？。当函数将要处理的字符串处理完毕后，是不是应该将结果返回？
别忘了，将程序一定要做成“面向对象”来处理！实际上，看是简单的，其越不简单！

楼上的，你实际上是把replace这个函数重新写了一遍了。
其实直接用replace这个就可以了！
不用那么复杂的！

你仔细看过你的代码没？

text1？那个是你传递的参数？你传递过去的text1之被获取len用了，msg直接定义=text1，所以我说没function的意义。不管换什么都是对text1进行处理，只是处理的长度再变。。还有居然说replace不行汗死~