标题:VB中 For Append As #1 最多显示10行的问题
只看楼主
tieguanyin
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2019-1-7
结帖率:0
已结贴  问题点数:10 回复次数:1 
VB中 For Append As #1 最多显示10行的问题
Open App.Path & "\1.txt" For Append As #1 'Append是追加,如果只要一次性写入覆盖前面的内容就用Output
Print #1, liebiao
Close #1

每次写入一条信息  不想让1.txt里面 无限存储数据
我只想让 1.txt里面显示10条信息  如果超出10条就从第一条开始替换 循环  应该如何实现???
搜索更多相关主题的帖子: VB For 显示 txt 信息 
2019-01-07 21:06
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
得分:10 
方法1、
1、读入1.txt
2、用split分行,把数据写入A1数组【可能1-10条】
3、每次更新信息写入A1数组,A1数组就是你要控制的数据。
4、用output方式打开文件,把A1数组有内容的都写入。
方法2、
1、读入1.txt,到内存变量mem1
2、每次数据写入到mem1,用vbcrlf换行
3、用output方式打开1.TXT
4、如果mem1大于10行,写入mem1最后10条记录,否则全部写入
方法3【效率比较高,处理简单】、
1、直接用append方式写入
2、读取1.txt,如果大于10行,截取左后10条重新写入





[此贴子已经被作者于2019-1-8 11:09编辑过]

2019-01-08 10:58



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-492566-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.326271 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved