VB中 For Append As #1 最多显示10行的问题
Open App.Path & "\1.txt" For Append As #1 'Append是追加,如果只要一次性写入覆盖前面的内容就用OutputPrint #1, liebiao
Close #1
每次写入一条信息 不想让1.txt里面 无限存储数据
我只想让 1.txt里面显示10条信息 如果超出10条就从第一条开始替换 循环 应该如何实现？？？
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编辑过]