如何用VB在文件本文件中间插入行?
用append好像不行,那位提供一下例子最好,谢谢了
[解决办法]
用input line读入一行。
Dim str As String
Open "c:\tt.txt " For Input As #1
Open "c:\tt2.txt " For Output As #2
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, str ' 读入一行数据并将其赋予某变量。
Debug.Print str ' 在立即窗口中显示数据。
Print #2, str & vbCrLf & vbCrLf
Loop
Close (1)
Close (2)
