HERBERS Excel-Forum - die Beispiele

Thema: Textdateien vergleichen und Unterschiede dokumentieren

Home

Gruppe

Extern

Problem

Zwei Dateien mit der gleichen Zeilenanzahl werden Zeile für Zeile miteinander verglichen. Die Zeilen der ersten Datei, die Unterschiede zur jeweiligen Zeile der zweiten Datei aufweisen, werden in eine dritte Datei geschrieben.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub Anlegen()
   Dim iFile As Integer, iRow As Integer, iCol As Integer
   Dim sFile As String
   iFile = FreeFile
   For iCol = 1 To 2
      sFile = Application.Path & "\test" & iCol & ".txt"
      Open sFile For Output As iFile
      iRow = 1
      Do Until IsEmpty(Cells(iRow, iCol))
         Print #iFile, Cells(iRow, iCol).Value
         iRow = iRow + 1
      Loop
      Close iFile
   Next iCol
   MsgBox "Die Testdateien wurden angelegt!"
End Sub

Sub Vergleich()
   Dim iCounter As Integer, iFile As Integer
   Dim sPath As String, txtA As String, txtB As String
   sPath = Application.Path & "\"
   iFile = FreeFile
   Open sPath & "test1.txt" For Input As iFile
   Open sPath & "test2.txt" For Input As iFile + 1
   Open sPath & "test3.txt" For Output As iFile + 2
   Do Until EOF(1)
      iCounter = iCounter + 1
      Line Input #iFile, txtA
      Line Input #iFile + 1, txtB
      If txtA <> txtB Then
         Print #iFile + 2, txtA & " - " & txtB
      End If
   Loop
   Close
   sPath = sPath & "test3.txt"
   Workbooks.OpenText _
      Filename:=sPath, _
      DataType:=xlDelimited, _
      tab:=False, _
      semicolon:=False, _
      comma:=False, _
      Space:=False, _
      other:=False
   Columns.AutoFit
   MsgBox "Weiter"
   ActiveWorkbook.Close savechanges:=False
   Kill sPath
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und Text

Kursiven Text aus Zelle extrahieren Nur Text in die Zwischenablage kopieren
Datum + Uhrzeit aus Textbox richtig in Zelle Buchstaben an variablen Stellen im Text tauschen
Text vergl. und Untersch. farblich markieren Abfrage ob ein Textzeichen nicht ASCII ist
Text "fest" am Bildschirm Inhalte von einer PDF suchen und den Text kopieren
SUMMENPRODUKT soll Text zurückgeben Summe aus Texten+Zahl mit Bedingung
alphabetische Sortierung von Ziffer+Text Variabler Text aus Zelle in Code integrieren
Als Text gespeicherte Datumsangaben Textbox als Variable ansprechen?
Excel Form Kontextmenue geht nicht Absatzzeichen in Textbox und Listbox verhindern
Textformat (VBA) Textfeld im Formular
Autom. Zelltext, der bei anklicken verschwindet Texte aus einer Liste sammeln
aktierten Text in geöffnete Worddatei Text zurückgeben über mehrere Tabellenblätter
UserForm TextBox mit ComboBox Datum vergleichen teilstring aus textbox in andere Textbox
Textbox Prüfung Text in Spalten - Performance
Userform nicht gleich in TextBox aber wie? Text aus Zelle in Internet Seite
Zelle = Text + Formel Textbox Multiline
Textinhalt Abstand von Textbox bis zum unter. Rand ermitteln
Hilfetexte für Formular-Schaltflächen auf TB Daten aus Zelle in Text einlesen und leere löschen
Mehrere Argumente Text und Zahl Daten aus Listbox in Textbox einlesen und zurück i
Zahlenformatierung in einem Textfeld Zeilen löschen in denen Text mit best. Farbe steht
TextBox auf Tabellenblatt Hyperlink zu Wordtabelle mit Textmarke
Text aus Userform in Datei übertragen Textboxen mit Klassenmodul ansprechen
Zelle uebernimmt den Text nicht wie kopiert Combobox, CheckBox, TextBox Formatierung
Text und aktuelles Datum in einer Zelle Grösse Textbox vom Seitenrand abhängig machen
TextBox - nur Datum zulassen! Tabelle in Textbox anzeigen lassen
niedrigster Wert aus Spalte in Textbox anzeigen