重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
一个字符一个字符的判断,空格就删除,非空格就保留
成都创新互联公司专注于栖霞网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供栖霞营销型网站建设,栖霞网站制作、栖霞网页设计、栖霞网站官网定制、小程序设计服务,打造栖霞网络公司原创品牌,更为您提供栖霞网站排名全网营销落地服务。
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
一个字符一个字符的判断,空格就删除,非空格就保留
你是要把连续多个空格,变换成只需要一个空格,那么:
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