[Cros]

Здравствуйте, помогите написать функцию замены слов в строке на другие слова, напрмер, дана строка 'one two one three oneone' надо заменить one на zero. Должно получиться: 'zero two zero three oneone'

[Karsh]

Можно разбить строку на слова и заменять слова поотдельности, например так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

function ReplaceStr(S, Srch, Replace: string; Delim: Char; IgnoreCase: boolean): string; var   i, l: integer;   tmp: string;   ReplaceFlags: TReplaceFlags; begin   Result:= '';   l:= Length(S);   if l < 1 then exit;   tmp:= '';   if IgnoreCase then ReplaceFlags:= [rfIgnoreCase] else ReplaceFlags:= [];   for i:= 1 to l do   begin     tmp:= tmp + s[i];     if (s[i] = Delim) or (i = l) then     begin       if Trim(tmp) = Trim(Srch + Delim) then         tmp:= StringReplace(tmp, Srch, Replace, ReplaceFlags);       Result:= Result + tmp;       tmp:= '';     end;   end; end;   procedure TForm1.Button1Click(Sender: TObject); const   x1 = 'one two one three oneone';   x2 = 'one two one three oneone one';   x3 = 'one,two,one,three,oneone';   x4 = 'one, two, one, three, oneone'; var   s: string; begin   s:= ReplaceStr(x1, 'one', 'zero', ' ', false);   s:= s + #13#10 + ReplaceStr(x2, 'one', 'zero', ' ', false);   s:= s + #13#10 + ReplaceStr(x3, 'one', 'zero', ',', false);   s:= s + #13#10 + ReplaceStr(x4, 'one', 'zero', ',', false);   ShowMessage(s); end;

[Aristarh Dark]

StringReplace

[Karsh]

Сообщение от Aristarh Dark

StringReplace

Cros'у нужно заменять слова, а StringReplace для этого не подходит.
StringReplace заменит строку "one two one three oneone" на "zero two zero three zerozero", а нужно на "zero two zero three oneone".

[Aristarh Dark]

Код:

1	StringReplace('one two one three oneone','one ','zero ',[rfReplaceAll])

[Karsh]

Сообщение от Aristarh Dark

Код:

А если строка будет такой "one two one three oneone one"?

[Aristarh Dark]

Karsh, но если строка будет вида:
"one, two one three oneone one"
то не будет работать и твоя функция

[Cros]

спасибо, братцы!

[Cros]

спасибо, братцы!

[Karsh]

Aristarh Dark, да, но я хотя бы попытался ответитить на вопрос Cros'а, а не "отписался" бесполезной (в данном вопросе) функцией.
Главная идея это разбить строку на слова. А мою функцию можно использовать как пример для создания более универсальной функции, которая будет учитывать различные разделители слов.

Хотя бы так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

function ReplaceStr(S, Srch, Replace: string; IgnoreCase: boolean): string; var   i, l: integer;   tmp: string;   ReplaceFlags: TReplaceFlags; begin   Result:= '';   l:= Length(S);   if l < 1 then exit;   tmp:= '';   if IgnoreCase then ReplaceFlags:= [rfIgnoreCase] else ReplaceFlags:= [];   for i:= 1 to l do   begin     if (s[i] in [' ', ',', '.', ':']) or (i = l) then     begin       if i = l then tmp:= tmp + s[i];       if (Trim(tmp) = Trim(Srch)) then         tmp:= StringReplace(tmp, Srch, Replace, ReplaceFlags);       if i < l then tmp:= tmp + s[i];       Result:= Result + tmp;       tmp:= '';     end else tmp:= tmp + s[i];   end; end;   procedure TForm1.Button1Click(Sender: TObject); const   x1 = 'one two one three oneone';   x2 = 'one two one three oneone one';   x3 = 'one,two,one,three,oneone';   x4 = 'one, two, one, three, oneone';   x5 = 'one, two one three oneone one'; var   s: string; begin   s:= ReplaceStr(x1, 'one', 'zero', false);   s:= s + #13#10 + ReplaceStr(x2, 'one', 'zero', false);   s:= s + #13#10 + ReplaceStr(x3, 'one', 'zero', false);   s:= s + #13#10 + ReplaceStr(x4, 'one', 'zero', false);   s:= s + #13#10 + ReplaceStr(x5, 'one', 'zero', false);   ShowMessage(s); end;

[Aristarh Dark]

Я не отписался, а задал направление поиска.
А на счет разбиения на слова, я уже как-то выкладывал на форум свои функции подсчета количества слов и получения слова по его индексу из строки. Вопрос только в поиске.

[Yurk@]

Попробуй так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

uses StrUtils;   var f,r :AnsiString; begin f:='one'; r:='zero'; // ищем в самом начале строки if AnsiStartsStr(f,Edit1.Text) then Edit2.Text:=StringReplace(Edit1.Text,f,r,[]);   // ищем внутри строки без запятой if AnsiContainsStr(Edit2.Text, ' '+f+' ') then Edit2.Text:=StringReplace(Edit2.Text,' '+f+' ',' '+r+' ',[rfReplaceAll]);   // ищем внутри строки с запятой if AnsiContainsStr(Edit2.Text, ' '+f+', ') then Edit2.Text:=StringReplace(Edit2.Text,' '+f+', ',' '+r+', ',[rfReplaceAll]);   // ищем в конце строки if AnsiContainsStr(Copy(Edit2.Text,Length(Edit2.Text)-Length(f),Length(f)+1), ' '+f) then Edit2.Text:=StuffString(Edit2.Text,Length(Edit2.Text)-Length(f)+1,Length(f),r);