No Visual Basic como para voce comparar dois arquivos TXT para semelhancas?

Por exemplo. txtfile1 tem ABMN e txtfile2 tem YZNM em forma de lista em cada arquivo. Como posso usar um loop aninhado para mostrar em um listbox MN são as variáveis comuns de cada arquivo TXT?

Resposta

Dim diferenças como List(Of String) = List(Of String) novo
Dim a1 como matriz _
= Novo System. IO _
.StreamReader("c:\file1.txt") _
.ReadToEnd().Split(vbCrLf)

Dim a2 como matriz _
= Novo System. IO _
.StreamReader("c:\file2.txt") _
.ReadToEnd().Split(vbCrLf)
Dim s As String = String. Empty
Dim i As Integer = a1.Comprimento
Se a1.Comprimento< a2.length="" then="" i="a2.Length">
Para j As Integer = 0 para i
s = "linha" & (j + 1).ToString () + ":"
Se j > = a1.Comprimento ou j > = a2.Comprimento, em seguida
Se j > = a1.Comprimento, em seguida
s + = "arquivo1 é nulo"
Outra coisa
s + = "arquivo2 é nulo"
End If
diferenças.Add(s)
Outra coisa
Se a1(j) <> a2(j), em seguida, as diferenças.Adicionar (s & "Não igual")
End If
Próxima
Para n As Integer = 0 para as diferenças.Count - 1
' TextBox1. Text + = differences(n) & vbCrLf
Console. WriteLine (_
Differences(n))
Próxima