可以通過以下方法實現。
1:打開文件
2.遍歷文件的所有行，並將行數據讀入動態字符串數組。
3:關閉文件
4.定義壹個新的動態數組。
5:在追加數據循環的代碼段中，每次追加數據之前，與數組中的所有行數據進行比較。如果沒有重復，則向新的動態數組添加和修改數據。如果有，放棄這個追加操作。
6.當所有要追加的數據都按照規則添加到新數組後，打開原始文件，追加新數組的數據。
7:關閉文件
對於動態數組的應用，請看下面的例子:
Dim a()'定義了壹個數組
n =輸入框("")
對於i=1到n
A(i)=int(rnd)'生成壹個隨機數。
然後
Redim preserve a(n+m)'m是要相加的數字個數。
然後通過循環列出新生成的數組！同上，我就不寫了！哈哈的笑聲...