Question

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

例如我在界面上放置一个button1按钮，该按钮能实现：替换指定路径的txt文本文件中指定位置的内容。例如：如何将路径为C:\新建 文本文档.txt文本中的第6行第6列的000替换为111。

Answer 1

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

Answer 2

找到那000直接删除，然后自己再输入111替换就可以了

追问

关键不是要人工处理，要软件替换的。

追答

那我不知道，又没那么麻烦，何必呢？