Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1622343 Tue, 03 Jul 2007 08:19:21 +0000 Замена текста по маске https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1622343 ну а смысл, все равно эти замены невозможно учесть, т.к. в искомом для замены тексте, могут быть и маски и текст!
а различить в подобном случае(по сабжу) невозможно!
Разве что, если б переменная mask имела бы тип, типа записи:
TList=record
Substr:array of string;
Mask:array of boolean;
Text:string;
...
end;

где Text:=Substr[0]+..+Substr[n];
а массив Mask говорил бы где Sumstr маска а где текст.
И только тогда-бы логика замены была актуальна для любых вариантов набора сиволов!

Добавлено
>>Soul :)
Хотя..., примите плз извенения, за поспешные выводы...
Просто жара-лето, как-то недумается)
Если хорошенько подготовить строку mask перед заменой, типа:
op:= mask;
op:=StringReplace(op,'\','\\',[rfReplaceAll]);
op:=StringReplace(op,'+','\+',[rfReplaceAll]);
op:=StringReplace(op,'[','\[',[rfReplaceAll]);
op:=StringReplace(op,'.','\.',[rfReplaceAll]);
...
op:=StringReplace(op,'?','.',[rfReplaceAll]);
op:=StringReplace(op,'*','.*',[rfReplaceAll]);
то будет выходить нормальный результат)

ЗЫ: Но все же, если что, сообщу...
ЗЗЫ: И Вы тоже, если найдете готовый алгоритм, сообщите плз...]]> Krants Алгоритмы https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1622312 Tue, 03 Jul 2007 08:03:53 +0000 Замена текста по маске https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1622312
\. => \\\.]]> Soul :) Алгоритмы https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1622296 Tue, 03 Jul 2007 07:55:54 +0000 Замена текста по маске https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1622296 При вычете в строке "9\.99" текста по маске "9\." выходит: "9\.99" - т.е. ничего не выходит!]]> Krants Алгоритмы https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1622267 Tue, 03 Jul 2007 07:34:45 +0000 Замена текста по маске https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1622267 Soul :) Алгоритмы https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1622254 Tue, 03 Jul 2007 07:18:51 +0000 Замена текста по маске https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1622254 В "Exele" из "9.99" вычитываю "9." выходит: "99"
В TRegExpr:
StrReplaceRegex(const s,mask,replace: string): string;
StrReplaceRegex("9.99","9.","")=>"" - удаляет все!
Имеется ввиду, если в маске существуют точка(и), то TRegExpr воспринимает ее как спецсимвол а не как точку!]]> Krants Алгоритмы https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1621775 Mon, 02 Jul 2007 16:40:08 +0000 Замена текста по маске https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1621775 TRegExpr library

Добавлено
Пример:
    uses
      regexpr;
     
    function StrReplaceRegex(const s,mask,replace: string): string;
    var
      regex: TRegExpr;
    begin
      regex := TRegExpr.Create;
      regex.Expression := mask;
      result := regex.Replace(s,replace);
      regex.free;
    end;
     
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowMessage(StrReplaceRegex('Тут был Вася!','. Вася.*','ли Вася и Петя'));
    end;


Добавлено
Точка ('.') соответсует wildcard'у '?', а если после символа стоит звёздочка ('*'), значит он может повторяться любое количество раз, т.е. regex'овское '.?' эквивалентно DOS-овскому '*'. Подробнее смотри на том же сайте: Синтаксис]]> ors_archangel Алгоритмы https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1620984 Mon, 02 Jul 2007 07:16:18 +0000 Замена текста по маске https://forum.sources.ru/index.php?showtopic=193345&view=findpost&p=1620984 функцию либо алгоритм замены текста в строке по маске(?*)

типа:
function StringMaskReplace(Text,MaskSubStr,NewSubStr:string):string;

StringMaskReplace("Тут был Вася","? Вася*","ли Вася и Петя")
=>"Тут были Вася и Петя"

Зызб)]]> Krants Алгоритмы