Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Вниз

СРАВНЕНИЕ СТРОК   Найти похожие ветки 

← →
Lord Vader   (2002-02-20 09:58) [0]

ПОМОГИТЕ!!!! Как сравнить две текстовые строки и выделить все отличия между ними??????

Функция должна получиться наподобие как в Windows Commander при Сравнении по содержимому.

Примечание: длины двух строк могут не совпадать.

---

← →
Fedorenko Igor   (2002-02-20 10:13) [1]

Такие вещи пиши сам, вот пример сравнения строк, где результат -
некая величина, определяющая "похожесть" строк:

function CompareStrW( const wStr1 : WideString; const wStr2 : WideString ) : Integer;
var
i, j : Integer;
iLen1, iLen2 : Integer;
wS1, wS2 : WideString;
iMin, iMinPrev : Integer;
iErrors : Integer;
begin
if wStr1 = wStr2 then
begin
Result := 100;
exit;
end;

iLen1 := Length( wStr1 );
iLen2 := Length( wStr2 );
if iLen1 >= iLen2 then
begin
wS1 := wStr1;
wS2 := wStr2;
end else
begin
wS1 := wStr2;
wS2 := wStr1;

iLen1 := Length( wS1 );
iLen2 := Length( wS2 );
end;

iMinPrev := MaxInt;
iErrors := 0;
for i := 1 to iLen1 do
begin
//if wS1[i] = """ then continue;
iMin := MaxInt;
for j := 1 to iLen2 do
begin
if wS1[i] = wS2[j] then
begin
iMin := min( iMin, abs( i - j ) );
if abs( i - j ) = iMinPrev then
begin
iMin := iMinPrev;
break;
end;
end;
end;
if iMin = 0 then
begin
end
else if iMin = MaxInt then
begin
Inc( iErrors );
end else
begin
if iMin <> iMinPrev then Inc( iErrors );
end;
iMinPrev := iMin;
end;

Result := ( iLen1 - iErrors ) * 100 div iLen1;
end;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c