А у меня такой вопрос, как сделать это же, тока чтобы по определенной команде Элизе (например !данные) Элиза выдавала список 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.
Принято, спасибо. Будем ждать.
Ильнур, здравствуйте. Для подключения мобильных кл[…]
Версия обновлена. Вы обновили свой сервер? Проблем[…]
Мы доделали обработку ссылок на локальные ресурсы.[…]
Сделали ещё исправления . Свежая сборка будет на […]
Изменили логику отображения длительности отсутст[…]
MyChat Client [*] (24.04.2024) (android) (io[…]
Это формируете вы, система контроля рабочего време[…]
К сожалению проблема не решена, вы можете отключит[…]
Подскажите, в версии 3.3 починили эту проблему? А […]
Георгий дал вам ссылку на справку, расположенную н[…]
Здравствуйте. 1. Откройте описание ошибки в спра[…]