यदि तपाईंले अघिल्लो पढ्नुभएको छ भने यस शृङ्खलाबाट, त्यसोभए तपाईलाई पहिले नै थाहा छ कि कसरी किबोर्डको साथ पूर्ण टेलिग्राम बटहरू लेख्ने।
यस लेखमा, हामी कसरी एक बट लेख्ने भनेर सिक्ने छौँ जसले निरन्तर संवाद कायम राख्छ। ती। बोटले तपाईंलाई प्रश्नहरू सोध्नेछ र तपाईंले केही जानकारी प्रविष्ट गर्नको लागि पर्खनेछ। तपाईंले प्रविष्ट गर्नुभएको डाटामा निर्भर गर्दै, बोटले केही कार्यहरू गर्नेछ।
साथै यस लेखमा हामी बोटको हुड अन्तर्गत डेटाबेस कसरी प्रयोग गर्ने भनेर सिक्नेछौं, हाम्रो उदाहरणमा यो SQLite हुनेछ, तर तपाइँ कुनै अन्य DBMS प्रयोग गर्न सक्नुहुन्छ। मैले R भाषामा डाटाबेसहरूसँग अन्तरक्रिया गर्ने बारे थप विवरणमा लेखें .
"R मा टेलिग्राम बट लेख्दै" श्रृंखलाका सबै लेखहरू
सामग्रीहरू
यदि तपाइँ डेटा विश्लेषणमा रुचि राख्नुहुन्छ भने, तपाइँ मेरो मा रुचि राख्न सक्नुहुन्छ и च्यानलहरू। अधिकांश सामग्री आर भाषामा समर्पित छ।
परिचय
बोटले तपाईंबाट डेटा अनुरोध गर्न र तपाईंले कुनै पनि जानकारी प्रविष्ट गर्नको लागि पर्खनको लागि, तपाईंले संवादको हालको अवस्था रेकर्ड गर्न आवश्यक हुनेछ। यो गर्न को लागी सबै भन्दा राम्रो तरिका केहि प्रकार को एम्बेडेड डाटाबेस को उपयोग गर्न को लागी हो, जस्तै SQLite।
ती। तर्क निम्नानुसार हुनेछ। हामी बोट विधिलाई कल गर्छौं, र बोटले क्रमशः हामीबाट केही जानकारी अनुरोध गर्दछ, र प्रत्येक चरणमा यो जानकारी प्रविष्ट हुनको लागि पर्खन्छ र यसलाई जाँच गर्न सक्छ।
हामी सबैभन्दा सरल सम्भव बोट लेख्नेछौं, पहिले यसले तपाईंको नाम सोध्नेछ, त्यसपछि तपाईंको उमेर, र प्राप्त डाटा डाटाबेसमा बचत गर्नेछ। उमेरको लागि सोध्दा, यसले जाँच गर्नेछ कि प्रविष्ट गरिएको डाटा नम्बर हो र पाठ होइन।
यस्तो सरल संवादमा केवल तीन राज्यहरू हुनेछन्:
- start भनेको बोटको सामान्य अवस्था हो, जसमा यसले तपाइँबाट कुनै जानकारीको अपेक्षा गर्दैन
- प्रतीक्षा_नाम - राज्य जसमा बोटले नाम प्रविष्ट गर्न पर्खन्छ
- wait_age त्यो अवस्था हो जसमा बोटले तपाईंको उमेर प्रविष्ट हुनको लागि पर्खन्छ, पूर्ण वर्षहरूको संख्या।
बोट निर्माण प्रक्रिया
लेखको बखत, हामी चरण-दर-चरण बोट निर्माण गर्नेछौं; सम्पूर्ण प्रक्रियालाई योजनाबद्ध रूपमा निम्नानुसार चित्रण गर्न सकिन्छ:
- हामीले बोट कन्फिगरेसन सिर्जना गर्छौं जसमा हामी केही सेटिङहरू भण्डार गर्नेछौं। हाम्रो अवस्थामा, बोट टोकन, र डाटाबेस फाइलको लागि मार्ग।
- हामी एउटा वातावरण चर सिर्जना गर्छौं जसमा बोटको साथ परियोजनाको मार्ग भण्डार गरिनेछ।
- हामी डाटाबेस आफैं र धेरै प्रकार्यहरू सिर्जना गर्छौं ताकि बोटले यसमा अन्तरक्रिया गर्न सक्छ।
- हामी बोट विधिहरू लेख्छौं, अर्थात् यसले गर्ने कार्यहरू।
- सन्देश फिल्टरहरू थप्दै। जसको मद्दतले बोटले च्याटको हालको अवस्थाको आधारमा आवश्यक विधिहरू पहुँच गर्नेछ।
- हामी आवश्यक बट विधिहरूसँग आदेश र सन्देशहरू जडान गर्ने ह्यान्डलरहरू थप्छौं।
- बोट सुरु गरौं।
बोट परियोजना संरचना
सुविधाको लागि, हामी हाम्रो बोटको कोड, र अन्य सम्बन्धित फाइलहरूलाई निम्न संरचनामा विभाजन गर्नेछौं।
- बोट आर — हाम्रो बोटको मुख्य कोड
- db_bot_function.R - डाटाबेस संग काम गर्न को लागी कार्यहरु संग कोड को एक ब्लक
- bot_methods.R - बोट विधिहरूको कोड
- message_filters.R - सन्देश फिल्टरहरू
- ह्यान्डलरहरू.आर - ह्यान्डलरहरू
- config.cfg - बोट कन्फिगरेसन
- create_db_data.sql - डाटाबेसमा च्याट डाटाको साथ तालिका सिर्जना गर्न SQL स्क्रिप्ट
- create_db_state.sql - डाटाबेसमा हालको च्याट अवस्थाको तालिका सिर्जना गर्न SQL स्क्रिप्ट
- bot.db - बोट डाटाबेस
तपाईं सम्पूर्ण बोट परियोजना हेर्न सक्नुहुन्छ, वा मेरो बाट .
बट कन्फिगरेसन
हामी कन्फिगरेसनको रूपमा सामान्य प्रयोग गर्नेछौं , निम्न फारम:
[bot_settings]
bot_token=ТОКЕН_ВАШЕГО_БОТА
[db_settings]
db_path=C:/ПУТЬ/К/ПАПКЕ/ПРОЕКТА/bot.dbकन्फिगरेसनमा हामी बोट टोकन र डाटाबेसको मार्ग लेख्छौं, अर्थात्। bot.db फाइलमा; हामी अर्को चरणमा फाइल आफैं सिर्जना गर्नेछौं।
थप जटिल बटहरूको लागि, तपाइँ थप जटिल कन्फिगहरू सिर्जना गर्न सक्नुहुन्छ, यसबाहेक, ini कन्फिगरेसन लेख्न आवश्यक छैन, तपाइँ JSON सहित कुनै अन्य ढाँचा प्रयोग गर्न सक्नुहुन्छ।
वातावरण चर सिर्जना गर्नुहोस्
प्रत्येक पीसीमा, बोट प्रोजेक्ट भएको फोल्डर विभिन्न डाइरेक्टरीहरूमा र विभिन्न ड्राइभहरूमा अवस्थित हुन सक्छ, त्यसैले कोडमा प्रोजेक्ट फोल्डरमा जाने बाटो वातावरण चर मार्फत सेट गरिनेछ। TG_BOT_PATH.
त्यहाँ वातावरण चर सिर्जना गर्न धेरै तरिकाहरू छन्, सबैभन्दा सरल फाइलमा लेख्न हो रेन्भिरोन.
तपाईंले आदेश प्रयोग गरेर यो फाइल सिर्जना वा सम्पादन गर्न सक्नुहुन्छ file.edit(path.expand(file.path("~", ".Renviron")))। यसलाई कार्यान्वयन गर्नुहोस् र फाइलमा एउटा लाइन थप्नुहोस्:
TG_BOT_PATH=C:/ПУТЬ/К/ВАШЕМУ/ПРОЕКТУअर्को फाइल बचत गर्नुहोस् रेन्भिरोन र RStudio पुन: सुरु गर्नुहोस्।
डाटाबेस सिर्जना गर्दै
अर्को चरण डाटाबेस सिर्जना गर्न हो। हामीलाई 2 टेबल चाहिन्छ:
- chat_data - डाटा जुन बोटले प्रयोगकर्ताबाट अनुरोध गरेको थियो
- chat_state — सबै च्याटहरूको हालको अवस्था
तपाइँ निम्न SQL क्वेरी प्रयोग गरी यी तालिकाहरू सिर्जना गर्न सक्नुहुन्छ:
CREATE TABLE chat_data (
chat_id BIGINT PRIMARY KEY
UNIQUE,
name TEXT,
age INTEGER
);
CREATE TABLE chat_state (
chat_id BIGINT PRIMARY KEY
UNIQUE,
state TEXT
);
यदि तपाईंले बोट प्रोजेक्ट बाट डाउनलोड गर्नुभयो भने , त्यसपछि डाटाबेस सिर्जना गर्न तपाईंले R मा निम्न कोड प्रयोग गर्न सक्नुहुन्छ।
# Скрипт создания базы данных
library(DBI) # интерфейс для работы с СУБД
library(configr) # чтение конфига
library(readr) # чтение текстовых SQL файлов
library(RSQLite) # драйвер для подключения к SQLite
# директория проекта
setwd(Sys.getenv('TG_BOT_PATH'))
# чтение конфига
cfg <- read.config('config.cfg')
# подключение к SQLite
con <- dbConnect(SQLite(), cfg$db_settings$db_path)
# Создание таблиц в базе
dbExecute(con, statement = read_file('create_db_data.sql'))
dbExecute(con, statement = read_file('create_db_state.sql'))
डाटाबेससँग काम गर्न कार्यहरू लेखन
हामीसँग पहिले नै कन्फिगरेसन फाइल तयार छ र डाटाबेस सिर्जना गरिएको छ। अब तपाईले यस डाटाबेसमा डाटा पढ्न र लेख्नका लागि प्रकार्यहरू लेख्न आवश्यक छ।
यदि तपाइँ बाट परियोजना डाउनलोड गर्नुभयो , त्यसपछि तपाइँ फाइलमा कार्यहरू फेला पार्न सक्नुहुन्छ db_bot_function.R.
डाटाबेस संग काम गर्न को लागी प्रकार्य कोड
# ###########################################################
# Function for work bot with database
# получить текущее состояние чата
get_state <- function(chat_id) {
con <- dbConnect(SQLite(), cfg$db_settings$db_path)
chat_state <- dbGetQuery(con, str_interp("SELECT state FROM chat_state WHERE chat_id == ${chat_id}"))$state
return(unlist(chat_state))
dbDisconnect(con)
}
# установить текущее состояние чата
set_state <- function(chat_id, state) {
con <- dbConnect(SQLite(), cfg$db_settings$db_path)
# upsert состояние чата
dbExecute(con,
str_interp("
INSERT INTO chat_state (chat_id, state)
VALUES(${chat_id}, '${state}')
ON CONFLICT(chat_id)
DO UPDATE SET state='${state}';
")
)
dbDisconnect(con)
}
# запись полученных данных в базу
set_chat_data <- function(chat_id, field, value) {
con <- dbConnect(SQLite(), cfg$db_settings$db_path)
# upsert состояние чата
dbExecute(con,
str_interp("
INSERT INTO chat_data (chat_id, ${field})
VALUES(${chat_id}, '${value}')
ON CONFLICT(chat_id)
DO UPDATE SET ${field}='${value}';
")
)
dbDisconnect(con)
}
# read chat data
get_chat_data <- function(chat_id, field) {
con <- dbConnect(SQLite(), cfg$db_settings$db_path)
# upsert состояние чата
data <- dbGetQuery(con,
str_interp("
SELECT ${field}
FROM chat_data
WHERE chat_id = ${chat_id};
")
)
dbDisconnect(con)
return(data[[field]])
}हामीले 4 सरल प्रकार्यहरू सिर्जना गरेका छौं:
get_state()- डाटाबेसबाट हालको च्याट स्थिति प्राप्त गर्नुहोस्set_state()- डाटाबेसमा हालको च्याट स्थिति लेख्नुहोस्get_chat_data()- प्रयोगकर्ता द्वारा पठाइएको डाटा प्राप्त गर्नुहोस्set_chat_data()- प्रयोगकर्ताबाट प्राप्त डाटा रेकर्ड गर्नुहोस्
सबै प्रकार्यहरू एकदम सरल छन्, तिनीहरूले आदेश प्रयोग गरेर डाटाबेसबाट डाटा पढ्छन् dbGetQuery(), वा प्रतिबद्ध UPSERT कार्य (अवस्थित डाटा परिवर्तन गर्ने वा डाटाबेसमा नयाँ डाटा लेख्ने), प्रकार्य प्रयोग गरेर dbExecute().
UPSERT सञ्चालनको लागि वाक्यविन्यास निम्नानुसार छ:
INSERT INTO chat_data (chat_id, ${field})
VALUES(${chat_id}, '${value}')
ON CONFLICT(chat_id)
DO UPDATE SET ${field}='${value}';ती। हाम्रो तालिका क्षेत्रमा च्याट_आईडी एक विशिष्टता बाधा छ र तालिकाको प्राथमिक कुञ्जी हो। प्रारम्भमा, हामी तालिकामा जानकारी थप्ने प्रयास गर्छौं, र यदि हालको च्याटको लागि डाटा पहिले नै अवस्थित छ भने हामीले त्रुटि पाउँछौं, जसमा हामी केवल यस च्याटको लागि जानकारी अपडेट गर्छौं।
अर्को, हामी बोटको विधि र फिल्टरहरूमा यी प्रकार्यहरू प्रयोग गर्नेछौं।
बोट विधिहरू
हाम्रो बोट निर्माण गर्ने अर्को चरण विधिहरू सिर्जना गर्नु हो। यदि तपाइँ बाट परियोजना डाउनलोड गर्नुभयो , त्यसपछि सबै विधिहरू फाइलमा छन् bot_methods.R.
बट विधि कोड
# ###########################################################
# bot methods
# start dialog
start <- function(bot, update) {
#
# Send query
bot$sendMessage(update$message$chat_id,
text = "Введи своё имя")
# переключаем состояние диалога в режим ожидания ввода имени
set_state(chat_id = update$message$chat_id, state = 'wait_name')
}
# get current chat state
state <- function(bot, update) {
chat_state <- get_state(update$message$chat_id)
# Send state
bot$sendMessage(update$message$chat_id,
text = unlist(chat_state))
}
# reset dialog state
reset <- function(bot, update) {
set_state(chat_id = update$message$chat_id, state = 'start')
}
# enter username
enter_name <- function(bot, update) {
uname <- update$message$text
# Send message with name
bot$sendMessage(update$message$chat_id,
text = paste0(uname, ", приятно познакомится, я бот!"))
# Записываем имя в глобальную переменную
#username <<- uname
set_chat_data(update$message$chat_id, 'name', uname)
# Справшиваем возраст
bot$sendMessage(update$message$chat_id,
text = "Сколько тебе лет?")
# Меняем состояние на ожидание ввода имени
set_state(chat_id = update$message$chat_id, state = 'wait_age')
}
# enter user age
enter_age <- function(bot, update) {
uage <- as.numeric(update$message$text)
# проверяем было введено число или нет
if ( is.na(uage) ) {
# если введено не число то переспрашиваем возраст
bot$sendMessage(update$message$chat_id,
text = "Ты ввёл некорректные данные, введи число")
} else {
# если введено число сообщаем что возраст принят
bot$sendMessage(update$message$chat_id,
text = "ОК, возраст принят")
# записываем глобальную переменную с возрастом
#userage <<- uage
set_chat_data(update$message$chat_id, 'age', uage)
# сообщаем какие данные были собраны
username <- get_chat_data(update$message$chat_id, 'name')
userage <- get_chat_data(update$message$chat_id, 'age')
bot$sendMessage(update$message$chat_id,
text = paste0("Тебя зовут ", username, " и тебе ", userage, " лет. Будем знакомы"))
# возвращаем диалог в исходное состояние
set_state(chat_id = update$message$chat_id, state = 'start')
}
}हामीले 5 विधिहरू सिर्जना गरेका छौं:
- सुरु गर्नुहोस् - एक संवाद सुरु गर्नुहोस्
- राज्य - हालको च्याट स्थिति प्राप्त गर्नुहोस्
- रिसेट गर्नुहोस् - हालको च्याट स्थिति रिसेट गर्नुहोस्
- enter_name — बोटले तपाईंको नाम सोध्छ
- enter_age — बोटले तपाईंको उमेर सोध्छ
विधि start तपाईंको नामको लागि सोध्छ, र च्याट स्थितिमा परिवर्तन गर्दछ प्रतीक्षा_नाम, अर्थात् आफ्नो नाम प्रविष्ट गर्न को लागी स्ट्यान्डबाइ गर्न।
अर्को, तपाइँ नाम पठाउनुहुन्छ र यो विधि द्वारा प्रशोधन गरिन्छ enter_name, बोटले तपाईंलाई अभिवादन गर्छ, डाटाबेसमा प्राप्त नाम लेख्छ, र च्याटलाई राज्यमा स्विच गर्दछ। प्रतीक्षा_उमेर.
यस चरणमा, बोटले तपाइँ तपाइँको उमेर प्रविष्ट गर्न अपेक्षा गर्दछ। तपाईंले आफ्नो उमेर पठाउनुहुन्छ, बोटले सन्देश जाँच गर्दछ, यदि तपाईंले नम्बरको सट्टा केही पाठ पठाउनुभयो भने, यसले यसो भन्छ: Ты ввёл некорректные данные, введи число, र तपाइँ तपाइँको डेटा पुन: प्रविष्ट गर्न को लागी प्रतीक्षा गर्नेछ। यदि तपाईंले नम्बर पठाउनुभयो भने, बोटले रिपोर्ट गर्नेछ कि यसले तपाईंको उमेर स्वीकार गरेको छ, डाटाबेसमा प्राप्त डाटा लेख्नुहोस्, तपाईंबाट प्राप्त सबै डाटा रिपोर्ट गर्नुहोस् र च्याट स्थितिलाई यसको मूल स्थितिमा फर्काउनुहोस्, अर्थात्। वि start.
विधि कल गरेर state तपाईं कुनै पनि समयमा हालको च्याट स्थिति अनुरोध गर्न सक्नुहुन्छ, र प्रयोग गरेर reset च्याटलाई यसको मूल अवस्थामा फर्काउनुहोस्।
सन्देश फिल्टरहरू
हाम्रो केसमा, यो बोट निर्माण गर्ने सबैभन्दा महत्त्वपूर्ण भागहरू मध्ये एक हो। यो सन्देश फिल्टरको मद्दतले बटले तपाइँबाट कस्तो जानकारीको अपेक्षा गर्दछ र यसलाई कसरी प्रशोधन गर्नुपर्छ भन्ने कुरा बुझ्नेछ।
परियोजना मा मा फिल्टरहरू फाइलमा दर्ता छन् message_filters.R.
सन्देश फिल्टर कोड:
# ###########################################################
# message state filters
# фильтр сообщений в состоянии ожидания имени
MessageFilters$wait_name <- BaseFilter(function(message) {
get_state( message$chat_id ) == "wait_name"
}
)
# фильтр сообщений в состоянии ожидания возраста
MessageFilters$wait_age <- BaseFilter(function(message) {
get_state( message$chat_id ) == "wait_age"
}
)फिल्टरहरूमा हामी पहिले लेखिएको प्रकार्य प्रयोग गर्छौं get_state(), च्याटको हालको अवस्था अनुरोध गर्न। यो प्रकार्यलाई केवल १ तर्क, च्याट आईडी चाहिन्छ।
अर्को फिल्टर प्रतीक्षा_नाम च्याट स्थितिमा हुँदा सन्देशहरू प्रशोधन गर्दछ wait_name, र तदनुसार फिल्टर प्रतीक्षा_उमेर च्याट स्थितिमा हुँदा सन्देशहरू प्रशोधन गर्दछ wait_age.
ह्यान्डलरहरू
ह्यान्डलरहरू भएको फाइललाई भनिन्छ ह्यान्डलरहरू.आर, र निम्न कोड छ:
# ###########################################################
# handlers
# command handlers
start_h <- CommandHandler('start', start)
state_h <- CommandHandler('state', state)
reset_h <- CommandHandler('reset', reset)
# message handlers
## !MessageFilters$command - означает что команды данные обработчики не обрабатывают,
## только текстовые сообщения
wait_age_h <- MessageHandler(enter_age, MessageFilters$wait_age & !MessageFilters$command)
wait_name_h <- MessageHandler(enter_name, MessageFilters$wait_name & !MessageFilters$command)पहिले हामी कमाण्ड ह्यान्डलरहरू सिर्जना गर्छौं जसले तपाईंलाई संवाद सुरु गर्न, यसलाई रिसेट गर्न र हालको अवस्था सोध्न विधिहरू चलाउन अनुमति दिन्छ।
अर्को, हामी अघिल्लो चरणमा सिर्जना गरिएका फिल्टरहरू प्रयोग गरेर २ सन्देश ह्यान्डलरहरू सिर्जना गर्छौं, र तिनीहरूलाई फिल्टर थप्छौं। !MessageFilters$command, ताकि हामी कुनै पनि च्याट अवस्थामा आदेशहरू प्रयोग गर्न सक्छौं।
बट लन्च कोड
अब हामीसँग सुरु गर्नको लागि सबै तयार छ, बोट सुरु गर्नको लागि मुख्य कोड फाइलमा छ बोट आर.
library(telegram.bot)
library(tidyverse)
library(RSQLite)
library(DBI)
library(configr)
# переходим в папку проекта
setwd(Sys.getenv('TG_BOT_PATH'))
# читаем конфиг
cfg <- read.config('config.cfg')
# создаём экземпляр бота
updater <- Updater(cfg$bot_settings$bot_token)
# Загрузка компонентов бота
source('db_bot_function.R') # функции для работы с БД
source('bot_methods.R') # методы бота
source('message_filters.R') # фильтры сообщений
source('handlers.R') # обработчики сообщений
# Добавляем обработчики в диспетчер
updater <- updater +
start_h +
wait_age_h +
wait_name_h +
state_h +
reset_h
# Запускаем бота
updater$start_polling()नतिजाको रूपमा, हामीले यो बोट पायौं:
कुनै पनि समयमा आदेश प्रयोग गरेर /state हामी हालको च्याट स्थिति क्वेरी गर्न सक्छौं, र आदेश प्रयोग गरेर /reset च्याटलाई यसको मूल अवस्थामा फर्काउनुहोस् र फेरि संवाद सुरु गर्नुहोस्।
निष्कर्षमा
यस लेखमा, हामीले बोट भित्र डाटाबेस कसरी प्रयोग गर्ने, र च्याट स्थिति रेकर्ड गरेर क्रमबद्ध तार्किक संवादहरू कसरी निर्माण गर्ने भनेर पत्ता लगायौं।
यस अवस्थामा, हामीले सबैभन्दा आदिम उदाहरण हेर्यौं, ताकि तपाईलाई त्यस्ता बटहरू निर्माण गर्ने विचार बुझ्न सजिलो हुन्छ; व्यवहारमा, तपाईले धेरै जटिल संवादहरू निर्माण गर्न सक्नुहुन्छ।
यस शृङ्खलाको अर्को लेखमा, हामी कसरी बोट प्रयोगकर्ताहरूको अधिकारलाई यसको विभिन्न विधिहरू प्रयोग गर्न प्रतिबन्ध लगाउने भनेर सिक्नेछौं।
स्रोत: www.habr.com