vb.net中，如何刪除指定文本文檔中的指定行的內(nèi)容

Dim?newfile?As?New?List(Of?String)

創(chuàng)新互聯(lián)建站主要從事網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站設(shè)計(jì)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)坊子,10年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):13518219792

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)

建個(gè)集合，用System.IO.File的ReadAllLines讀出所有內(nèi)容，逐個(gè)判斷，如果是需要的加入集合，如果是要?jiǎng)h除的什么都不做，最后用WriteAllLines寫入即可。

這里說明一下，上面那個(gè)代碼是用來刪除所有以3開頭的文本行。

VB.NET怎么刪除INI文件里的一個(gè)字段或鍵值？

1，對(duì)于INI文件，可以當(dāng)做像TXT文件一樣來進(jìn)行讀取和寫入。

2，先把整個(gè)文件度出來，然后找到相應(yīng)行刪除（拋棄）以后，再重新寫入文件。

Public?Class?Form1

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?MyStr?As?String?=?""

Dim?AllStr?As?String?=?""

'獲取一個(gè)可用的文件號(hào)

Dim?MyFileNum?As?Integer?=?FreeFile()

'打開指定的文件，進(jìn)行讀取操作

FileOpen(MyFileNum,?"C:\My.ini",?OpenMode.Input)

Do?While?Not?EOF(MyFileNum)

'讀取一行

MyStr?=?LineInput(MyFileNum)

If?MyStr??"b=2"?Then

If?AllStr?=?""?Then

AllStr?=?AllStr??MyStr

Else

AllStr?=?AllStr??vbCrLf??MyStr

End?If

End?If

Loop

FileClose(MyFileNum)???'關(guān)閉文件

'寫文件

Dim?MyStream?As?New?System.IO.FileStream("C:\My.ini",?IO.FileMode.Create)

Dim?MyWriter?As?New?System.IO.StreamWriter(MyStream,?System.Text.Encoding.UTF8)

MyWriter.WriteLine(AllStr)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End?Sub

End?Class

vb.net刪除文件

Private?Sub?btnRemovePath_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?btnRemovePath.Click

Try

'?先建立目錄以便用于后續(xù)的刪除示范。

If?Not?Directory.Exists("D:\網(wǎng)易")?Then

Directory.CreateDirectory("?D:\網(wǎng)易?\Test1")

Directory.CreateDirectory("?D:\網(wǎng)易?\Test2")

Directory.CreateDirectory("?D:\網(wǎng)易?\Test3")

End?If

'?刪除子目錄?Test1。

Directory.Delete("?D:\網(wǎng)易?\Test1",?True)

'?刪除子目錄?Test2。

Dim?myDirectoryInfo?As?New?DirectoryInfo("?D:\網(wǎng)易?\Test2")

myDirectoryInfo.Delete(True)

'?將目錄?C:\AlexDirDemo?及其以下的文件和子目錄全數(shù)刪除。

Directory.Delete("?D:\網(wǎng)易?",?True)

Catch?ex?As?Exception

MessageBox.Show(ex.Message)

Exit?Sub

End?Try

'?啟動(dòng)?Windows?資源管理器。

Process.Start("explorer.exe",?"D:\")

End?Sub