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

我文本文件本身有100个记录,我读取后,去消后面50个,再写入文件,但实际上后面50还是在文件中,如何取消?我采用的get、put方法... 我文本文件本身有100个记录,我读取后,去消后面50个,再写入文件,但实际上后面50还是在文件中,如何取消?

我采用的get、put方法
展开
 我来答
匿名用户
2010-11-02
展开全部
既然是文本文件,就用Print:
FreeFileNumber = FreeFile
Open FileName For Output As #FreeFileNumber
Print #FreeFileNumber, ss
Close #FreeFileNumber
Output:覆盖原有文件。
匿名用户
2010-10-20
展开全部
读取后,kill掉前文件,然后再output一个新文件。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
onetaste
2010-10-20 · 超过30用户采纳过TA的回答
知道答主
回答量:136
采纳率:0%
帮助的人:116万
展开全部
直接从代码里面删掉就可以了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
沙慧月03
2010-10-21 · TA获得超过2157个赞
知道大有可为答主
回答量:2717
采纳率:100%
帮助的人:3607万
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式