Textvergleich ähnlich wie beyondcompare?

[Rollo62]

ist es EIN Textdokument, oder kommt das aus zwei Quellen ?
Stehen in einer Zeile immer die vergleichbaren Texte, oder kann das auch verschoben sein ?

[Mavarik]

Zitat von Rollo62:

ist es EIN Textdokument, oder kommt das aus zwei Quellen ?
Stehen in einer Zeile immer die vergleichbaren Texte, oder kann das auch verschoben sein ?

Zwei Quellen!
Verschoben ist nicht die Problemstellung...

AAA BBB CCC <> BBB CCC
AAA BBB CCC <> AAA BBB

AAA BBB CCC <> AXA BXB CXC

"Nur" so...

[Neutral General]

Ich glaube unterm Strich kommt du nicht um sowas drum rum:

Delphi-Quellcode:

for i:= 1 to Min(Length(leftStr), Length(rightStr)) do
begin
  if (leftStr[i] <> rightStr[i]) then
    charColor := clRed
end;

// Danach beim rightStr alle Zeichen hinter Length(leftStr) rot färben

[Mavarik]

Zitat von Neutral General:

Ich glaube unterm Strich kommt du nicht um sowas drum rum:

Delphi-Quellcode:

for i:= 1 to Min(Length(leftStr), Length(rightStr)) do
begin
  if (leftStr[i] <> rightStr[i]) then
    charColor := clRed
end;

// Danach beim rightStr alle Zeichen hinter Length(leftStr) rot färben

Sorry, aber so einfach ist es nicht... Aber die Links vom "schöne Günther" sind schon genau richtig...

[Delphi.Narium]

Es gibt da so etliche Algorithmen:

SoundEx (müsste bei Delphi dabei sein)
Levenshtein
Donald E. Knuth (gab da mal 'ne Beschreibung in der Oracle-Doku 8.1.7)
Kölner Phonetik

Alle können Dir sagen, ob die Texte übereinstimmen oder den "Grad" der Ähnlichkeit.

Damit es "bunt" wird, kommst Du dann nicht drumherum, es in der Art, wie Neutral General beschrieb, "anzumalen".

Wikipedia: Levenshtein-Distanz
how do you implement levenshtein distance in delphi
Kölner Phonetik für PL/SQL
Oracle: Ähnlichkeitssuche: Die "Kölner Phonetik" in APEX
phonetische suche algorithmus

[jobo]

Zitat von Delphi.Narium:

..
Damit es "bunt" wird, kommst Du dann nicht drumherum, es in der Art, wie Neutral General beschrieb, "anzumalen".

Naja, gemäß Beispiel ist ein stumpfer "synchroner" Vergleich auf Zeichen an Stelle x ja nur die halbe Miete, es heißt ja wahrscheinlich nicht umsonst "beyond compare"

Im Beispiel

Zitat von Mavarik:

AAA BBB CCC <> BBB CCC
AAA BBB CCC <> AAA BBB

wäre ja sonst in Zeile 1 alles bunt.

[Delphi.Narium]

@jobo
Deshalb ja auch: "in der Art, wie"
Heißt ja nicht: "Genauso"

[Mavarik]

Alles gut... TextDiff ist genau richtig

Mavarik

[uligerhardt]

Zitat von Mavarik:

Alles gut... TextDiff ist genau richtig

Ich hab letzthin aus dem dabei mitgelieferten Einfärbe-Demo für unser Uralt-Eigenbau-Übersetzungstool einen Vergleichsmodus gebaut:
a.png
Die farbige Darstellung ist allerdings auf Rich Edits umgestellt.