Сравнение двух текстовых файлов. - VB
Формулировка задачи:
How to open two files, compare them, and output the file that will contain text that from first file that is missing in the second file?
Thank you
P.S. Sorry for englosh, I don't have russian @ work :-)
Решение задачи: «Сравнение двух текстовых файлов.»
textual
Листинг программы
Private Sub Command1_Click() Dim intFileNum As Integer, strInfo As String Dim strF1 As String, strF2 As String 'в переменных strFile1 и strFile2 содержится путь к файлам If strFile1 = Empty Or strFile2 = Empty Then MsgBox 'Осуществите выбор файла', vbExclamation, Me.Caption Exit Sub End If intFileNum = FreeFile 'Открываем файл для считывания Open strFile1 For Input As #intFileNum 'Здесь можно установить цикл, для считывания информации Do While Not EOF(intFileNum) 'Считываем информацию Line Input #intFileNum, strInfo strF1 = strF1 & strInfo 'Закрываем цикл Loop 'Закрываем файл Close #intFileNum Text1.Text = strF1 'Открываем файл для считывания Open strFile2 For Input As #intFileNum 'Здесь можно установить цикл, для считывания информации Do While Not EOF(intFileNum) 'Считываем информацию Line Input #intFileNum, strInfo strF2 = strF2 & strInfo 'Закрываем цикл Loop 'Закрываем файл Close #intFileNum Text2.Text = strF2 'Проводим сравнение If strF1 = strF2 Then MsgBox 'Информация одна и таже', vbInformation, Me.Caption: Exit Sub 'Информация одна и таже If Replace(strF1, strF2, ' ') = strF1 And Replace(strF2, strF1, ' ') = strF2 Then MsgBox 'Файлы разные', vbInformation, Me.Caption Exit Sub ElseIf Replace(strF1, strF2, ' ') = strF1 Then MsgBox 'Файл F2 содержит дополнительную информацию', vbInformation, Me.Caption Text3.Text = Replace(strF2, strF1, ' ') Exit Sub Else MsgBox 'Файл F1 содержит дополнительную информацию', vbInformation, Me.Caption Text3.Text = Replace(strF1, strF2, ' ') Exit Sub End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д