一个字符一个字符的判断,空格就删除,非空格就保留

成都创新互联公司专注于栖霞网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供栖霞营销型网站建设,栖霞网站制作、栖霞网页设计、栖霞网站官网定制、小程序设计服务,打造栖霞网络公司原创品牌,更为您提供栖霞网站排名全网营销落地服务。
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
你是要把连续多个空格,变换成只需要一个空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
‘用replace
’TextBox1输入
‘TextBox2输出
Dim Num As String
Num = TextBox1.Text
Num = Num.Replace(" ", "")
TextBox2.Text = Num

售后响应及时
7×24小时客服热线
数据备份
更安全、更高效、更稳定
价格公道精准
项目经理精准报价不弄虚作假
合作无风险
重合同讲信誉,无效全额退款