А у меня такой вопрос, как сделать это же, тока чтобы по определенной команде Элизе (например !данные) Элиза выдавала список 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 [+] (28.03.2024) (ios) добавле[…]
Обновите, пожалуйста сервер. Ссылку отправил вам в[…]
1. Вы выполнили все 5 пунктов, что я написал, по ш[…]
Возможно, поправили . Проверьте после выхода обн[…]
Запустил просто web chat , где есть обычные конфер[…]
Ок, ясно. Ориентируйтесь на это число тогда: se[…]
Причина в некорректных данных в вашей базе данных […]
В следующем обновлении будет инструмент для выбора[…]
Я спросил не об этом. Последняя цифра версии не вл[…]
добрый день. да, пробовал. и с самого приложения, […]
Здравствуйте. 1. На какой версии вы это делали? 2[…]
сделать что бы по нажатию на правую кнопку мыши н[…]