你是要把连续多个空格,变换成只需要一个空格,那么:
网站建设哪家好,找成都创新互联公司!专注于网页设计、网站建设、微信开发、重庆小程序开发公司、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了徽县免费建站欢迎大家使用!
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
可以使用replace函数去除字符串中的空格
例如:
Private Sub Command12_Click()
MsgBox Replace("中华 人 民共 和 国 ", " ", "")
End Sub
将弹出消息框显示:“中华人民共和国”