Найти в Memo определенное слово и выполнить зарезервированное действие.

@Rantip · Регистрация: 12.05.2010

Author24 — интернет-сервис помощи студентам

Memo заполняется различными словами:

Слово 1
Слово 2
Слово 3

Нужно найти слово, на которое есть какое-то зарезервированное действие.
Вопрос в том, как именно запрограммировать псевдокод такого вида:

if ("Слово Х" in Memo1) then do begin Действие

При этом после каждого клика на Button список слов в Memo обновляется.
По сути, это чат-бот, который отвечает шаблонными фразами на различные найденные маски-слов.

Добавлено через 20 часов 19 минут
Нужны любые подсказки и примеры, братцы.

@NIKOLAYY · 19.05.2014, 01:22

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

Нужно найти слово, на которое есть какое-то зарезервированное действие.

У тебя довольно простенький вариант, лови:

Delphi

var
  i, j, k: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    for j := 0 to Memo2.Lines.Count - 1 do
    begin
      k := Pos(Memo1.Lines[i], Memo2.Lines[j]);
      if k <> 0 then
      begin
        ListBox1.Items.Add(FormatDatetime('[hh.mm.ss]: ', Time)+ Memo2.Lines.ValueFromIndex[j]);
        break;
      end;
    end;
end;

У меня был гораздо сложнее в переменную из интернета из чата я грузил исходный код страницы по таймеру раз в 30 секунд, затем код искал фразу из моего списка фраз около нескольких сотен, сортировал еще чтобы два раза неответить одинаковым ответом и отвечал потом соответствующим шаблоном (грузил в переменную и снова таймер отправлял ответ в чат), ну а если ненаходил такой, то отвечал фразой "пустышкой" из другого списка. Правда списки у меня не в мемо были, а прямо из файла читал.

Ну тебе думаю и этот код неплохо будет! Просто я незнаю твоих целей что за бота ты пишеш и зачем ты его пишеш.
Если так в сети пофлудить собрался- то несоветую, а если для компьтера для себя программу пишеш, то пиши.

@NIKOLAYY · 19.05.2014, 01:32

В принципе тынетолько отвечать на фразы можеш, но и другие действия делать если найдена фраза !стоп! например то выключить компьтер. Так у меня тоже работало, даже через сеть в чате писал !стоп! и условие было сделать Close.

@Rantip · 19.05.2014, 16:12 **[ТС]**

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

У тебя довольно простенький вариант

Спасибо. Это будет аналог компьютерного психиатра Элиза. Т.е чат-бот в итоге отвечает на зарезервированные слова в системе. Плюс она может перефразировать вопрос пользователя (такой у нее изначальный смысл работ). Осталось только перефразирование запилить.

@NIKOLAYY · 19.05.2014, 16:23

Rantip,
В моем варианте если одно слово стоит на одной строке напрмер-
Осень
То оно тока тогда будет найдено найдено!
Но можно переписать код так чтобы его искало например и в таких случаях-
Слово1 Осень Слово2
и я уже писал когда-то в прошлых сообщениях этот код.

@SatanaXIII · 20.05.2014, 14:35

Хмм.. Ну вот на плюсах это было бы просто:

C++

//---------------------------------------------------------------------------
#include <map>
#include <memory>
void Some()                          ////
  { ShowMessage( "Some" ); }           // Какие-то
void AnotherSome()                   ////     функции
  { ShowMessage( "Another Some" ); }   //
//--
std::map <String, void(*)()> Words;     // Собственно сам список со словами и
//--                                    //  соответствующими действиями
std::map<String, void(*)()> ::iterator iterWordMap;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Words["Some"] = Some;                     // Где-то в теле
Words["AnotherSome"] = AnotherSome;       //  программы заполняем
 
 
std::auto_ptr<TStringList> sl( new TStringList );
 
sl->DelimitedText = Memo1->Text;
long count = -1;
while( ++count < sl->Count )
  {
  for( iterWordMap = Words.begin(); iterWordMap != Words.end(); ++iterWordMap )
    if( sl->Strings[count] == iterWordMap->first )
      iterWordMap->second();
  }
}
//---------------------------------------------------------------------------

А вот как на делфи переписать, что-то затрудняюсь сейчас сказать.

@volvo · 20.05.2014, 15:24

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

А вот как на делфи переписать

Аналогично:

Delphi

uses Generics.Collections;
 
// ...
 
var
  words : TDictionary<string, TProc>;
 
procedure TForm1.Button9Click(Sender: TObject);
var
  s : string;
  L : TStringList;
begin
  Words := TDictionary<string, TProc>.Create;
  Words.Add('one', procedure begin ShowMessage('haha') end);
  Words.Add('two', procedure begin ShowMessage('hihi') end);
 
  L := TStringList.Create;
  try
    L.DelimitedText := Memo1.Text;
    for s in L do
      if words.ContainsKey(s) then words.Items[s]();
  finally
    L.Free;
  end;
 
  words.Free;
end;

@Rantip 47 / 1 / 0 Регистрация: 12.05.2010 Сообщений: 146
		1
	Найти в Memo определенное слово и выполнить зарезервированное действие. 18.05.2014, 17:18. Показов 1574. Ответов 6 Метки нет (Все метки) Memo заполняется различными словами: Слово 1 Слово 2 Слово 3 Нужно найти слово, на которое есть какое-то зарезервированное действие. Вопрос в том, как именно запрограммировать псевдокод такого вида: if ("Слово Х" in Memo1) then do begin Действие При этом после каждого клика на Button список слов в Memo обновляется. По сути, это чат-бот, который отвечает шаблонными фразами на различные найденные маски-слов. Добавлено через 20 часов 19 минут Нужны любые подсказки и примеры, братцы. 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	19.05.2014, 01:32	3
	В принципе тынетолько отвечать на фразы можеш, но и другие действия делать если найдена фраза !стоп! например то выключить компьтер. Так у меня тоже работало, даже через сеть в чате писал !стоп! и условие было сделать Close. 0

@Rantip 47 / 1 / 0 Регистрация: 12.05.2010 Сообщений: 146
	19.05.2014, 16:12 [ТС]	4
	Сообщение от NIKOLAYY У тебя довольно простенький вариант Спасибо. Это будет аналог компьютерного психиатра Элиза. Т.е чат-бот в итоге отвечает на зарезервированные слова в системе. Плюс она может перефразировать вопрос пользователя (такой у нее изначальный смысл работ). Осталось только перефразирование запилить. 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	19.05.2014, 16:23	5
	Rantip, В моем варианте если одно слово стоит на одной строке напрмер- Осень То оно тока тогда будет найдено найдено! Но можно переписать код так чтобы его искало например и в таких случаях- Слово1 Осень Слово2 и я уже писал когда-то в прошлых сообщениях этот код. 0

	20.05.2014, 15:24