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

made in programmersforum 4

Интенсив по 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. Но тенденция должна сохраниться.

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

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

made in programmersforum 4

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

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

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

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