如何将text文本中的空格删掉

Question

如题，怎样用意个函数删除文本中的所有空格（文本已经存在，不是现输入的文本）

Answer 1

Text1 = Replace(Text1.Text," ",vbnullstring)

Answer 2

先讀出到字符串,再用Replace(字符串," ","")删除文本中的所有空格,再寫回到文本.

Answer 3

Private Sub Command2_Click()
Text1.Text = Replace(Text1.Text, " ", "")
End Sub

Answer 4

Public Function clsNull(a As String)
Dim c() As String
c = Split(a, " ")
Dim temp As String
Dim i As Integer
For i = 0 To UBound(c)
    temp = Trim(c(i))
Next
clsNull = Trim(a)
End Function

Answer 5

谢谢各位这个问题解决了，但是我想把TEXT文本中的换行全部去掉怎么做？

Answer 6

回车就是vbcr
回车换换行就是vbcrlfReplace(str,vbcr,"")