13518219792
你是要把連續(xù)多個(gè)空格，變換成只需要一個(gè)空格，那么：
創(chuàng)新互聯(lián)建站憑借專業(yè)的設(shè)計(jì)團(tuán)隊(duì)扎實(shí)的技術(shù)支持、優(yōu)質(zhì)高效的服務(wù)意識(shí)和豐厚的資源優(yōu)勢(shì)，提供專業(yè)的網(wǎng)站策劃、做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、網(wǎng)站優(yōu)化、軟件開(kāi)發(fā)、網(wǎng)站改版等服務(wù)，在成都10余年的網(wǎng)站建設(shè)設(shè)計(jì)經(jīng)驗(yàn)，為成都成百上千家中小型企業(yè)策劃設(shè)計(jì)了網(wǎng)站。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一個(gè)空格，替換2個(gè)空格
loop
在VB NET中 當(dāng)你需要在控制臺(tái)顯示數(shù)據(jù)或準(zhǔn)備好打印數(shù)據(jù)時(shí) 可能需要調(diào)整列寬以顯示固定長(zhǎng)度的數(shù)據(jù) 本文介紹了使用String對(duì)象的PadLeft方法和PadRight方法擴(kuò)充字符串以進(jìn)行固定寬度顯示
PadLeft和PadRight方法
PadLeft和PadRight是字符串類的兩個(gè)方法 可以分別使用它們?cè)谧址淖筮吅陀疫吿畛淇崭?這兩個(gè)方法多接受一個(gè)代表總長(zhǎng)度的整型數(shù) 添加的空格數(shù)等于填充總長(zhǎng)度減去字符串的當(dāng)前長(zhǎng)度
注意 在完成將字符串格式化為固定寬度顯示的工作時(shí) 應(yīng)該使用固定寬度的字體 例如Courier等 因?yàn)楣潭▽挾鹊淖址加邢嗤膶挾?否則 填充將會(huì)無(wú)效
程序員經(jīng)常使用的另一個(gè)替代方法是使用tab字符來(lái)獲得近似固定寬度顯示格式 使用tabs的一個(gè)問(wèn)題是 當(dāng)某行長(zhǎng)度比能夠顯示的長(zhǎng)度長(zhǎng)時(shí) 將會(huì)對(duì)tab進(jìn)行擴(kuò)展 這將導(dǎo)致各行不能很好對(duì)齊
列表A中 我們?yōu)榇蠹医榻B了如何使用PadLeft和PadRight方法顯示字符串 （為了運(yùn)行該例子 我們添加了一個(gè)下拉列表ListBox 并將它的字體設(shè)置為固定寬度的字體）圖 顯示了運(yùn)行列表A中的代碼后的結(jié)果
在本例中 我們定義了一個(gè)整型變量i和兩個(gè)字符串?dāng)?shù)組 strArrSeasons和strArrWeather 每個(gè)數(shù)組賦初值為預(yù)定義好的值 然后 我們將每個(gè)數(shù)組傳遞給函數(shù)PadArray 并指定在字符串的左側(cè)擴(kuò)充
列表A
lishixinzhi/Article/program/net/201311/11703
一個(gè)字符一個(gè)字符的判斷，空格就刪除，非空格就保留
一個(gè)字符一個(gè)字符的判斷，空格就刪除，非空格就保留
一個(gè)字符一個(gè)字符的判斷，空格就刪除，非空格就保留
一個(gè)字符一個(gè)字符的判斷，空格就刪除，非空格就保留
一個(gè)字符一個(gè)字符的判斷，空格就刪除，非空格就保留
一個(gè)字符一個(gè)字符的判斷，空格就刪除，非空格就保留
Dim?str?As?String?=?"中華人民共和國(guó)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
