如果只是末尾的空行,直接用Trim方法就可以了

為平遙等地區(qū)用戶提供了全套網(wǎng)頁設計制作服務,及平遙網(wǎng)站建設行業(yè)解決方案。主營業(yè)務為做網(wǎng)站、網(wǎng)站設計、平遙網(wǎng)站設計,以傳統(tǒng)方式定制建設網(wǎng)站,并提供域名空間備案等一條龍服務,秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求,就會得到認可,從而選擇與我們長期合作。這樣,我們也可以走得更遠!
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行,用了Trim方法后就把后面的空行都去除了
MsgBox(str)'這里可以看到
Private Sub Command1_Click()
arr = Split(Text1, vbCrLf)
For i = 0 To UBound(arr)
If Trim(Replace(arr(i), " ", "")) "" Then ss = ss vbCrLf arr(i)
Next
Text1 = Mid(ss, 3)
End Sub
有些空格咋占好幾個字節(jié):那是全角空格,占倆字節(jié),如同漢字,把它Replace掉即可。
思路與方法:
1,一行為讀取單位,讀取并保存到數(shù)組。
2,逆序循環(huán),可以獲得末尾空白行數(shù)。
3,以行為寫單位,寫入到文件。
網(wǎng)頁題目:vb.net刪除空白行,vbnet去除字符串空格
網(wǎng)頁地址:http://chinadenli.net/article49/dsiheeh.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供企業(yè)建站、虛擬主機、做網(wǎng)站、定制開發(fā)、標簽優(yōu)化、微信公眾號
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)