Пн сен 02, 2019 10:18 am Пн сен 02, 2019 10:18 am
Стояла версия чата 7.3
Есть следующий скрипт, который работал в данной версии
Скрипт выполняет функцию бота, на запрос присылает сообщение из файла
const
Baza = 'c:\Ururu.txt';
function OnPrivateMessage(iCID, iUIN, iUINTo, iMsgType: integer; sMsg: string): boolean;
var
sCmd, sData: string;
iCount, i: integer;
begin
sCmd:='';
// получить текст команды
sCmd := UpperCase(mConvertMsgToPlainText(sMsg, iMsgType));
// если получатель сообщения - встроенный робот Elisa с UIN = 0
if iUINTo = 2 then begin
// смотрим, сколько в текстовом файле строк
iCount := GetTextFileLinesCount(Baza);
// идём по всему файлу в надежде встретить нужную нам строку
for i := 1 to iCount do begin
LoadLineFromFile(Baza, i, sData);
// если нашли
if pos(sCmd+'|', sData) = 1 then begin
delete(sData, 1, length(sCmd)+1);
mSendPrivateMessage(2, iUIN, sData, 1, true);
end;
end;
end;
result := true;
end;
begin
end.
После обновления перестал корректно работать, я так понял что он не считывает строки из файла которые идут по счету за 30 строкой.
Как теперь работает функция GetTextFileLinesCount? Как возможно это исправить?