Замена текста по маске

[Krants]

Добрый день, подскажите плз.
функцию либо алгоритм замены текста в строке по маске(?*)

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

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

Зызб)

Сообщение отредактировано: Krants - 02.07.07, 07:27

[ors_archangel]

TRegExpr library

Добавлено 02.07.07, 16:48
Пример:

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;

Добавлено 02.07.07, 16:52
Точка ('.') соответсует wildcard'у '?', а если после символа стоит звёздочка ('*'), значит он может повторяться любое количество раз, т.е. regex'овское '.?' эквивалентно DOS-овскому '*'. Подробнее смотри на том же сайте: Синтаксис

[Krants]

Спасибо за раскрытый ответ, но в TRegExpr мне эти точки не очень нравятся, сбивается логика, да и к тому же в некоторых случаях она нарушена, может ошибаюсь но вот к примеру:
В "Exele" из "9.99" вычитываю "9." выходит: "99"
В TRegExpr:
StrReplaceRegex(const s,mask,replace: string): string;
StrReplaceRegex("9.99","9.","")=>"" - удаляет все!
Имеется ввиду, если в маске существуют точка(и), то TRegExpr воспринимает ее как спецсимвол а не как точку!

[Soul :)]

. => \.

[Krants]

Тогда возможен другой недочет:
При вычете в строке "9\.99" текста по маске "9\." выходит: "9\.99" - т.е. ничего не выходит!

[Soul :)]

Может все-таки документацию почитаешь?

\. => \\\.

[Krants]

Имели ввиду "\. => \\." ?
ну а смысл, все равно эти замены невозможно учесть, т.к. в искомом для замены тексте, могут быть и маски и текст!
а различить в подобном случае(по сабжу) невозможно!
Разве что, если б переменная mask имела бы тип, типа записи:
TList=record
Substr:array of string;
Mask:array of boolean;
Text:string;
...
end;

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

Добавлено 03.07.07, 09:15
>>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 - 03.07.07, 09:18