VPF::Анализ и извлечение слов из предложения.

Softaz

Дата 19.3.2006, 20:03 (ссылка)

(нет голосов)

Загрузка ...

wasm

Профиль
Группа: Участник
Сообщений: 373
Регистрация: 16.1.2006

Репутация: нет
Всего: 16

Частной целью является получение слов из введенного в поле (Memo, RichEdit) предложения. И запись в переменную (желательно в цикле и без использования массивов) каждого слова.
Маленький рабочий пример набросал. Однако, он "падает" при некоторых вещах: например, после запятой нет пробела или стоит несколько пробелов сразу.
Нет ли готового решения? Пока в голову ничего не приходит

Код


//цикл
  repeat
//Убираем ненужные символы (знаки препинания и др.)
  MEmo1.Text := StringReplace(memo1.Text, ',', '', [rfReplaceAll]);
  {
  ...  ...
  ...  ...
  }
  MEmo1.Text := TrimLeft(MEmo1.Text);

  str1 := MEmo1.Text;//
  i:=pos(' ',str1); //сколько символов с начала строки до первого пробела?
  comd:=copy(str1,0,i-1); //скопируем их в переменную comd (это и есть слово)
  MEmo1.Text := StringReplace(memo1.Text, comd+' ', '', [rfReplaceAll]);//и удаляем их из Memo вместе
                                                                        // с идущим за ним пробелом
  MessageBox(0, Pchar('/'+comd+'/'), '', mb_ok);//А вот и слово!

  until(comd = '');
//_цикл

Это сообщение отредактировал(а) Softaz - 19.3.2006, 20:04

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

Разочарованный в .NET

Демо

Дата 19.3.2006, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Вот типичный конечный автомат:

Код


procedure SplitStr(const Src: String; L: TStrings);
type
    TState=(stNone,stWord);
var
    i: Integer;
    LenSrc: Integer;
    State: TState;
    bPos: Integer;
begin
    State := stNone;
    LenSrc := Length(Src);
    i := 1;
    bPos := 1;

    while i<=LenSrc do
    begin
        case State of
            stNone:
                if not (Src[i] in [' ',',','.','!','?']) then
                begin
                    State := stWord;
                    bPos := i;
                end;
            stWord:
                if Src[i] in [' ',',','.','!','?'] then
                begin
                    State := stNone;
                    L.Add(Copy(Src,bPos,i-bPos));
                end;
        end;
        Inc(i);
    end;
    if State=stWord then L.Add(Copy(Src,bPos,LenSrc-bPos+1));
end;

Код


procedure TForm1.SpeedButton1Click(Sender: TObject);
var
    s: String;
begin
    s := ' Мама, мыла! раму!';
    SplitStr(s,Memo1.Lines);
end;

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

Softaz

Дата 19.3.2006, 21:50 (ссылка)

(нет голосов)

Загрузка ...

wasm

Профиль
Группа: Участник
Сообщений: 373
Регистрация: 16.1.2006

Репутация: нет
Всего: 16

Демо, Большое Спасибо!

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

Разочарованный в .NET

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »