[Resolved] XORing arrays of strings

[Kzin]

I've got to lists of data in ASCII format. I want to generate a third list which contains all the vaules that are unique to the second list but not the first. Anyone got a really simple solution (Excel will do )

[Megatron]

Try this.

Function XORString(ByVal str1 As String, ByVal str2 As String) As String
    For i = 1 To Len(str2)
        If Not (str1 Like "*" & Mid$(str2, i, 1) & "*") Then XORString = XORString & Mid$(str2, i, 1)
    Next i
End Function
 
Private Sub Command1_Click()
 
    'Usage
    Print XORString("String2", "StrXing1")
    
End Sub

[Kzin]

Thanks!