Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Найти и заменить все строки в подстроке. [D7, WinXP]

Still Swamp © (2008-08-25 16:05:00)
Всегда юзал собственную функцию StrTran(ASourse:string; AMask:string; AReg:string); написанную во времена BP. Она в строке Source все подстроки AMask заменяет на AReg. Сейчас заметил что она работает не быстро. Решил переписать, однако на всяк случай хочу узнать, наверняка есть что нить подобное. Подскажите.

Still Swamp (2008-08-26 21:53:00) [1]
brother. а не важно. Данные в общем можно считать относительными друг друга.
Вообще p4. Текст 10кб около 1000 замен одного символан на три, и так 10000тыс раз.

TStars. Нет предела совершенству. В общем то не смотря ни на что, я таки начал юзать StringReplace, так как там есть учет регистра а мне писать лениво. Так что в моем случае на счет строк под которые динамически память отводится можно расслабиться. Я понимаю что можно было выделить буфер, потом заполнять его, расширяя блоками, но в моем случае смысла нет. StringReplace меня вполне удовлетворил.

TStas (2008-08-26 20:48:00) [2]
Да, конечно. На форуме в статьях висит очень хорошая статья на эту тему "Динамические структуры данных", где популярно объясненно, что самое жуткое, что можно сделать с длинной строкой это VeryLongStr := VeryLongStr + 'Что-то прибавляется'. Причём, чем длиннее строка, тем сильнее такая кнострукция тормозит.

> Result:=Result+Copy(Str, iLast, l-iLast+1); - Вот это оно и есть. Да ещё и в цикле :(

Amoeba (2008-08-26 12:55:00) [3]
Это смотрели?
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1059

brother (2008-08-26 12:07:00) [4]
> StringReplace с регистрами 1625ms
> StringReplace без регистров 422ms
> StrTran без регистров 94ms

где и как засечены ms?

Still Swamp (2008-08-26 12:04:00) [5]
За StringReplace спасибо. То что надо было. Но пока ждал ответа написал лисапед.

На одном и том же тексте.

StringReplace с регистрами 1625ms
StringReplace без регистров 422ms
StrTran без регистров 94ms

function StrTran(const Str:string; const StrIn:string; const StrOut:string):string;
var
StPs: integer;
StRes:WideString;
i:integer;
iLast:integer;
l:integer;
lIn:integer;
begin
Result:='';
i:=1;
iLast:=i;
l:=Length(Str);
lIn:=Length(StrIn);
while (i<l)and(i>0) do begin
i:=PosEx(StrIn, Str, i);
if i>0 then begin
Result:=Result+Copy(Str, iLast, i-iLast)+StrOut;
i:=i+lIn;
iLast:=i;
end;
end;
Result:=Result+Copy(Str, iLast, l-iLast+1);
end;

Loginov Dmitry (2008-08-25 23:58:00) [6]
> Но можно же, если строка очень длинная, сначала посчитать
> все вхождения, потом получить новую длинну, ну и сделать
> замены.

Если новое строковое значение по длине не превышает старого, то можно сделать за один проход цикла без предварительных подсчетов. Если превышает, то можно либо после подсчета установить длину итоговой строки, либо также за один проход делать, но устанавливать длину строки с запасом. В любом случае по сравнению с StringReplace() получим выигрыш в скорости в десятки/сотни/тысячи (в зависимости от объема данных) раз.

TStas (2008-08-25 23:22:00) [7]
Но можно же, если строка очень длинная, сначала посчитать все вхождения, потом получить новую длинну, ну и сделать замены. Это должно быстро работать. Действительно, StringReplace для длинных строк тромозит заметно.

Loginov Dmitry (2008-08-25 22:58:00) [8]
> если на asme попытаться переписать для скорости

хоть на чем перепиши, все-равно тормознее врядли сделаешь

Vlad Oshin (2008-08-25 17:29:00) [9]
стандартную

function StringReplace(const S, OldPattern, NewPattern: string;
Flags: TReplaceFlags): string;

если на asme попытаться переписать для скорости

Medbe}I{onok XML (2008-08-25 17:22:00) [10]
Тогда в чем вопрос? Продолжай ездить на собственном лисапете.

Still Swamp (2008-08-25 16:16:00) [11]
Ок. Спасибо. Забыл уточнить что спрашивал о стандартном средстве Delphi. Чужой код в данном случае к сожалению использовать не смогу.

Medbe}I{onok XML (2008-08-25 16:08:00) [12]
http://regexpstudio.com/RU/TRegExpr/Help/TRegExpr_Interface.html

function ReplaceRegExpr (const ARegExpr, AInputStr, AReplaceStr : string;
AUseSubstitution : boolean = False) : string;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »