tppabs

[T0nus]

да все работает, только не tabs="[^"]*" а tppabs="[^"]*"
А можете описать что за что там отвечало, чтобы я разобрался)

То что в квадратных скобках символьный класс, который перечисляет искомые символы. Если в начале символьного класса поставить циркумфлекс - он же крышечка - то символьный класс будет обращенным, т.е. искать будет всё кроме указанных символов. Ну а звездочка - квантификатор - он говорит что может встретится от 0 и больше таких символов (т.е. не кавычек). Здесь бы было, я думаю, рациональнее использовать квантификатор +, который говорит что может быть от 1 и больше символов, т.к. вряд ли встретятся пустые кавычки. А вообще если интересно могу предложить коротенький скрипт на перл, который будет обходить все файлы в дире и искаь в них этот шкодный тег и удалять. Или это можно решить в Vim.

 

[Rastafan]

народ подкинте плз регулярку чтоб извести вот эту мерзость ))

/*tpa=http://www.domen.com/flash/logo_anime.swf*/

вся трабла в том что нужно именно чтоб в конце была пара символов

*/

наверное вопрос глупый но регулярки я не секу

Спасибо ))

 

[andrnag]

\/\*tpa=.*?\*\/

 

[AndySayre]

Подскажите как отключается в программе эта фича?

 

[diavolic]

давным давно на дельфи писал себе прогу для удаления табов после граббинга сайта. исходник ниже. первый параметр чего обрабатывать, второй куда сохранять.

program tppremover;

{$APPTYPE CONSOLE}

uses
  SysUtils, StrUtils,
  Classes;

var str: TStringList;
    i, j: integer;
    st, st1: string;

begin
    if (ParamCount > 0) then
    begin
        str := TStringList.Create;
        str.LoadFromFile(ParamStr (1));
        for i:=0 to str.Count-1 do
        begin
            st := str.Strings[i];
            j := pos (' tppabs', st);
            while j>0 do
            begin
                st1 := leftstr (st, j-1);
                delete (st, 1, j+11);
                while (st[1] <> '"') do
                    delete (st, 1, 1);
                delete (st, 1, 1);
                st := st1 + st;
                j := pos (' tppabs', st);
            end;
            str.Strings[i] := st; 
        end;
        str.SaveToFile(ParamStr (1));
    end;

  { TODO -oUser -cConsole Main : Insert code here }
end.