А у меня такой вопрос, как сделать это же, тока чтобы по определенной команде Элизе (например !данные) Элиза выдавала список 20 последних строк из таблицы Excel (Excel файлик из 8 столбиков и 1000 строк.) ???
Пример таблицы могу приложить.
![Question :?:](./images/smilies/icon_question.gif)
п/п; подпись;участник;Список доп номера;порядковый;число;положение;примечание;СЧЕТ №; Сумма по счету ;
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.
MyChat Server [+] (22.04.2024) обновлённый и[…]
Это формируете вы, система контроля рабочего време[…]
К сожалению проблема не решена, вы можете отключит[…]
Подскажите, в версии 3.3 починили эту проблему? А […]
Георгий дал вам ссылку на справку, расположенную н[…]
Здравствуйте. 1. Откройте описание ошибки в спра[…]
Спасибо, исправлено . Мы вышлем вам обновление и[…]
Вот ссылка на Google Drive . В AppGallery обновле[…]
Во время звонка разобрались. Чтобы узнать группу п[…]
Спасибо за зеркало забрал оттуда и обновил. Вопрос[…]
добрый день, уважаемые разработчики! ошибка перес[…]