按键精灵-找重复

Text = Plugin.File.ReadFileEx("C:\Users\Butcher\Desktop\1.txt")
dim MyArray
MyArray = Split(Text, "|")

Totle = UBound(MyArray)

For i = 0 To Totle-1
    If UBound(MyArray) >= 0 Then 
        MyText = split(MyArray(i), ",")
        guojia = MyText(7)
        jiaoyiduishou = MyText(8)
        If (instr(jiaoyiduishou, "[")) Then 
            pos1 = instr(jiaoyiduishou, "[") + 1
            pos11 = instr(jiaoyiduishou, "]")+1
            midText = Mid(jiaoyiduishou,pos1-1, pos11-1)
            jiaoyiduishou = Replace(jiaoyiduishou,midText,"")    
        End If
        
        
        For j = i + 1 To Totle-1
            MyText1 = split(MyArray(j),",")
            guojia1 = MyText1(7)
            jiaoyiduishou1 = MyText1(8)
            If (instr(jiaoyiduishou1, "[")) Then 
                pos2 = instr(jiaoyiduishou1, "[") + 1
                pos22 = instr(jiaoyiduishou1, "]")+1
                midText1 = Mid(jiaoyiduishou1,pos2-1, pos22-1)
                jiaoyiduishou1 = Replace(jiaoyiduishou1,midText1,"")    
            End If
            
            If (jiaoyiduishou1 = jiaoyiduishou) and (guojia <> guojia1) Then 
                Call Plugin.File.WriteFileEx("C:\Users\Butcher\Desktop\2.txt", "原文件："+MyArray(i))
                Call Plugin.File.WriteFileEx("C:\Users\Butcher\Desktop\2.txt","重复文件："+ MyArray(j))
            End If
        Next
    End If
Next