Экспорт в XML-Excel

VaS · August 2004

FR2.53.
При экспорте мемо с двумя строками вида:

Место установки
учета

Экспортируется в ячейку Excel в виде:

Место установки&#10учета

С датами вообще плохо. Текст:

за период с 28.07.2004 по 01.08.2004

Преобразуется в:

за период с &#50&#56.&#48&#55.&#50&#48&#48&#52 по &#48&#49.&#48&#56.&#50&#48&#48&#52

AlexTZ · August 2004

frXmlExl.pas:

function TfrXMLExcelExport.ChangeReturns(Str: string): string;
var
  i: integer;
  s : string;
begin
   if Pos(#13#10, Str) > 0 then
   begin
     i := 1;
     while i <= Length(str) do
       if Str[i] in ['0'..'9'] then
       begin
         s := '&#' + IntToStr(StrToInt(Str[i]) + 48);
         Delete(Str, i, 1);
         Insert(s, Str, i);
         Inc(i, 4);
       end
       else
         Inc(i);
       Str := StringReplace(Str, #13#10, '&#10', [rfReplaceAll]);
//       Str := StringReplace(Str, '&', '&', [rfReplaceAll]);
       Str := StringReplace(Str, '"', '"', [rfReplaceAll]);
       Str := StringReplace(Str, '<', '<', [rfReplaceAll]);
       Str := StringReplace(Str, '>', '>', [rfReplaceAll]);
   end;
   Result := Str;
end;

С датами все вроде ок.

VaS · August 2004

Спасибо, все исправилось, включая даты

Экспорт в XML-Excel

Комментарии

Оставить комментарий