扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
‘用replace
创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都做网站、网站建设、外贸营销网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的周至网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
’TextBox1输入
‘TextBox2输出
Dim Num As String
Num = TextBox1.Text
Num = Num.Replace(" ", "")
TextBox2.Text = Num
你是要把连续多个空格，变换成只需要一个空格，那么：
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
一个字符一个字符的判断，空格就删除，非空格就保留
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网