pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix writing attributes with quotes to Excel XML files.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7992 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-04-15 09:19:52 +00:00
parent 501e848dcb
commit 15c2735e6b
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/source/common/fpsxmlcommon.pas
View File

@ -48,6 +48,7 @@ function LineEndingToBR(const AText: String): String;
function UTF8TextToXMLText(AText: string; ProcessLineEndings: Boolean = false): string;
function ValidXMLText(var AText: string; ReplaceSpecialChars: Boolean = true;
ProcessLineEndings: Boolean = false): Boolean;
function XMLQuote(AText: String): String;
procedure UnzipFile(AZipFileName, AZippedFile, ADestFolder: String);
function UnzipToStream(AZipStream: TStream; const AZippedFile: String;
@ -230,6 +231,15 @@ begin
AText := UTF8TextToXMLText(AText, ProcessLineEndings);
end;
function XMLQuote(AText: String): String;
var
i: Integer;
begin
if AText <> '' then
Result := StringReplace(AText, '"', '&quot;', [rfReplaceAll])
else
Result := '';
end;
{------------------------------------------------------------------------------}
{ Unzipping }
{------------------------------------------------------------------------------}

4
components/fpspreadsheet/source/common/xlsxml.pas
View File

@ -3312,7 +3312,7 @@ begin
fnt := book.GetFont(fmt^.FontIndex);
s := '';
if fnt.FontName <> deffnt.FontName then
s := s + Format('ss:FontName="%s" ', [fnt.FontName]);
s := s + Format('ss:FontName="%s" ', [XMLQuote(fnt.FontName)]);
if not SameValue(fnt.Size, deffnt.Size, 1E-3) then
s := s + Format('ss:Size="%g" ', [fnt.Size], FPointSeparatorSettings);
if fnt.Color <> deffnt.Color then
@ -3337,7 +3337,7 @@ begin
nfp.AllowLocalizedAMPM := false; // Replace "AMPM" by "AM/PM"
nfs := nfp.NumFormatStr;
AppendToStream(AStream, Format(INDENT3 +
'<NumberFormat ss:Format="%s"/>' + LF, [nfs])); // Do not UTF8TextToXMLText(nfs) because of '%'
'<NumberFormat ss:Format="%s"/>' + LF, [XMLQuote(nfs)])); // Do not UTF8TextToXMLText(nfs) because of '%'
end;
// Background