你是要把連續(xù)多個(gè)空格,變換成只需要一個(gè)空格,那么:
創(chuàng)新互聯(lián)建站是一家集網(wǎng)站建設(shè),常寧企業(yè)網(wǎng)站建設(shè),常寧品牌網(wǎng)站建設(shè),網(wǎng)站定制,常寧網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,常寧網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿,時(shí)刻以成就客戶成長自我,堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一個(gè)空格,替換2個(gè)空格
loop
最好的辦法:
Dim aa As String = "123456789"
MsgBox(aa.Substring(7))
Dim?regex=New?System.Text.RegularExpressions.Regex("\(([^\)]*)\)")
Dim?s=?regex.Replace("(111)k(222)","$1")
比如數(shù)組a。里面有5個(gè)值,其中有3個(gè)是重復(fù)的?
如果這樣的話,很好辦哦。
新建一個(gè)數(shù)組b,然后遍歷要去除的數(shù)組a,
從a中把每一個(gè)都取出來,和新建的b里面的去比,如果有相同的,則不放入b,
否則就放入數(shù)組b,直到循環(huán)結(jié)束。