VB.NET은 두 개의 텍스트 파일을 비교하고 불충분 한 줄을 추가합니다.

Question

두 개의 텍스트 파일을 비교하고 두 번째 파일의 줄을 처음으로 추가하는 솔루션을 찾고 있습니다. 다음은 그 예입니다.

먼저 파일 내용 :

<category = Names> 
Anton 
Darell 
Kate 
</category> 
<category = Job title> 
Director 
President 
Manager 
</category> 
<category = other> 
bla bla 
lia lia 
ohoho 
</category> 

두 번째 파일 내용 :

당신이 모든 파일을 발견 한 경우

<category = Names> 
Anton 
Frank 
Thomas 
</category> 
<category = Job title> 
Driver 
President 
Manager 
</category> 
<category = other> 
bla bla 
olia olia olia 
</category> 

카테고리의 몇 가지 유형이있다, 그래서으로 두 번째 파일에서 새 개체를 추가 할 첫 번째 파일에서 동일한 카테고리를 사용하면 새 파일 형식이 다음과 같이 표시됩니다.

<category = Names> 
Anton 
Darell 
Kate 
Frank 
Thomas 
</category> 
<category = Job title> 
Director 
President 
Manager 
Driver 
</category> 
<category = other> 
bla bla 
lia lia 
ohoho 
olia olia olia 
</category> 

희망 사항 해결할 수 있습니다.

Answer 1

Private mResult As New List(Of String) 

Public Sub MergeFiles() 
    ReadFile("C:\File1.txt") 
    ReadFile("C:\File2.txt") 
    WriteFile("C:\Result.txt") 
    mResult.Clear() 
End Sub 

Private Sub ReadFile(ByVal Path As String) 
    Dim mSR As New System.IO.StreamReader(Path) 
    Dim mItem As String = "" 
    Do While Not mSR.EndOfStream 
     mItem = mSR.ReadLine 
     If Not mResult.Contains(mItem) Then mResult.Add(mItem) 
    Loop 
    mSR.Close() 
    mSR.Dispose() 
End Sub 

Public Sub WriteFile(ByVal Path As String) 
    Dim mSW As New System.IO.StreamWriter(Path) 
    For Each mItem As String In mResult 
     mSW.WriteLine(mItem) 
    Next 
    mSW.Close() 
    mSW.Dispose() 
End Sub