關(guān)于vb.net實現(xiàn)宏替換的信息

大家好，請問vb.net如何將一個txt文本文件中指定位置的內(nèi)容替換掉？？

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

網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)公司！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、成都小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了蕪湖縣免費建站歡迎大家使用！

Dim txt As String = My.Computer.FileSystem.ReadAllText("c:\新建 文本文檔.txt", System.Text.Encoding.Default) '先讀取文本中所有內(nèi)容

My.Computer.FileSystem.WriteAllText("c:\新建 文本文檔.txt", "", False, System.Text.Encoding.Default) '清空原文本內(nèi)容

Dim AllLine() = Split(txt, vbCrLf) '按回車符號切割成數(shù)組

For i As Integer = 0 To UBound(AllLine) '循環(huán)數(shù)組

' AllLine(i) = Replace(AllLine(i), "000", "111") '如果所有行都是統(tǒng)一轉(zhuǎn)換則本條生效

If i = 5 Then '只轉(zhuǎn)換第六行 起始是0，所以5實際為第6行

AllLine(i) = Replace(AllLine(i), "000", "111")

End If

My.Computer.FileSystem.WriteAllText("c:\新建 文本文檔.txt", AllLine(i) vbCrLf, True, System.Text.Encoding.Default) '按行重新寫入

Next

End Sub

VB/VB.net 如果實現(xiàn)對Excel單元格中內(nèi)容的批量替換功能（懸賞可加）

用vba可以實現(xiàn)，不難。要看你具體做什么，下面是一個錄制的宏，替換aaa為axa，然后替換bbb為xbx。

Sub 宏2()

'

' 宏2 宏

'

'

Cells.Replace What:="aaa", Replacement:="axa", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cells.Replace What:="bbb", Replacement:="xbx", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

用VB.NET快速替換DLL文件中的字符串

將dll以文件方式以UTF-8的方式讀入，然后接下來就替換字符串就可以了嘛

C#:

using System.IO;

...

string text;

text=File.ReadAllText(FilePath, Encoding.UTF8);

text.Replace("...","...");

...

-------------------------

還要謝謝你，不然我還不知道是UTF-8的編碼格式，我有一個驗證的問題可以解決了。

新聞標(biāo)題：關(guān)于vb.net實現(xiàn)宏替換的信息
當(dāng)前鏈接：http://muchs.cn/article0/doedcoo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、Google、做網(wǎng)站、服務(wù)器托管、品牌網(wǎng)站建設(shè)、自適應(yīng)網(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)