.or Example:
創(chuàng)新互聯(lián)建站云計算的互聯(lián)網(wǎng)服務(wù)提供商,擁有超過13年的服務(wù)器租用、遂寧聯(lián)通機房、云服務(wù)器、虛擬主機、網(wǎng)站系統(tǒng)開發(fā)經(jīng)驗,已先后獲得國家工業(yè)和信息化部頒發(fā)的互聯(lián)網(wǎng)數(shù)據(jù)中心業(yè)務(wù)許可證。專業(yè)提供云主機、虛擬主機、域名注冊、VPS主機、云服務(wù)器、香港云服務(wù)器、免備案服務(wù)器等。
1.txt文件內(nèi)容如下:
The 1st line.
#The 2nd line.
The 3rd line.
The 4th line.
.
修改第二行內(nèi)容,將#除去.修改后的文本如下:
The 1st line.
The 2nd line.
The 3rd line.
The 4th line.
1 輸入方式打開原文件 1.txt;
2 輸出方式打開新文件 2.txt;
3 逐行 Line Input 從 1.txt 中讀數(shù)據(jù),Print 寫入 2.txt,直至要修改的行;
4 丟棄從 1.txt中讀出的要修改的行,將新內(nèi)容行寫入 2.txt;
5 仿照第 3 步,將其余的行從 1.txt 復(fù)制到 2.txt。
6 關(guān)閉兩個文件
7 刪除1.txt,將 2.txt 的文件名改為原來 1.txt 的。
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開頭的文本行。
用替換函數(shù)直接把03-24^32替換為03-24^xx(想替換的值)。
比如,你的文本放在TextBox1文本框的話,用下面的指令替換就可以了。
Dim txt As String = TextBox1.Text
TextBox1.Text = Replace(txt, "03-24^32", "03-24^xx")
執(zhí)行上面替換指令后,TextBox1的文本替換為:
【例如:03-23^23
03-24^xx
我要指定修改第二行的32.該怎么辦?】