www.nsoft-s.com

п/п; подпись;участник;Список доп номера;порядковый;число;положение;примечание;СЧЕТ №; Сумма по счету ;
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.