VB如何去掉多余的文件内容?
我文本文件本身有100个记录,我读取后,去消后面50个,再写入文件,但实际上后面50还是在文件中,如何取消?我采用的get、put方法...
我文本文件本身有100个记录,我读取后,去消后面50个,再写入文件,但实际上后面50还是在文件中,如何取消?
我采用的get、put方法 展开
我采用的get、put方法 展开
4个回答
2010-11-02
展开全部
既然是文本文件,就用Print:
FreeFileNumber = FreeFile
Open FileName For Output As #FreeFileNumber
Print #FreeFileNumber, ss
Close #FreeFileNumber
Output:覆盖原有文件。
FreeFileNumber = FreeFile
Open FileName For Output As #FreeFileNumber
Print #FreeFileNumber, ss
Close #FreeFileNumber
Output:覆盖原有文件。
2010-10-20
展开全部
读取后,kill掉前文件,然后再output一个新文件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
直接从代码里面删掉就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询