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