你是要把连续多个空格,变换成只需要一个空格,那么:
我们提供的服务有:成都网站设计、网站建设、微信公众号开发、网站优化、网站认证、邻水ssl等。为上千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的邻水网站制作公司
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
'此函数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
可以使用replace函数去除字符串中的空格
例如:
Private Sub Command12_Click()
MsgBox Replace("中华 人 民共 和 国 ", " ", "")
End Sub
将弹出消息框显示:“中华人民共和国”
‘用replace
’TextBox1输入
‘TextBox2输出
Dim Num As String
Num = TextBox1.Text
Num = Num.Replace(" ", "")
TextBox2.Text = Num
Ltrim(X),Rtrim(X),Trim(X) :去掉空字符。
Ltrim(x) 去掉X左边的所有字符。
trim(x) 去掉X左右边的所有字符
Rtrim(x) 去掉X右边的所有字符。
字符与字符间的空格不会被去掉。
X=Ltrim(“ This is good “)
结果:X=“This is good “
X=Trim(“ This si good “)
结果:X=”This is good”
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留