Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Май

Функция удаления не нужных тегов. Быстродействие

Posted by Chas under Delphi

Есть функция удаления подстроки типа <gg hhh>jjjj</gg> из строки. функция работает достаточно быстро (файл 3 мб за 30 мС обрабатывает)
но есть подозрение, что использование COPY (DefineTeg:=Copy(Data, I,10) увеличивает время обработки
Внимание!! Вопрос:
1. действительно ли COPY не самое лучшее решение по быстродействию
2. чем можно заменить COPY? может вставка на ASM?

Sibedir
ИСПОЛЬЗУЕМ ЦИКЛЫ ГРАМОТНО

function DelUseless2(const Data:string):string;

const

  BS = '';

var

  Len,I,EndTeg,J:integer;

  DefineTeg:string;

  ch: Char;

begin

  Len:=Length(Data);

  if Len = 0 then Exit;

  SetLength(Result, Len);

  J:=0;

  I := 1;

  while I <= Len do begin
    ch := Data[I];
    if (ch = '<') then begin
      DefineTeg := Copy(Data, I,10);
      if PosEx (BS, DefineTeg,1) <> 0 then begin

        EndTeg := PosEx(ES,Data,I+7);

        if EndTeg <> 0 then begin

          I := EndTeg + 8;

        end

        else begin

          Inc(J);

          Result[J] := ch;

        end;

      end

      else begin

        Inc(J);

        Result[J] := ch;

      end;

    end

    else begin

      Inc(J);

      Result[J] := ch;

    end;

    Inc(I);

  end;

  SetLength(Result, J);

end;

на 20% быстрее

ХИТРОСТИ ПРИВЕДЕНИЯ ТИПОВ ВМЕСТО COPY
Нам не нужно само копирование в данном случае

function DelUseless3 (Data: string):string;

const

  BS = '';

type

  Str8 = String[8];

  PStr8 = ^Str8;

var

  Len, I, J, EndTeg: Integer;

  s: Str8;

  ch: Char;

begin

  Len := Length(Data);

  if Len = 0 then Exit;

  SetLength (Result, Len);

  J := 0;

  I := 1;

  while I <= Len do begin
    ch := Data[I];
    if ch = '<' then begin
      s := PStr8(@Data[I-1])^;
      if s = BS then begin
        EndTeg := PosEx(ES, Data, I+7);
        if EndTeg <> 0 then begin

          I := EndTeg + 8;

        end

        else begin

          Inc(J);

          Result[J] := ch;

        end;

      end

      else begin

        Inc(J);

        Result[J] := ch;

      end;

    end

    else begin

      Inc(J);

      Result[J] := ch;

    end;

    Inc(I);

  end;

SetLength(Result, J);

end;

на 38% быстрее

СТРАННОЕ УПОРСТВО
Ведь вот это работает быстрее

function DelUselessMy (Data, BS, ES: String): String;

var

  o1, o2, i, s, d, L, LBS, LES: Integer;

begin

  L := Length (Data);

  if L = 0 then Exit;

  SetLength (Result, L);

  LBS := Length(BS);

  LES := Length(ES);

  o1 := 1;

  s := 1;

  d := 0;

  while True do begin

    o1 := PosEx(BS, Data, s);

    if o1 = 0 then Break

    else begin

      o2 := PosEx(ES, Data, o1+LBS);

      if o2 = 0 then Break

      else begin

        for i := s to o1-1 do

          Result[i-d] := Data;

        s := o2 + LES;

        d := d + (s - o1);

      end;

    end;

  end;

  for i := s to L do

    Result[i-d] := Data;

  SetLength (Result, L-d);

end;

на 75% быстрее при условии, что еще и задавать строки поиска можно

ХОТЯ МОЖЕТ И НЕ СТРАННОЕ или ХИТРОСТИ ПРИВЕДЕНИЯ ТИПОВ 2
Самый быстрый вариант, но только для постоянных строк поиска

function DelUseless4 (Data, BS, ES: String): String;

var

  BeginFlag: Boolean;

  Len, I, J, K, EndTag, LBS, LES: Integer;

  s: PChar;

  ch: Char;

begin

  Len := Length(Data);

  if Len = 0 then Exit;

  SetLength (Result, Len);

  LBS := Length(BS);

  LES := Length(ES);

  J := 0;

  I := 1;

  while I <= Len do begin
    ch := Data[I];
    if ch = '<' then begin
      s := PChar(@Data[I-1]);
      BeginFlag := True;
      for K:=1 to 8 do
        if s[K] <> BS[K] then begin

          BeginFlag := False;

          Break;

        end;

      if BeginFlag then begin

        EndTag := PosEx (ES, Data, I+8);

        if EndTag <> 0 then begin

          I := EndTag + 8;

        end

        else begin

          Inc(J);

          Result[J] := ch;

        end;

      end

      else begin

        Inc(J);

        Result[J] := ch;

      end;

    end

    else begin

      Inc(J);

      Result[J] := ch;

    end;

    Inc(I);

  end;

SetLength(Result, J);

end;

на 136% быстрее.

P.S.: Скорость проверял на Lazarus’е, потому может не соответствовать на Delphi. Но тенденция должна сохраниться.

тема на форуме

Последние записи

Функция удаления не нужных тегов. Быстродействие

Похожие статьи

Купить рекламу на сайте за 1000 руб

пишите сюда - alarforum@yandex.ru