1. Общий
  2. Редактор каналов
  3. Вопросы
0
Отвечен

Пример для работы с файлами csv

Александр10 7 лет назад в Редактор каналов • обновлен СИМП Лайт (тех поддержка) 7 лет назад • 2

Здравствуйте.

выложите, пожалуйста, пример для работы с файлами csv :

1 Сохранение файла в формате ГГ-ММ-ДД .csv

2. Добавление в файл записей событий.

3. Заголовок в виде Дата, параметр1, параметр2, параметрN

4. Колонки в файле вида Г-М-Д-Час-Мин-Сек, Значение1, Значение2, ЗначениеN

+1
На рассмотрении
СИМП Лайт (тех поддержка) 7 лет назад

День добрый.


Var  
filename: string;  
txtfile: TStringList;  
Val1, Val2, Val3: double;  

procedure OnStartScript;  
begin  
end;  

procedure OnStopScript;  
begin  
end;

Begin  
  filename := 'C:\log_' + FormatDateTime('YY-MM-DD' ,now) + '.csv';
  txtfile := TStringList.create;  
  try    
    if FileExists(filename) then   
    begin     
      txtfile.loadfromfile(filename);   
    end;
    txtfile.add(FormatDateTime('YY-MM-DD-HH-NN-SS' ,now) + ';' + FloatToStr(val1)+ ';' + FloatToStr(val2) + ';' + FloatToStr(val3));    
    txtfile.savetofile(filename); 
 finally    
   txtfile.free;  
 end;
end.

Отвечен
СИМП Лайт (тех поддержка) 7 лет назад

Сервис поддержки клиентов работает на платформе UserEcho