tinysoft
/
TSOffice
5
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

v1.2.3-patch1

This commit is contained in:
csh 2023-03-14 11:41:09 +08:00
parent 7b0756e573
commit 6dda8f85bc
4 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
ExcelFile使用帮助.xlsx
View File

Binary file not shown.

BIN
Windows-X64/office_plugin.dll
View File

Binary file not shown.

3
funcext/TSOffice/TSUtils/NodeInfo.tsf
View File

@ -184,7 +184,8 @@ public
if ifObj(r['obj']) then //对象，返回XML串 if ifObj(r['obj']) then //对象，返回XML串
return node.Data(); return node.Data();
key := r['attrName'] ? r['attrName'] : r['attrEx'] ? r['attrEx'] : 'val'; key := r['attrName'] ? r['attrName'] : r['attrEx'] ? r['attrEx'] : 'val';
return node.GetAttribute(key);//返回属性 value := node.GetAttribute(key);
return trystrtofloat(value, r) ? r : value;
End; End;
return nil; return nil;
End; End;

4
funcext/TSOffice/worksheet/xlsxStyles.tsf
View File

@ -52,7 +52,7 @@ Type xlsxStyles = Class
cellXfs_node := style_node.FirstChildElement('cellXfs'); cellXfs_node := style_node.FirstChildElement('cellXfs');
count := strtoint(cellXfs_node.GetAttribute('count')); count := strtoint(cellXfs_node.GetAttribute('count'));
Id := strtoint(oldStyleId); Id := strtoint(oldStyleId);
if Id < count-1 then return nil; if Id > count-1 then return nil;
xf := getNode(cellXfs_node, 'xf', Id); xf := getNode(cellXfs_node, 'xf', Id);
marshal := xf.marshal()[0]; marshal := xf.marshal()[0];
@ -97,7 +97,7 @@ Type xlsxStyles = Class
cellXfs_node := style_node.FirstChildElement('cellXfs'); cellXfs_node := style_node.FirstChildElement('cellXfs');
count := strtoint(cellXfs_node.GetAttribute('count')); count := strtoint(cellXfs_node.GetAttribute('count'));
Id := strtoint(styleId); Id := strtoint(styleId);
if Id < count-1 then return nil; if Id > count-1 then return nil;
xf := getNode(cellXfs_node, 'xf', Id); xf := getNode(cellXfs_node, 'xf', Id);
attrs := xf.Attributes(); attrs := xf.Attributes();