Question

VB向文本追加写入如何防止重复，不重复追加写入如何做到?

Answer 1

目前为止还没用很便捷的方法来解决这个问题。
可考虑按下面的方法来实现
1：打开文件
2：遍历文件所有行，并读取行数据到动态字符串数组中
3：关闭文件
4：新定义一个动态数组
5：追加数据循环代码段中，每次追加数据前，与数组中的所有行数据进行比较，如果没有重复，就增加改数据到新动态数组中，如果有，就放弃本次追加操作
6：所有要追加的数据已经按规则添加新数组中后，打开原文件，把新数组的数据追加写入
7：关闭文件
关于动态数组的适用，请看下例：

dim a() '定义数组
n=inputbox("")
for i=1 to n
a(i)=int(rnd) '产生一个随机数
next
redim preserve a(n+m) 'm为你要添加的数的个数
然后再由循环将新产生的数组列出来就行啦！同上，就不写啦！呵呵……

Answer 2

那就添加验证过程
if instr(1,text1,追加数据,1) = 0 then
退出追加