0
Отвечен

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

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

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

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

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

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

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

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

+1
На рассмотрении

День добрый.


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.

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