关于vb.net实现宏替换的信息

大家好,请问vb.net如何将一个txt文本文件中指定位置的内容替换掉??

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

VB/VB.net 如果实现对Excel单元格中内容的批量替换功能(悬赏可加)

用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

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

将dll以文件方式以UTF-8的方式读入,然后接下来就替换字符串就可以了嘛

C#:

using System.IO;

...

string text;

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

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

...

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

还要谢谢你,不然我还不知道是UTF-8的编码格式,我有一个验证的问题可以解决了。


本文标题:关于vb.net实现宏替换的信息
文章转载:http://pwwzsj.com/article/doedcoo.html