建站
咨詢
售后
建站咨詢
新聞中心
vb點虐 中，如何刪除指定文本文檔中的指定行的內(nèi)容
Dim?newfile?As?New?List(Of?String)
創(chuàng)新互聯(lián)公司長期為上千多家客戶提供的網(wǎng)站建設(shè)服務(wù)，團隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為牡丹企業(yè)提供專業(yè)的網(wǎng)站設(shè)計、成都做網(wǎng)站，牡丹網(wǎng)站改版等技術(shù)服務(wù)。擁有十年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
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開頭的文本行。
VB6.0文本框最后一行的換行符怎么清除
不是有兩個換行符，而是因為“回車換行符”是由兩個特殊字符構(gòu)成的，一個是回車符（Chr(13)，常數(shù)為vbCr），一個是換行符（Chr(10)，常數(shù)為vbLf），如果你只按回車符來分割成數(shù)組，那么最后就會多出一個換行符，這個字符會被VB自動解析為回車換行符。
應(yīng)該把?AA = Split(Text3, Chr(13)) 改為?AA = Split(Text3, vbCrLf) ，這樣就沒問題了。
下面是另一種實現(xiàn)方法：
Private?Sub?Command1_Click()
Dim?AA()?As?String
AA?=?Split(Text3,?vbCrLf)
For?i?=?0?To?UBound(AA)
AA(i)?=?Text1??AA(i)??Text2
Next
Text3?=?Join(AA,?vbCrLf)
End?Sub
vb點虐 如何刪除TXT末尾空白行
思路與方法：
1，一行為讀取單位，讀取并保存到數(shù)組。
2，逆序循環(huán)，可以獲得末尾空白行數(shù)。
3，以行為寫單位，寫入到文件。
求大神指點 vb點虐 怎么刪除 文本的尾部空行?
如果只是末尾的空行，直接用Trim方法就可以了
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行，用了Trim方法后就把后面的空行都去除了
MsgBox(str)'這里可以看到
本文名稱：vb點虐 刪除行末換行 vb回車換行符
URL標題：http://fisionsoft.com.cn/article/ddeeegp.html
