Сравнение двух текстовых файлов. - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.556 из 5
Похожие ответы