Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
網站建設哪家好,找成都創新互聯公司!專注于網頁設計、網站建設、微信開發、成都小程序開發、集團企業網站建設等服務項目。為回饋新老客戶創新互聯還提供了蕪湖縣免費建站歡迎大家使用!
Dim txt As String = My.Computer.FileSystem.ReadAllText("c:\新建 文本文檔.txt", System.Text.Encoding.Default) '先讀取文本中所有內容
My.Computer.FileSystem.WriteAllText("c:\新建 文本文檔.txt", "", False, System.Text.Encoding.Default) '清空原文本內容
Dim AllLine() = Split(txt, vbCrLf) '按回車符號切割成數組
For i As Integer = 0 To UBound(AllLine) '循環數組
' AllLine(i) = Replace(AllLine(i), "000", "111") '如果所有行都是統一轉換則本條生效
If i = 5 Then '只轉換第六行 起始是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
用vba可以實現,不難。要看你具體做什么,下面是一個錄制的宏,替換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
將dll以文件方式以UTF-8的方式讀入,然后接下來就替換字符串就可以了嘛
C#:
using System.IO;
...
string text;
text=File.ReadAllText(FilePath, Encoding.UTF8);
text.Replace("...","...");
...
-------------------------
還要謝謝你,不然我還不知道是UTF-8的編碼格式,我有一個驗證的問題可以解決了。
新聞標題:關于vb.net實現宏替換的信息
當前鏈接:http://www.2m8n56k.cn/article0/doedcoo.html
成都網站建設公司_創新互聯,為您提供標簽優化、Google、做網站、服務器托管、品牌網站建設、自適應網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:[email protected]。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯