如何将一段文字插入到已存在的记事本文件中？

Question

如何将一段文字插入到已存在的记事本文件中，这个记事本文件已有文字，谢谢！

Answer 1

原文件就有内容，用Append方式是追加在尾部，我想将内容插入到文件头部。

Answer 2

open filename as binary 后，用put加入文件头，具体参数自己查查。

Answer 3

如果插到中间，需要用input方式打开，Lines Input读取并在适当的行合并进数据，关闭后Output方式打开Print存回，关闭
如果加到最后用Append打开，用Print写入，关闭，会直接加到最后。

Answer 4

刚回答了一个问题，希望有帮助：http://community.csdn.net/Expert/topic/3779/3779262.xml?temp=.1497309

Answer 5

'参考以下代码
Option ExplicitPrivate 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