Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Выложите исходник (https://forum.antichat.xyz/showthread.php?t=70567)

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

0verbreaK 17.05.2008 16:44
Цитата:
Сообщение от /Boom\
Выложите исходник на 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\ 17.05.2008 22:05
0verbreaK дай свою асю, есть один вопрос.

0verbreaK 18.05.2008 10:15
Ой чето ступанул, не правильно написал...

Код:

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


Время: 23:19