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