Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
ВнизСравнение двух строк Найти похожие ветки
← →
perov (2002-04-25 09:39) [0]Как можно сравнить две строки с определенным процентом совпадения?
← →
Андрей Сенченко (2002-04-25 09:45) [1]Можно. pos() - самый тупой и примитивный способ. В Статьях есть материал по анализу строк на совпадение.
← →
MBo (2002-04-25 12:24) [2]вопрос можно понимать по разному. для случая строк одинаковой длины, когда нужно узнать количество несовп. символов, проще всего сделать xor.
← →
Robor (2002-04-25 17:15) [3]
function vers(st2,st1:string):byte;
var len1,len2:integer;
i,k,j:integer;
p1:integer;
st3:string;
label lp3;
begin
p1:=0;
len1:=Length(st1);
len2:=Length(st2);
if Len2=0 then goto lp3;
if len1<len2 then goto lp3;
{или begin
st3:=st1;st1:=st2;st2:=st3;
j:=len1;len1:=len2;len2:=j
end;}
for i:=0 to len1-len2 do
begin
j:=0;
for k:=1 to len2 do if st1[k+i]=st2[k] then inc(j);
if j>p1 then
begin
p1:=j;
StSe:=Copy(st1,i+1,len2); /StSe-глобальная
end;
end;
p1:=(p1*100) div len2;
lp3:
vers:=p1
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c