Question

vb中如何直接更改文本文件中指定一行的内容？求高人帮忙修改一下代码，谢谢

txt文档内容如下:finish/clear/filname,menjiashiyan/title,menjiashiyan
y=-500f=-50000/prep7et,1,shell63r,1,6mp,ex,1,2.1e5......要修改第六行的内容为 f=4888 如何修改?
——————————————————————————————
一种情况：如果第六行的内容是知道的，我已经可以用下面的方法来实现了：
假设你的文件名为“C:\a1.txt”dim txt as stringOpen "C:\a1.txt" for input as #1Open "C:\a2.txt" for output as #2do whilenot eof(1)line input #1, txtif txt="f=-50000" then txt="f=4888"print #2,txtloopclose
——————————————————————————另一种情况是：如果第六行的内容不固定，也就是说，不管原来是什么内容，都将其更改为 f=4888
上述代码中的这一句应如何修改？谢谢
if txt="f=-50000" then txt="f=4888"

Answer 1

定义一个变量记录读到了第几行。

Dim txt As String, i As Long
Open "C:\a1.txt" For Input As #1
Open "C:\a2.txt" For Output As #2
Do While Not EOF(1)
  Line Input #1, txt
  i = i + 1
  If i = 6 Then txt = "f=4888"
  Print #2, txt
Loop
Close