Venchik
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем привет! В варезнике есть задачка - надо сравнить текстовые файлы. Сравнение осуществляется построчно. Вот я накалякал на паскале кое-что:
Код: uses
Crt;
var
i,j,k,z :longint;
f1,f2,f3: array [1..10] of byte;
MaxF1,MaxF2 :longint;
label
1;
begin
MaxF1:=10;
MaxF2:=10;
f1[1]:=1;
f2[1]:=1;
f2[2]:=2;
f1[2]:=3;
i:=0; j:=0; k:=0;
for i:=1 to MaxF1 do {perebor strok v Enterprise}
begin
1: for j:=1 to MaxF2 do {perebor strok v Ultimate}
if f1[i]=f2[j] then
begin
for z:=j to MaxF2-1 do {perebor vtorogo massiva dlya udaleniya uje naydennoy stroki}
f2[z]:=f2[z+1]; {sdvigaem po strokam vverx}
MaxF2:=MaxF2-1; {umenwaem koli4estvo strok vo vtorom fayle}
i:=i+1; {perexodim na sleduwuyu v 1-om fayle}
goto 1; {na4inaem poisk vo vtrom fayle}
end;
k:=k+1; {perexod na sleduyuwuyu stroku v fayle s rezultatami}
f3[k]:=f1[i]; {soxranili stroku, kotoraya est v enterprise, no kotoroy net v Ultimate}
end;
readln;
end. |
f1, f2, f3 - это вообще должны быть файлы...ну можно, наверное, сделать массивы со строками и в каждую строку массива скопировать одну строку из файла...
Дело очень нужное для сборки дистрибутива Vista...
Я уверен что на С это пишется без проблем.
Хотелось бы, конечно, чтоб пользователь мог указывать пути к файлам f1, f2, f3.
Количество строк в файлах может достигать 40000.
Пожалуйста, напишите такую прогу |
у тебя смотрю, мозги отсутствуют. Думаю, это твой последний пост.
