• Home
 · 
• Files/File Controls/Input/Output
 · 
• Compare two text files with the differences being written to a new file. Just paste this sub somewh

Compare two text files with the differences being written to a new file. Just paste this sub somewh

Compare two text files with the differences being written to a new file. Just paste this sub somewhere in your form, then call like this

Rate Compare two text files with the differences being written to a new file. Just paste this sub somewh

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Open Fileone For Input As #1
Fileonelen = LOF(1)
FileoneRead = Input(Fileonelen, #1)
Close #1
Open Filetwo For Input As #2
Open Output For Output As #3
Do While Not EOF(2)
    Line Input #2, CurrentLine
    Current.Value = Current.Value + Len(CurrentLine)
    If InStr(1, UCase(FileoneRead), UCase(CurrentLine)) Then
        'do nothing no differences in file
    Else
        'difference found, write it to the output file
        Print #3, CurrentLine
                        
    End If
Loop

Close #2
Close #3
   
End Sub