linq快速比较两个列表

    Sub compareLists(ByVal lst1 As String(), ByVal lst2 As String())

       ‘通过对话框获取两个药对比文件的数据到两个列表。

       Dim ofdg1 As New OpenFileDialog

        Dim ofdg2 As New OpenFileDialog

        Dim path1 As String = String.Empty

        Dim path2 As String = String.Empty

        If ofdg1.ShowDialog = vbOK Then

            path1 = ofdg1.FileName

        End If

        If ofdg2.ShowDialog = vbOK Then

            path2 = ofdg2.FileName

        End If

        If System.IO.File.Exists(path1) And System.IO.File.Exists(path2) Then

            Dim list1 As String() = System.IO.File.ReadAllLines(path1)

            Dim list2 As String() = System.IO.File.ReadAllLines(path2)

            compareLists(list1, list2)

        End If       

        Dim differenceQuery = lst1.Except(lst2)

        ' Execute the query.

        For Each name As String In differenceQuery

            Debug.Print(name)

        Next

    End Sub