Преобразование Excel в CSV: решение проблем с форматом даты в Delphi и Pascal

Delphi , Синтаксис , Дата и Время

В процессе работы с электронными таблицами Excel часто возникает необходимость преобразования данных в формат CSV (Comma Separated Values). При использовании библиотек, таких как FPSpreadsheet в Delphi и Pascal, для автоматизации этого процесса, могут возникнуть проблемы с корректным отображением дат, особенно при экспорте в CSV. Эта статья рассматривает типичную проблему с форматом даты и предлагает решения, основанные на обсуждении в сообществе разработчиков.

Проблема:

При конвертации Excel в CSV с помощью FPSpreadsheet, формат даты в результирующем CSV-файле может отличаться от желаемого (например, dd/mm/yyyy), особенно при работе в разных операционных системах (Windows и Linux). В Windows, локальные настройки системы могут переопределять формат, заданный в коде, что приводит к отображению даты в виде dd-mm-yyyy.

Решение 1: Явное указание формата даты и разделителя

Первоначальная попытка решения, предложенная в обсуждении, заключалась в явном задании формата даты и разделителя:

CSVParams.FormatSettings.ShortDateFormat := 'dd/mm/yyyy';
CSVParams.FormatSettings.DateSeparator := '/';
resworkbook.WriteToFile(outfilename, sfCSV);

Однако, как выяснилось, в ранних версиях FPSpreadsheet существовала ошибка, из-за которой эти настройки игнорировались.

Решение 2: Использование исправленной версии FPSpreadsheet или патча

В обсуждении было предложено использовать последнюю версию FPSpreadsheet из репозитория CCR (Component Component Repository) или применить патч к текущей версии. Патч заключался в замене процедуры TsCSVWriter.WriteDateTime в модуле fpscsv.pas следующим кодом:

procedure TsCSVWriter.WriteDateTime(AStream: TStream; const ARow, ACol: Cardinal;
  const AValue: TDateTime; ACell: PCell);
var
  s: String;
  sheet: TsWorksheet;
  cell: PCell;
  nf: TsNumberFormat;
  nfs: String;
  nfp: TsNumFormatParser;
begin
  Unused(AStream);
  sheet := FWorksheet as TsWorksheet;
  cell := sheet.FindCell(ARow, ACol);
  if cell = nil then
    s := ''
  else
  begin
    sheet.ReadNumFormat(cell, nf, nfs);
    if nf = nfCustom then
    begin
      nfp := TsNumFormatParser.Create(nfs, FFormatSettings);
      nfs := nfp.FormatString;
      nfp.Free;
    end else
      nfs := BuildDateTimeFormatString(nf, FFormatSettings);
    s := FormatDateTime(nfs, AValue, FFormatSettings);
    s := ConvertEncoding(s, EncodingUTF8, FEncoding);
  end;
  FCSVBuilder.AppendCell(s);
end;

Этот патч исправляет ошибку, из-за которой параметры формата CSV игнорировались.

Решение 3: Использование пользовательского формата даты непосредственно при записи

Наиболее надежным решением, которое работает кроссплатформенно, является явное указание формата даты непосредственно при записи значения в ячейку:

sh.WriteDateTime(2, 0, 44000, 'dd"/"mm"/"yyyy');

В этом случае, формат даты задается строкой формата, которая передается в функцию WriteDateTime. Обратите внимание на использование кавычек для экранирования символа /, чтобы он не интерпретировался как разделитель даты, а отображался непосредственно.

Решение 4: Модификация настроек формата рабочей книги (Workbook)

Альтернативный подход - изменение настроек формата непосредственно в рабочей книге (Workbook):

b := TsWorkbook.Create;
try
  b.FormatSettings.LongDateFormat := 'dddd, dd/mm/yyyy';
  b.FormatSettings.ShortDateFormat := 'dd/mm/yyyy';
  b.FormatSettings.DateSeparator := '/';
  sh := b.Addworksheet('sheet1');
  sh.WriteDateTime(0, 0, 44000, nfLongDate);
  sh.WriteDateTime(1, 0, 44000, nfShortDate);
  sh.WriteDateTime(2, 0, 44000, 'dd"/"mm"/"yyyy');
  b.WriteToFile('test.csv', true);
finally
  b.Free;
end;

Важно отметить, что при использовании этого подхода, необходимо инициализировать все поля FormatSettings рабочей книги, прежде чем задавать нужные значения. В противном случае, можно получить непредсказуемое поведение. Для этого можно использовать b.FormatSettings := DefaultFormatSettings; перед изменением отдельных параметров.

Альтернативное решение: Хранение дат в формате YYYYMMDD

В обсуждении также было предложено хранить даты в формате YYYYMMDD. Это удобно для сортировки и хранения, так как такой формат имеет естественный порядок сортировки. Преобразование в нужный формат для отображения можно выполнить непосредственно перед выводом данных.

var
  MyDate: TDateTime;
  StringDate: String;
begin
  MyDate := Now;
  StringDate := FormatDateTime('YYYYMMDD', MyDate); // Храним в YYYYMMDD
  // ...
  // Для отображения:
  StringDate := FormatDateTime('DD/MM/YYYY', MyDate); // Преобразуем для отображения
end;

Этот подход избавляет от проблем с локальными настройками и обеспечивает консистентность формата.

Заключение:

При конвертации Excel в CSV с использованием FPSpreadsheet, проблемы с форматом даты можно решить несколькими способами:

• Использовать исправленную версию FPSpreadsheet или применить патч.
• Явно указывать формат даты при записи в ячейку.
• Модифицировать настройки формата рабочей книги.
• Хранить даты в формате YYYYMMDD и преобразовывать их для отображения.

Выбор оптимального решения зависит от конкретной ситуации и требований к формату данных. Важно помнить о возможных проблемах с локальными настройками и тестировать код на разных операционных системах.

Создано по материалам из источника по ссылке.

Статья рассматривает и предлагает решения проблем с некорректным отображением формата даты при преобразовании Excel в CSV с помощью библиотеки FPSpreadsheet в Delphi и Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Дата и Время ::