一個(gè)字符一個(gè)字符的判斷,空格就刪除,非空格就保留
成都創(chuàng)新互聯(lián)公司專注于棲霞網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供棲霞營銷型網(wǎng)站建設(shè),棲霞網(wǎng)站制作、棲霞網(wǎng)頁設(shè)計(jì)、棲霞網(wǎng)站官網(wǎng)定制、小程序設(shè)計(jì)服務(wù),打造棲霞網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供棲霞網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
一個(gè)字符一個(gè)字符的判斷,空格就刪除,非空格就保留
一個(gè)字符一個(gè)字符的判斷,空格就刪除,非空格就保留
一個(gè)字符一個(gè)字符的判斷,空格就刪除,非空格就保留
一個(gè)字符一個(gè)字符的判斷,空格就刪除,非空格就保留
一個(gè)字符一個(gè)字符的判斷,空格就刪除,非空格就保留
你是要把連續(xù)多個(gè)空格,變換成只需要一個(gè)空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一個(gè)空格,替換2個(gè)空格
loop
‘用replace
’TextBox1輸入
‘TextBox2輸出
Dim Num As String
Num = TextBox1.Text
Num = Num.Replace(" ", "")
TextBox2.Text = Num