如果只是末尾的空行,直接用Trim方法就可以了
十載的河東網(wǎng)站建設(shè)經(jīng)驗,針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù),響應(yīng)快,48小時及時工作處理。營銷型網(wǎng)站建設(shè)的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動調(diào)整河東建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計,從而大程度地提升瀏覽體驗。成都創(chuàng)新互聯(lián)公司從事“河東網(wǎng)站設(shè)計”,“河東網(wǎng)站推廣”以來,每個客戶項目都認真落實執(zhí)行。
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行,用了Trim方法后就把后面的空行都去除了
MsgBox(str)'這里可以看到
假定要處理的字符串放在變量s中:
s = Replace(Replace(s, vbCr, ""), vbLf, "")
你是要把連續(xù)多個空格,變換成只需要一個空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一個空格,替換2個空格
loop
Dim?newfile?As?New?List(Of?String)
For?Each?line?As?String?In?System.IO.File.ReadAllLines("TextFile1.txt")
If?Not?line.StartsWith("3")?Then?newfile.Add(line)
Next
System.IO.File.WriteAllLines("TextFile1.txt",?newfile)
建個集合,用System.IO.File的ReadAllLines讀出所有內(nèi)容,逐個判斷,如果是需要的加入集合,如果是要刪除的什么都不做,最后用WriteAllLines寫入即可。
這里說明一下,上面那個代碼是用來刪除所有以3開頭的文本行。
查找第一個vbcrlf 即回車換行符的位置 ,再把該位置及前面的字符全部刪除 即可
可以用 instr 好像在字符strings類里面
j=strings.instr(1,richtextbox1.text,vbcrlf)
richtextbox1.text=strings.right(richtextbox1.text,len(richtextbox1.text)-j)
這里不記得是strings 還是string 你自己試試
Private Sub Command1_Click()
Dim a$, b$
Open "c:\1.txt" For Input As #1 '假設(shè)你的文本文件叫1.txt,在C盤
Do While Not EOF(1)
Line Input #1, a
b = b a
Loop
Close #1
Print b '得到的數(shù)放在變量b里面,沒有換行的.只有數(shù)字. 不知道你是這個意思吧
End Sub
本文名稱:vb.net去除換行符 c語言去除換行符
網(wǎng)站鏈接:http://m.rwnh.cn/article42/doocihc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供域名注冊、服務(wù)器托管、響應(yīng)式網(wǎng)站、面包屑導航、軟件開發(fā)、動態(tài)網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)