Question

VB.NET修改txt文件指定行？

比如，要修改TXT文件的第3行，把3333改成4444，是VB.NET哦。

Answer 1

.or Example:
1.txt文件内容如下:
The 1st line.
#The 2nd line.
The 3rd line.
The 4th line.
.
修改第二行内容,将#除去.修改后的文本如下:
The 1st line.
The 2nd line.
The 3rd line.
The 4th line.
1 输入方式打开原文件 1.txt；

2 输出方式打开新文件 2.txt；

3 逐行 Line Input 从 1.txt 中读数据，Print 写入 2.txt，直至要修改的行；

4 丢弃从 1.txt中读出的要修改的行，将新内容行写入 2.txt；

5 仿照第 3 步，将其余的行从 1.txt 复制到 2.txt。

6 关闭两个文件

7 删除1.txt，将 2.txt 的文件名改为原来 1.txt 的。

Answer 2

没法修改，全部读入，按回车换行分解，然后把第三行替换，然后再以回车换行连接，再写回文件。

追问

这是VB6.0的
Dim s() As String
Open "c:\123.txt" For Binary As #1
s = Split(Input(LOF(1), #1), vbCrLf)
s(4) = "修改后的数据"
Put #1, , Join(s, vbCrLf)
Close #1
VB.NET怎么写?

追答

Dim istr As String = My.Computer.FileSystem.ReadAllText("d:\1.txt")
Dim a() As String = istr.Split(vbCrLf)
a(2) = 444
My.Computer.FileSystem.WriteAllText("d:\1.txt", Join(a, vbCrLf), False)

追问

1. 怎么把第3行，读到label1.text中？

2. 只是读取或修改单个或多个字符呢？

追答

1、label1.text=a(2)
2、字符串处理办法

追问

最后一个问题 你就把字符串处理办法写下代码吧，比如读或修改第3行的第2个字符，读或修改第3行的第2和第3字符。

追答

vb6的字符串函数在这里都可以用，对vb.net不熟你就用vb6的字符串处理办法吧。