| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 244 人关注过本帖
标题: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条就从第一条开始替换 循环  应该如何实现???
2019-01-07 21:06
wds1
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:36
帖 子:347
专家分:1840
注 册: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







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

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