Извлечение фактов из текста

[Sciv]

где я могу взять словари и как их подключать?

да нет, это мы уже тут в свою тему скатились Для простенькой программы не надо словарей. Как правильно заметил выше Ромаха, нужно, чтобы с начала строки до запятой шло имя, сразу после запятой - должность, а первое слово с большой буквы - имя фирмы. Тогда программа любое однотипно составленное предложение так разберет.

Код примерно такой:

ReadLn(s);
name:=Copy(s,1,pos(',',s)-1);
delete(s,1,pos(',',s));
dolj:=Copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
i:=1;
While not s[i] in ['А'..'Я'] or (i<=length(s)) do inc(i);
if i<>length(s) then begin
  firm:='';
  While (s[[i]<>' ') or (i<= length(s)) do firm:=firm+s[i];
end;

Как-то так, писал "на коленке"

[Лизавета7]

вы бы не могли просто сделать программку которая бы получая именно это предложение выводила именно эти данные. Большего не надо. Мне нужно просто продемонстрировать как это должно выглядеть.Не более

[Poma][a]

While (s[[i]<>' ') or (i<= length(s)) do firm:=firm+s[i];

Бесконечный цикл

While not s[i] in ['А'..'Я'] or (i<=length(s)) do inc(i);

А тут случаем не And будет?

[Sciv]

Ромаха, я ж говорю - на коленке писал, не особо следя за логикой - голова другим была занята. А для "исправить" тут куча народу есть. Ты, например

вы бы не могли просто сделать программку которая бы получая именно это предложение выводила именно эти данные.

Да легко, держите

to Ромаха: Там намного больше ошибок было

var s: string;
    i: integer;
begin
  s:=Edit1.Text;
  Label2.Caption:=Copy(s,1,pos(',',s)-1);
  delete(s,1,pos(',',s));
  Label3.Caption:=Copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  i:=1;
  While not (s[i] in ['А'..'Я']) and (i<=length(s)) do inc(i);
  if i<>length(s) then begin
    Label4.Caption:='';
    While (s[i]<>' ') and (i<= length(s)) do begin
      Label4.Caption:=Label4.Caption+s[i];
      inc(i);
    end;
  end;
end.

[Poma][a]

Ты, например

Ах вот оно что..

Там намного больше ошибок было

Соpy, Delete и Pos'ы я не смотрел..

[Лизавета7]

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

Да легко, держите

to Ромаха: Там намного больше ошибок было

var s: string;
    i: integer;
begin
  s:=Edit1.Text;
  Label2.Caption:=Copy(s,1,pos(',',s)-1);
  delete(s,1,pos(',',s));
  Label3.Caption:=Copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  i:=1;
  While not (s[i] in ['А'..'Я']) and (i<=length(s)) do inc(i);
  if i<>length(s) then begin
    Label4.Caption:='';
    While (s[i]<>' ') and (i<= length(s)) do begin
      Label4.Caption:=Label4.Caption+s[i];
      inc(i);
    end;
  end;
end.

ВЫ МОЙ БОГ!!! Спасибо!

[Sciv]

ВЫ МОЙ БОГ!!!

Эво как легко нынче обожествиться-то!

Соpy, Delete и Pos'ы я не смотрел..

Как раз в них-то все было правильно

[Poma][a]

Как раз в них-то все было правильно

А тогда что же я проморгал? А то и сейчас, сравнивая Ваши коды, разницы не вижу..

[Лизавета7]

А если я захочу поменять фамилию в этом предложении? как мне это сделать?

И ещё! Мне нужно чтобы на исходе выдавало
Имя: Андрей Васильев
Организация: Евроопт <---вот таким образом.

[Sciv]

А если я захочу поменять фамилию в этом предложении? как мне это сделать?

Я там поле ввода сделал, в нем вместо фамилии введите новую, остальное предложение не трогайте.