Question

VB如何去掉多余的文件内容？

我文本文件本身有100个记录，我读取后，去消后面50个，再写入文件，但实际上后面50还是在文件中，如何取消？

我采用的get、put方法

Answer 1

既然是文本文件，就用Print：
FreeFileNumber = FreeFile
Open FileName For Output As #FreeFileNumber
Print #FreeFileNumber, ss
Close #FreeFileNumber
Output：覆盖原有文件。

Answer 2

读取后，kill掉前文件，然后再output一个新文件。

Answer 3

直接从代码里面删掉就可以了

Answer 4

Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1
Open "d:\2.txt" For Output As #2
For i = 1 To 50
Line Input #1, a
Print #2, a
Next
Close (1)
Close (2)
Name "d:\2.txt" As "d:\1.txt"
End Sub