你逗橡是要把連續(xù)多個(gè)空格,變換成只需要一個(gè)空格,那么:
成都網(wǎng)站建設(shè)哪家好,找成都創(chuàng)新互聯(lián)!專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)公司、微信開發(fā)、小程序開發(fā)、集團(tuán)成都企業(yè)網(wǎng)站定制等服務(wù)項(xiàng)目。核心團(tuán)隊(duì)均擁有互聯(lián)網(wǎng)行業(yè)多年經(jīng)驗(yàn),服務(wù)眾多知名企業(yè)客戶;涵蓋的客戶類型包括:水電改造等眾多領(lǐng)域,積累了大量豐富的經(jīng)驗(yàn),同時(shí)也獲得了客戶的一致稱譽(yù)!
do while Instr(tStr," ")薯和0
數(shù)指盯tStr = Replace(tStr, " ", " ") '用一個(gè)空格,替換2個(gè)空格
loop
首先你的textbox有一個(gè)屬性得設(shè)置成多行族襲衫、支持回車符才行
其次,換行符我記得直接用\n就行
n個(gè)空禪山格你就寫兆腔個(gè)循環(huán)用,每次循環(huán)就加上" "就行。
textbox.text = "12345" " " "67890"
或舉圓者歲清
textbox.text = "12345" space(1) "67890"乎答前
Dim?str?As?String?=?"中華人民共和國adfjpwqetqadfwetqgasdfewgt"
Dim?tstr?As?String?=?""
Dim?i?As?Integer
鍵野橋???For?i?=?0?To?str.Length?-?1
tstr?=?str.Substring(i,?1)?脊碼?"?"?'每一個(gè)字符后面加空格。
Next
稿猛tstr?=?tstr.TrimEnd("?")?'移除最后一個(gè)空格
Textbox1.Text?=?tstr