Question

VB 去除字符串中的空格

求去除字符串中空格的代码

Answer 1

'此函数KillSpace用以除去字符串中的空格，请将此函数粘贴到代码窗口空白处。（不在任何Sub过程里）Function KillSpace(Expression)
Dim tmpS
For i = 1 To Len(Expression)
tmpT = Mid(Expression, i, 1)
If tmpT <> " " Then tmpS = tmpS & tmpT
Next i
KillSpace = tmpS
End Function'在某个过程里调用此函数，例如：Private Sub Command1_Click()Text1.Text=KillSpace("7 591 6512 1458 050")End Sub'这样在Text1里就显示：759165121458050

Answer 2

'重新发一次:
'这样,可去除空格
Private Sub Command1_Click()
dim a as string,b as string
a="1234 5678"
for i=1 to len(a)
if mid(a,i,1)<>" " then
b=b & mid(a,i,1)
end if
next i
print "去除空格前: " & a
print "去除空格后: " & b
end sub

Answer 3

类似 dim a as string a=“ a b” 然后你可以调用a.trim()就是去掉空格。

Answer 4

要那么麻烦干嘛，占用篇幅，还费头脑去看和理念。
用最简单的就好了

Replace(字符串, " ", "")
例：
text1.text=Replace(text1.text, " ", "")

Answer 5

Replace(expression, find, replace[, start[, count[, compare]]])
举例：替换掉字符串中空格
Dim a As String
a = "+ ab c +"
MsgBox Replace(a, " ", "")