А у меня такой вопрос, как сделать это же, тока чтобы по определенной команде Элизе (например !данные) Элиза выдавала список 20 последних строк из таблицы Excel (Excel файлик из 8 столбиков и 1000 строк.) ???
Пример таблицы могу приложить.

п/п; подпись;участник;Список доп номера;порядковый;число;положение;примечание;СЧЕТ №; Сумма по счету ;
29;Егоров;Саша;241000029;124144662;;ДА;;;;
30;Егоров;Саша;241000030;124144663;;ДА;;593 от 01.11.10; 10 000,00р. ;
31;Петров;Николай;241000031;124144664;;ДА;;;;
32;Егоров;Пётр;241000032;124144665;;ДА;;592 от 01.11.10; 6 000,00р. ;
const
sFile = 'D:\data.csv';
nTitles = 10;
var
iUINFrom, iUINTo, iCountLastMessages: integer;
sMsg: string;
function GetLastLinesFromFile(sFileName: string; nLines: integer): string;
var
sOut, s, sBackup: string;
i, j, iCount: integer;
sTitles: array[1..nTitles] of string;
begin
iCount := GetTextFileLinesCount(sFileName);
if iCount >= nLines then begin
sOut := 'Последние ' + IntToStr(nLines) + ' записей:' + CRLF;
LoadLineFromFile(sFileName, 1, s);
for i := 1 to nTitles do sTitles[i] := Trim(GetNextSt(s, ';'));
for i := iCount - nLines + 1 to iCount do begin
if LoadLineFromFile(sFileName, i, s) then begin
for j := 1 to nTitles do sOut := sOut + sTitles[j] + ': ' + Trim(GetNextSt(s, ';')) + ';';
sOut := sOut + CRLF;
end;
end;
end else sOut := '';
result := sOut;
end;
begin
sMsg := mGetLastPrivateMessage(iUINFrom, iUINTo);
if iUINTo = 0 then
if Trim(UpperCase(GetNextSt(sMsg, ' '))) = '!ДАННЫЕ' then begin
if sMsg = '' then iCountLastMessages := 20
else if isSTNumbers(sMsg) then iCountLastMessages := StrToInt(sMsg)
else iCountLastMessages := 20;
sMsg := GetLastLinesFromFile(sFile, iCountLastMessages);
mModifyLastPrivateMessage(iUINFrom, 0, '');
mSendPrivateMessage(iUINFrom, sMsg);
end;
end.
Добрый день. Обновился, проблема ушла. Спасибо за[…]
Подниму старую тему, так как для нас тоже актуальн[…]
Обновление уже на сайте , версия 2025.3.7, можно […]
Свежая сборка MyChat 2025.3.7 (обновите страницу[…]
Не делали такого, можно добавить, будет интересно.
Справка по работе с пользовательскими меню в MyCh[…]
Переношу тему в раздел пожеланий. Как обычно, можн[…]
Да, вы правы, не работает, надо исправить.
Супер, дякую за таку швидку реакцію)
Спасибо за фидбек, скорее всего, так и есть.
Да, конечно, можно через шаблоны настроек с сервер[…]
Когда в следующий раз будет такая проблема, скопир[…]
Проблему пофиксили, теперь даже если на сервере ес[…]
У нас не повторяется. Но, в целом, алгоритм тот же[…]
После обновления сертификата все заработало. Спаси[…]
Обновитесь, пожалуйста, всё ок, работает .