如何修改一个文件中某行数据呢？

Question

根据某些关键词找到某行数据，想把这行数据改掉，怎么搞？

Answer 1

可以放到数组里。
用LINE INPUT函数
一行为单位放到字符串数组里
修改完了再写回去

Answer 2

参考如下：
Option Explicit
'引用Microsoft Scripting Runtime
Private Sub Form_Load()
Dim oFSO As FileSystemObject
Dim oTextStream As TextStream
Dim oFirstLine As String
Dim i, LineNum As Integer
Set oFSO = CreateObject("scripting.filesystemobject")
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForAppending, False, TristateFalse)
oTextStream.Write (vbCrLf & "这是一个新增的测试行")'以下为删除某一行，如第二行
oTextStream.Close
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForReading, False, TristateFalse)
Dim str(1000) As String        '这里根据实际情况可增大或缩小数组的维数
i = 0
Do While oTextStream.AtEndOfLine <> True
    str(i) = oTextStream.ReadLine
    i = i + 1
Loop
LineNum = i
oTextStream.Close
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForWriting, False, TristateFalse)
oTextStream.Write str(0)
For i = 1 To LineNum - 1
   If i <> 1 Then
      oTextStream.Write vbCrLf & str(i)
   End If
Next i
oTextStream.Close
Set oFSO = Nothing
End Sub

Answer 3

正确，不用数组也可以，读入一行就写到另一个文件，结束后把这个文件COPY覆盖掉原来的文件，再把新文件删除。