Поиск одного текстового файла для значений в другом текстовом файле

Question

Я хочу найти текстовый файл для значений, содержащихся в другом текстовом файле. результат отображает значения, не содержащиеся в списке 2

Public Class Form1 

    Const TEST1 = "\\folder\compare\list1.txt" 
    Const TEST2 = "\\folder\compare\list2.txt" 

    Private Sub Button1_Click(ByVal sender As System.Object, _ 
      ByVal e As System.EventArgs) Handles Button1.Click 
    'Declare two dictionaries. The key for each will be 
    ' the text from the input line up to, 
    'but not including the first ",". 
    ' The valus for each will be the entire input line. 

    Dim file1 As New HashSet(Of String) '! 
    'Dim file1 As New Dictionary(Of String, String) 
    Dim file2 As New Dictionary(Of String, String) 

    For Each line As String In System.IO.File.ReadAllLines(TEST1) 
     Dim part() As String = line.Split(",") 
     If Not file1.ContainsKey(part(0)) Then file1.Add(part(0), line) 

    Next 

    For Each line As String In System.IO.File.ReadAllLines(TEST2) 
     Dim part() As String = line.Split(",") 
     If Not file2.ContainsKey(part(0)) Then file2.Add(part(0), line) '! 
    Next 

    AddText("The following lines from " & TEST2 & " are also in " & TEST1) 

    For Each key As String In file2.Keys 
     If file1.Contains(key) Then 
      AddText(file2(key)) 
     End If 
    Next 
    Dim keysInList1ThatAreNotInList2 = file1.Except(file2.Keys).ToList '! 



    Dim values = From key In keysInList1ThatAreNotInList2 Select file1(key) 
    Dim str = String.Join(vbCrLf, values) 
    AddText("ID should not be in this list" & str) 

    End Sub 

    Private Sub AddText(ByVal text As String) 
     txtResults.Text &= text & vbCrLf 
    End Sub 

End Class 

я хочу найти текстовый файл для значений, содержащихся в другом текстовом файле. результат отображает значения, не содержащиеся в списке 2. в настоящий момент он работает, пока значения уникальны. Я хочу найти большой текстовый файл для определенных значений.

Answer 1

Решение, кажется, ищет только для первого совпадения, поэтому необходимо игнорировать двуличности при создании file1, file2

Public Class Form1 

    Const TEST1 = "\\folder\compare\list1.txt" 
    Const TEST2 = "\\folder\compare\list2.txt" 

    Private Sub Button1_Click(ByVal sender As System.Object, _ 
       ByVal e As System.EventArgs)  Handles Button1.Click 
    'Declare two dictionaries. The key for each will be 
    ' the text from the input line up to, 
    'but not including the first ",". 
    ' The valus for each will be the entire input line. 

    Dim file1 As New Dictionary(Of String, String) 
    Dim file2 As New Dictionary(Of String, String) 

    For Each line As String In System.IO.File.ReadAllLines(TEST1) 
     Dim part() As String = line.Split(",") 
     If Not file1.ContainsKey(part(0)) Then file1.Add(part(0), line)'! 

    Next 

    For Each line As String In System.IO.File.ReadAllLines(TEST2) 
     Dim part() As String = line.Split(",") 
     If Not file2.ContainsKey(part(0)) Then file2.Add(part(0), line)'! 

    Next 

    AddText("The following lines from " & TEST2 & " are also in " & TEST1) 

    For Each key As String In file2.Keys 
     If file1.ContainsKey(key) Then 
      AddText(file2(key)) 
     End If 
    Next 
    Dim keysInList1ThatAreNotInList2 = file1.Keys.Except(file2.Keys).ToList 

    Dim values = From key In keysInList1ThatAreNotInList2 Select file1(key) 
    Dim str = String.Join(vbCrLf, values) 
    AddText(str) 

End Sub 

Private Sub AddText(ByVal text As String) 
    txtResults.Text &= text & vbCrLf 
End Sub 

Примечание Чтобы избежать путаницы, я удалил оригинальный ответ. Это новый полный.