замена слов

[lekom]

Здравствуйте, мне необходимо сделать прогу в которой слова будут заменяться на синонимы, то есть есть два файла .txt, в одном текст о чем нибудь, во втором база синонимов следующего вида:
авто|машина|автомобиль
доска|жердь|дерево
и т.д.

Прога будет подгружать два этих файла и по нажатию кнопки заменять слова на синонимы, как сделать так, чтобы если в тексте попалось, например, слово "автомобиль" прога заменяла рандоумом на слово "авто" или "машина"? ну и про другие слова аналогично (то есть если в тексте встретилось 1-е слово из списка синонимов, то надо поставить 2-е или 3-е, если попалось 2-е слово, то надо заменить на 1 или 3 и т.д.),

Заранее всем спасибо

[andreibtzt]

не очень сложно, зделаи алгоритм для поик ' ' и когда нашол ' ' то копирует слово, ну например

procedure TForm1.dispose;
const stroka='привет как дела';
var
i:integer;
s:string;
begin
 for i:=0 to length(stroka) do
 if pos(' ',stroka)<>0 then
 begin
   s:=Copy(stroka,1,Pos(' ', stroka));
  ShowMessage(s);
 end;
end;

[lekom]

Сообщение от andreibtzt

не очень сложно, зделаи алгоритм для поик ' ' и когда нашол ' ' то копирует слово, ну например

procedure TForm1.dispose;
const stroka='привет как дела';
var
i:integer;
s:string;
begin
 for i:=0 to length(stroka) do
 if pos(' ',stroka)<>0 then
 begin
   s:=Copy(stroka,1,Pos(' ', stroka));
  ShowMessage(s);
 end;
end;

А можно поподробнее не сказать, что я начальный уровень пользователя Delphi, но до среднего тоже далеко))

вот меня как раз и интересует как выделить в тексте слово, сравнить его со словом в базе и взять с базы синоним?

[Yurk@]

посмотри еще в сторону:
первая , вторая и третья

[lekom]

Сообщение от Yurk@

посмотри еще в сторону:
первая , вторая и третья

Вот это пример конечно интересный:

var
before, after : string;

begin
// Попытка заменить все вхождения A на THE
before := 'This is a way to live A big life';

after := StringReplace(before, ' a ', ' THE ',
[rfReplaceAll, rfIgnoreCase]);
ShowMessage('Before = '+before);
ShowMessage('After = '+after);
end;


НО, ведь у меня будет большое количество слов, поэтому надо, чтобы прога сама находила слова и заменяла их на синонимы, если они есть в базу, то есть надо доработать строчку:

after := StringReplace(before, ' слово ', ' синоним ',
[rfReplaceAll, rfIgnoreCase]);

я так и не догнал как выделить из текста слово и сравнить его с синонимом...

[TwiX]

Допустим у тебя есть
qW - массив слов (qN - количество слов)
qS - массив синонимов (их кол-во, соответственно, равно qN)

Тогда получаем

for i:=1 to qN do
 before:= StringReplace(before, qW, qS,
[rfReplaceAll, rfIgnoreCase]);

[apromix]

lekom
Если сделаешь, выложи исходник. Мне тоже подобное сейчас надо.

[TwiX]

2apromix, тут что-то не работает?:

for i:=1 to qN do
 before:= StringReplace(before, qW, qS,
[rfReplaceAll, rfIgnoreCase]);