注册 登录
编程论坛 VB6论坛

VB中 For Append As #1 最多显示10行的问题

tieguanyin 发布于 2019-01-07 21:06, 1920 次点击
Open App.Path & "\1.txt" For Append As #1 'Append是追加,如果只要一次性写入覆盖前面的内容就用Output
Print #1, liebiao
Close #1

每次写入一条信息  不想让1.txt里面 无限存储数据
我只想让 1.txt里面显示10条信息  如果超出10条就从第一条开始替换 循环  应该如何实现???
1 回复
#2
wds12019-01-08 10:58
方法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编辑过]

1