Форум Сообщества Практиков Конкурентной разведки (СПКР)

[q]

Есть ли какой-нибудь пример этой функции? Увы, навыками написания скриптов пока не обладаю, а пощупать функцию хочется

[/q]

program CutSnippets; // Автор Мыльников Алексей Борисович: 1a@sitesputnik.ru, +7(8442)79-52-42,+7(905)392-97-92
// Назначение: принимает в первом параметре P1 имя файла, содержащего новостной поток,
uses // считывает его, выкусывает сниппеты и сохраняет преобразованный файл в P1
Windows,//Dialogs, // Язык программирования Delphi 7
SysUtils, DateUtils;
var i, j : integer;
S, Sw, fn: string;
NS : TextFile;
begin
fn:=ParamStr(1); if(fn='')or(not(FileExists(fn)))then EXIT; // Если не существует файл, то на этом обработка заканчивается

S:=''; // в переменную S считаю
AssignFile(NS,fn); // весь контент новостного потока
try Reset(NS); while(not(eof(NS)))do begin readln(NS,Sw); S:=S+Sw+#13#10; end; except end;
CloseFile(NS);
// Всё, что написано выше - одинаково для всех внешних программ


//============== Собственно обработка содержания файла Новостного потока (начало) ================//

repeat i:=pos('<b>Сниппет о новости №',S); // Признак начала сниппета
j:=pos('</FIELDSET></BLOCKQUOTE></font>',S);// Признак конца сниппета
if(i=0)or(j=0)then BREAK; // Все сниппеты удалены, выходим из цикла ;
delete(S,i,j-i+31); // Выкусываем сниппет
until(false);

//============== Собственно обработка файла Новостного потока (окончена) ================//


//Всё что ниже - одинаково для всех программ, если Вы собираетесь сохранить Вашу обработку в том же файле, а не в другом.
//Можете сохранить результаты где угодно и/или отправить их куда сможете.
try Rewrite(NS); write(NS,S); except end; // Сохранение обработанного потока
CloseFile(NS); // в том же файле.
end.

[q]

обработано 3000 источников информации, переработано 17000 новостей

[/q]

[q]

А не опасаешься, что если "на пике" информвсплеска клиент порадуется, то "на спаде" он может решить, что ты недорабатываешь, и надо пересмотреть стоимость работ?

Действительно ли нужно грузить клиента этой, по сути, вторичной информацией и рисковать нарваться на проблемы?

[/q]