第1个回答 2010-07-24
下例是按你的要求把D:\Text.txt删除第一句后写入D:\Text2.txt文件中:
Private Sub 例子()
Dim 行数 As Long, InputData As String
Open "D:\Text.txt" For Input As #1
Open "D:\Text2.txt" For Output As #2
Do While Not EOF(1) ' 检查文件尾。
行数 = 行数 + 1
Line Input #1, InputData '逐行读入数据。
If 行数 > 1 Then
Print #2, InputData '逐行写入。
End If
Loop
Close #1 ' 关闭文件。
Close #2 ' 关闭文件。
End Sub本回答被提问者采纳