Замена сразу нескольких слов...

[FleXik]

Здравствуйте, у меня проблема. Нужно в тексте заменить два разных слова на два других разных мною указанных слова и результат вывести в Memo. Код:

var
words:string;
begin
if Pos('привет', Memo1.Text)<>0 then
words:=StringReplace(Memo1.Text, 'привет', 'здравствуйте', [rfReplaceAll, rfIgnoreCase]);

if Pos('как дела?', Memo1.Text)<>0 then
words:=StringReplace(Memo1.Text, 'как дела?', 'отлично', [rfReplaceAll, rfIgnoreCase]);
Memo2.Lines.Add(words);
end;

Так вот оно заменяет или одно или другое слово (зависит от того в каком порядке расположен код) а мне нужно что бы сразу два или больше слов заменяло... Как это правильно реализовать? Спасибо.

[Serge_Bliznykov]

Во-первых, у Вас код делает не то, что Вы написали.
этот код заменяет не слово, а просто словочетание (набор букв, который к слову отношения не имеет). Напишите, например такой текст:
Приветствую тебя! Я к тебе пришёл с приветом!
выполните первую замену и убедитесь в том, что у Вас заменяются не слова, а набор заданных букв.
Впрочем, как Вы и сами можете догадаться, в тексте не может быть СЛОВА "Как дела?". При любом раскладе - это НЕ СЛОВО! Я бы сказал, что это, скорее, целое предложение!

во-вторых, если Вас устраивает замена по отдельности (несмотря на то, что меняются не слова), то чем Вас не устраивает последовательная замена?!!
Только написать её надо правильно. вот так примерно:

begin
words := Memo1.Text;
if Pos('привет', words)>0 then
   words:=StringReplace(words, 'привет', 'здравствуйте', [rfReplaceAll, rfIgnoreCase]);

if Pos('как дела?', words)>0 then
   words:=StringReplace(words, 'как дела?', 'отлично', [rfReplaceAll, rfIgnoreCase]);

Memo2.Lines.Add(words);

[Poma][a]

Приветствую тебя! Я к тебе пришёл с приветом!

Что-то мне кажется, что исправленный код тоже тут накосячит..
И тут получается шушуть интересный момент..
Можно заменять так.. Pos ('привет_').. (пробел я заменил на '_').. И дальше в StringReplace проводить тоже..
НО
Привет! Как дела?
Косячит..
Поэтому можно делать так (если других идей нет)..

const
     s = ' ,.!?'; // вроде всё..

for i := 1 to Length(s) do
      if Pos ('привет'+s[i], words) <> 0 then
            words:=StringReplace(words, 'привет'+s[i], 'здравствуйте'+s[i], [rfReplaceAll, rfIgnoreCase]);

[FleXik]

Serge_Bliznykov, работает, но забыл упомянуть что у меня используется TStringList (думал со стринглистом и Memo будет одинаково...) так вот если делать так:

var
sl:TStringList;
words:string;
begin
sl:=TStringList.Create;
sl.LoadFromFile('trololo.txt');
words := sl.Text;

if Pos('привет', words)>0 then
   words:=StringReplace(words, 'привет', 'здравствуйте', [rfReplaceAll, rfIgnoreCase]);

if Pos('как дела?', words)>0 then
   words:=StringReplace(words, 'как дела?', 'отлично', [rfReplaceAll, rfIgnoreCase]);

Memo2.Lines.Add(words);
sl.Free;

с Memo работает а с TStringList не хочет... и у меня не предложение а именно слова, это я как пример дал...

----------------------------

в моем проэкте не работало, создал новый что бы проверить - работает, сейчас буду разбираться со своим проэктом...

[FleXik]

короче оказалось что я строку words := sl.Text; прописывал выше чем нужно было из-за этого работало не корректно, 2 часа мозг ломал, нервов не напасешься.... всем спасибо

[Аватар]

Pomaхa, твоя попытка сделать полноценный разбор по словам неудачна. Для примера слово 'Привет' pos не найдет. Тот же 'привет' может быть окончанием другого слова, по крайней мере теоретически. Но если бы другое слово было, то и практически. Можно еще мозгу напрячь и придумать какую-нибудь г

[Poma][a]

Pomaхa, твоя попытка сделать полноценный разбор по словам неудачна.

Ага..

Можно еще мозгу напрячь и придумать какую-нибудь г

Выбрасываем Pos.. и words := words+' '; Еще контрпримеры?

[Аватар]

Сообщение от Poma][a

Еще контрпримеры?

физкульт-привет заменится на физкульт-здрасте

[Stilet]

Регулярные выражения никто не захотел опробовать? Не?

[Poma][a]

физкульт-привет заменится на физкульт-здрасте

Ну а по-моему звучит лучше

Хорошо.. А как исправить? Можно искать с пробелом.. Но 'Привет '.. завалит.. Или ',привет,' тоже..