Добрый день. Есть код

Код:

begin
    s:=Copy(HtmlCode,j,k-j);
    if (AnsiPos('http:',s)>0) or (AnsiPos('https:',s)>0) then
    if (AnsiPos('.doc',s)=0) and (AnsiPos('.pdf',s)=0) (*тут еще надо 
       много затычек на десятки типов файлов*)
    then
    T4.Add(s);
    i:=k;
    break;
end;

Код пропускает только строки содержащие http: и https: и не пропускает строки содержащие ссылку на закачку файла doc или pdf. но типов файлов может быть несколько десятков, не хотелось бы код типа (AnsiPos('.doc',s)=0) повторять десятки раз. кроме того желательно вынести наименования типов файлов в отдельный файл (типа INI?), что бы изменять список запретов оперативно и без перекомпиляции программы целиком

Вопрос: какими способами это можно сделать, если есть похожий функционально код опубликуйте, если не трудно, в теме.

[Rat]

Массивом, циклом и or.

А еще лучше регулярными выражениями. Но это по желанию.

[NumLock]

имхо, правильнее протокол проверять через AnsiStartsText.
класс TIniFile, метод:

Код:

procedure ReadSection(const Section: string; Strings: TStrings); override;

загрузить во временный TStringList и в цикле по Strings[] через AnsiEndsText проверять расширение.

Код:

uses
  StrUtils, IniFiles,

[M.A.D.M.A.N.]

См. последнюю ссылку в подписи.

[Rat]

Если это блокиратор скачивания файлов, то он не правильно построен. Ибо расширение по показатель. Куча сайтов предлагают тебе скачать то же самое, но с расширением txt например, или jpg. Потом переименовываешь и все. Нужно по содержимому блокировать.

[ALexandr555]

Сообщение от M.A.D.M.A.N.

См. последнюю ссылку в подписи.

онлайн справка по дельфи?

[~TB~]

Сообщение от Rat

Если это блокиратор скачивания файлов, то он не правильно построен. Ибо расширение по показатель. Куча сайтов предлагают тебе скачать то же самое, но с расширением txt например, или jpg. Потом переименовываешь и все. Нужно по содержимому блокировать.

А как тогда блокировать, когда файл еще не скачан и нет возможности прочитать заголовок? Когда пользователь только начинает закачку?

онлайн справка по дельфи?

Понятно же, что он имел ввиду регулярки идущие последней строчкой.

[Rat]

Весь вопрос, вообще как Вы видете работу пользователя с Вашей программой. Насколько я понимаю, это что то типа прокси?

Rat
к прокси не имеет никакого отношения
просто нужно в массиве строк полученном из ПМ (в ответ на запрос по словам поиска):
- оставить только строки с УРЛ(сделано)
- не пропустить строки с УРЛ, но заканчивающиеся на имя файла с расширением ДОК ПДФ и прочие картинки(тоже в общем сделано, но нужно улучшить - смотри топик)

далее эти строки с УРЛ пойдут в ТВеббраузер для закачки и анализа страницы. при этом если УРЛ будет заканчиваться на файл.док(к примеру) - выскочит таблица из браузера с предложением сохранить-открыть файл, что требует вмешательства оператора, а программа то должна работать в автомате
теперь понятнее о чем речь?

[~TB~]

Сообщение от Pcrepair

Rat
к прокси не имеет никакого отношения
просто нужно в массиве строк полученном из ПМ (в ответ на запрос по словам поиска):
- оставить только строки с УРЛ(сделано)
- не пропустить строки с УРЛ, но заканчивающиеся на имя файла с расширением ДОК ПДФ и прочие картинки(тоже в общем сделано, но нужно улучшить - смотри топик)

далее эти строки с УРЛ пойдут в ТВеббраузер для закачки и анализа страницы. при этом если УРЛ будет заканчиваться на файл.док(к примеру) - выскочит таблица из браузера с предложением сохранить-открыть файл, что требует вмешательства оператора, а программа то должна работать в автомате
теперь понятнее о чем речь?

Оу. Теперь все ясно. Короче, для твоей проблемы - "чем заменить AnsiPos" ответ, как уже писал тут товарищ M.A.D.M.A.N. - юзать регулярные выражения. Создаешь список файловых екстеншионов, пишешь регулярку для опознания конца ссылки и в цикле гоняешь ее подставляя значения из списка. Как-то так.

[M.A.D.M.A.N.]

От путнего анонимайзера наврятли спасет.

Создаешь список файловых екстеншионов, пишешь регулярку для опознания конца ссылки и в цикле гоняешь ее подставляя значения из списка. Как-то так.

насчет циклов было сразу понятно. собственно представленный код - кусочек цикла. просто раньше бывали случаи когда нагромождения самопального кода заменялись одной встроенной функцией или процедурой Делфи. а может есть еще какие то варианты, типа массивы использовать, или как то класс ИНИ. в общем чтоб было проще и лучше
вот об этом был вопрос