Question

Access中如何用VBA删除文本文件中的第一行的内容

有一个文本文件，如： D:\Text.txt

如何在Access中使用VBA代码实现删除此文本文件中的第一行内容，然后保存。

Answer 1

下例是按你的要求把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