Russian Users MikroTik | Форум пользователей MikroTik

Brook писал(а): ↑10 авг 2023, 12:50

Apollo22 писал(а): ↑10 авг 2023, 11:50 Приветствую всех.

Так как с версии OS 7.9 поменялся формат вывода даты с (aug/10/2023) на (2023-08-10),
я придумал решение которое будет работать при обоих форматах.
Понимаю что решение не очень но оно работает

 Code

Код: Выделить всё

:global teGetDate
:if (!any $teGetDate) do={ :global teGetDate do={

    :local date
	:local tmpdate [/system clock get date]
	:local dateformat
	:local tpmpformat [:pick $tmpdate 4]
	:if ($tpmpformat = 1) do={:set dateformat 0} else={:set dateformat 1}
	:if ($dateformat = 0) do={
    :local months {"jan"=1; "feb"=2; "mar"=3; "apr"=4; "may"=5; "jun"=6; "jul"=7; "aug"=8; "sep"=9; "oct"=10; "nov"=11; "dec"=12}
    :local tmpm ($months -> [:pick $tmpdate 0 3])
    :if ($tmpm < 10) do={:set tmpm ("0".$tmpm)
	}
    :return (([:pick $tmpdate 7 11]).".".$tmpm.".".([:pick $tmpdate 4 6]))
	} else={
    :if ($dateformat > 0) do={
        :return ([:pick $tmpdate 0 4].".".[:pick $tmpdate 5 7].".".[:pick $tmpdate 8 10])
    }
	}
  }
}

Не совсем понял вот это

:local tpmpformat [:pick $tmpdate 4]
:if ($tpmpformat = 1) ...

Получается проверяем есть ли на этом месте в строке 1? А если там другая дата?

Наверное надо искать символ "/" и по нему определять формат даты?


upd: Пардон посмотрел не на ту дату. Наверное надо искать символ "-"

Код: Выделить всё

:local tmpdate [system/clock/get date]; 
:local tpmpformat [:pick $tmpdate 4]; 
:if ($tpmpformat = "-") do={...}

	
	:local tmpdate [system/clock/get date]; 
	:local dateformat
	:local tpmpformat [:pick $tmpdate 0 4]
	:local tpmpformat1 [:pick $tpmpformat 3]
	:if ($tpmpformat1 = "/") do={:set dateformat 0} else={:set dateformat 1}

Да вы правы нужно искать символ "/" или "-"
Но при выполнении данной команды :local tpmpformat [:pick $tmpdate 4];
Результат будет число "1" а не знак "/" , поэтому и написал такой костыль.Да вы правы нужно искать символ "/" или "-"
Но при выполнении данной команды :local tpmpformat [:pick $tmpdate 4];
Результат будет число "1" а не знак "/" , поэтому и написал такой костыль.

:local tpmpformat [:pick $tmpdate 4]; 

Apollo22 писал(а): ↑20 авг 2023, 13:14 Хочется вот такое иметь меню


В моем случае это обусловлено тем что Mikrotik присылает сообщение о какой либо проблеме.
Сейчас эти оповещения выведены в отдельную группу и это не удобно так как нужно переходить в чат к боту.

Инлайн меню интересно но как по мне не практично, много пунктов меню не очень буду смотреться.
В случае Reply кнопок то можно хоть 3 штуки в ряд сделать.

Если у вас есть наработки как создать эти кнопки то поделитесь пожалуйста.
Заранее спасибо вам.

Brook писал(а): ↑20 авг 2023, 16:13

Apollo22 писал(а): ↑20 авг 2023, 13:14 Хочется вот такое иметь меню


В моем случае это обусловлено тем что Mikrotik присылает сообщение о какой либо проблеме.
Сейчас эти оповещения выведены в отдельную группу и это не удобно так как нужно переходить в чат к боту.

Инлайн меню интересно но как по мне не практично, много пунктов меню не очень буду смотреться.
В случае Reply кнопок то можно хоть 3 штуки в ряд сделать.

Если у вас есть наработки как создать эти кнопки то поделитесь пожалуйста.
Заранее спасибо вам.

В папке Library->Interface есть функция создания таких кнопок.

teBuildReplyButton - строит кнопку.У нее три параметра, fPictButton - картинка; fTextButton - текст и fRequestLocation - запрос местоположения.

Если передать функции teBuildKeyboard такую кнопку и установить параметр fReplyKeyboard=true, то из них будет создана клавиатура.

В остальном все так же, как и с обычными кнопками. Создаем клавиатуру, привязываем к сообщению и отправляем. А не используются они в боте потому, что там нельзя прописать Callback и обрабатывать придется в teMessageResponse.

В общем не нашел им применение, но все необходимое для этого есть.

Тут еще надо понимать, что к сообщению можно привязать только одну клавиатуру. Или с обычными кнопками или с reply.
Были эксперименты. Reply привязывал к верхней картинке (это ведь тоже сообщение), а обычную к основному. Не помню чем закончилось, но вроде работало.

Brook писал(а): ↑22 авг 2023, 20:20 Да без проблем.

При нажатии на Reply кнопку, в чат с ботом улетит текстовое сообщение, которое в этой кнопке прописано. Это сообщение попадет в модуль teMessageResponse.

Если откроете сам модуль, то в нем, после объявления всех переменных идут проверки условий. Например:

Код: Выделить всё

	:if ($messageText~"start") do={
		:if ([$teRightsControl fMethod=get fGroupID=$userChatID fRightName=root]) do={
			$teRootMenu fChatID=$userChatID
			:return true
		}
	}

В данном случае мы проверяем текст сообщения и если это start, то запускаем на выполнение модуль $teRootMenu. Это первое условие в модуле, которое отвечает за реакцию на команду start. Рекомендую добавлять свой код после этого блока.


Если добавить в teMessageResponse свой блок с условием, то он выполнится. К примеру в Reply кнопке зашит текст "Hello"...

Код: Выделить всё

	:if ($messageText~"Hello") do={
		:set messageID [$teSendMessage fChatID=$queryChatID fText="Hi, am mikRobot"]
		:return true
	}

... в ответ прилетит сообщение Hi, am mikRobot. Тоже самое произойдет, если просто отправить сообщение Hello.

В этом блоке уже может быть Ваш код, какой пожелаете...

Надеюсь понятно объяснил. У меня бывают с этим проблемы.