Dim fn為整數，str1為字符串，str2為字符串，tmp1，tmp2，I為整數
fn =自由文件
打開“d:\ text 1.txt”進行二進制As #fn。
str1 =輸入(LOF(fn)，fn)
tmp1 = Split(str1，vbCrLf，-1)
關閉#fn
fn =自由文件
打開二進制文件“d:\ text2.txt”作為# fn
str2 =輸入(LOF(fn)，fn)
tmp2 = Split(str2，vbCrLf，-1)
關閉#fn
文件1中的值和tmp2數組中的每個值都被相同地消除。
對於i = LBound(tmp2)至UBound(tmp2)
str1 = Replace(str1，tmp 2(I)amp；vbCrLf，""，1，-1，vbBinaryCompare)
接下來我
文件2中的值和tmp1數組中的每壹個值，同樣消去。
對於i = LBound(tmp1)至UBound(tmp1)
str2 = Replace(str2，tmp 1(I)& amp；vbCrLf，""，1，-1，vbBinaryCompare)
接下來我
TextBox設置MultiLine = True，ScrollBars = 3。
顯示尚未相互消除的“行值”。
Text1。Text = str1
文本2。Text = str2
以上操作不影響文件的更改。如果想保存回來，可以用Open OutPut語句直接保存回來。
末端接頭