Question

VB如何修改TXT文件指定行的指定内容

举个例子,C盘中的WWE.txt内容如下:
"CHAMPION=EDGE
"CHAMPION=EDGE

我想把第2行的EDGE改为UNDERTAKER
如何写代码?
注:不要用整行替换的方法,请按以下思路:
1.定位到第2行
2.搜索该行的EDGE
3.将其替换为UNDERTAKER

Answer 1

如果你修改的内容长度和原长度不一样，那么你的要求是不可能实现的
要知道文件在磁盘上是连续存放的，替换EDGE为UNDERTAKER时，UNDERTAKER多余出来的字节会覆盖原文件后面同等长度的字节，除非你预留了足够的空字节
所以，替换长度不一样，通常实际上只能是重写文件....

Answer 2

i can do it for you

Private Sub Command1_Click()
Dim str(10000) As String
f$ = "c:\WWE.txt"
Open f For Input As #1
For i = 0 To 10000
If Not EOF(1) Then Input #1, str(i): MsgBox str(i) Else MsgBox i: Exit For
Next
Close
Dim a() As String
a = Split(str(1), "=")
a(1) = "UNDERTAKER"
str(1) = a(0) + "=" + a(1)
MsgBox str(1)
Open f For Output As #1
For j = 0 To i - 1: Print #1, """" + str(j): Next
Close #1
End Sub
Private Sub Form_Load()
Command1.Caption = "Modify Row 2"
End Sub

Answer 3

用like 找到第2个 place替换