Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
17.05.2008, 15:02
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
Выложите исходник
Выложите исходник на delphi сортировщика спам баз
чтоб сортировал по маске @mail.ru
буду очень благодарен
|
|
|
17.05.2008, 16:44
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Сообщение от /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;
Последний раз редактировалось 0verbreaK; 17.05.2008 в 16:46..
|
|
|
|
17.05.2008, 22:05
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
0verbreaK дай свою асю, есть один вопрос.
|
|
|
|
18.05.2008, 10:15
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Ой чето ступанул, не правильно написал...
Код:
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 |
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Исходник Cih
|
Pavlik |
Болталка |
13 |
30.04.2008 09:17 |
|
Исходник rasdial для Delphi 7
|
Tapaceuka |
С/С++, C#, Delphi, .NET, Asm |
5 |
21.02.2008 20:17 |
|
нужен исходник dialupass
|
<Trash_man> |
С/С++, C#, Delphi, .NET, Asm |
3 |
18.01.2008 16:10 |
|
Исходник брутфорса для Icq
|
Gulik |
С/С++, C#, Delphi, .NET, Asm |
11 |
09.01.2008 14:08 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
