Question

vb如何删除一个字符串的所有空格和换行符

先谢谢了

Answer 1

Private Sub Command1_Click()
Dim A As String, B As String
Dim i As Long, j As Long, k As Long

A = "abcdef 77 8e9"
B = ""
k = Len(A)
For i = 1 To k
j = Asc(Mid(A, i))
If j <> 10 And j <> 13 And j <> 32 And j <> Asc(" ") Then '最后一个条件是全角空格
B = B & Chr(j)
End If
Next
Print A
Print B
End Sub
'呵呵，小弟学艺不精，Replace函数以前还真不知道，VB6下当然是用Replace了。

Answer 2

楼上两个均为正解，
只是，二楼的，对VB5无效
而一楼的，不受限制！

Answer 3

strtext = Replace(strtext, Chr(32), "")
strtext = Replace(strtext, Chr(13), "")
strtext = Replace(strtext, Chr(10), "")

试验了好多次了，应该没问题

Answer 4

那个全角的空格是不是也应该一起过滤了