Выложите исходник

[/Boom\]

Выложите исходник на delphi сортировщика спам баз
чтоб сортировал по маске @mail.ru
буду очень благодарен

[0verbreaK]

Выложите исходник на delphi сортировщика спам баз
чтоб сортировал по маске @mail.ru
буду очень благодарен


А его не сложно и самому написать :)

Я когда то создавал подобное, получается на вход программе подается текстовик с эмейлами, загружаем допустим в

StringList.LoadFromFile('emails.txt');

Затем через Find ищем маску. Delete - удаляем.

Ниже я написал функцию, достаточно корявую но все же, может чем то поможет


function Sort_Emails(Emails, Mask, SortingMails: PChar): Boolean;
var
StringList: TStringlist;
i, index: Integer;
lpbuf: array [0..1028] of Char;
SStr: TStringlist;
begin
Result:=false;
StringList:=TStringList.Create;
SStr:=TStringList.Create;

StringList.LoadFromFile('email.txt');
for i:=0 to StringList.Count-1 do
begin
// нашли индекс маски (@mail.ru)
StringList.Find(Mask, index);
// сохранили его в отдельный файл
lstrcpy(lpbuf, PChar(StringList.ValueFromIndex[index]));
SStr.LoadFromFile(lpbuf);
// теперь удаляем его из списка
StringList.Delete(index);
// сортируем
StringList.Sort;
end;

SStr.SaveToFile(SortingMails);
SStr.Free;
StringList.Free;
Result:=true;
end;

[/Boom\]

0verbreaK дай свою асю, есть один вопрос.

[0verbreaK]

Ой чето ступанул, не правильно написал...



function Sort_Emails(Emails, Mask, SortingMails: PChar): Boolean;
var
StringList: TStringlist;
i, index: Integer;
lpbuf: array [0..1028] of Char;
SStr: TStringlist;
begin
Result:=false;
StringList:=TStringList.Create;
SStr:=TStringList.Create;

StringList.LoadFromFile('email.txt');
for i:=0 to StringList.Count-1 do
begin
// нашли индекс маски (@mail.ru)
StringList.Find(Mask, index);
// сохранили его в отдельный файл
//lstrcpy(lpbuf, PChar(StringList.ValueFromIndex[index])); // вот здесь
// SStr.LoadFromFile(lpbuf); // и вот здесь
// теперь удаляем его из списка
StringList.Delete(index);
// сортируем
StringList.Sort;
end;

SStr.SaveToFile(SortingMails);
SStr.Free;
StringList.Free;
Result:=true;
end;



Хотя я еще и не уверен на счет функции ValueFromIndex