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

v1.6.1

This commit is contained in:
csh 2024-02-06 11:28:13 +08:00
parent 1231868aa7
commit 03e101fa46
5 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
funcext/TSOffice/TOfficeObj.tsf
View File

@ -1,4 +1,4 @@
// Version 1.6.0 // Version 1.6.1
Function TOfficeObj(n); Function TOfficeObj(n);
Begin Begin
case lowercase(n) of case lowercase(n) of

2
funcext/TSOffice/TSDocxFile.tsf
View File

@ -1,4 +1,4 @@
// Version 1.6.0 // Version 1.6.1
Type TSDocxFile = Class Type TSDocxFile = Class
///Version: V1.0 2022-09-20 ///Version: V1.0 2022-09-20
///适用于 Microsoft Word docx格式文件 ///适用于 Microsoft Word docx格式文件

2
funcext/TSOffice/TSXlsxFile.tsf
View File

@ -1,4 +1,4 @@
// Version 1.6.0 // Version 1.6.1
Type TSXlsxFile = Class Type TSXlsxFile = Class
///Version: V1.0 2022-08-08 ///Version: V1.0 2022-08-08
///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。 ///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。

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

@ -155,12 +155,12 @@ Type xlsxStyles = Class
if numfmt_id >= 1 and numfmt_id <= 10 then return array('n', value); if numfmt_id >= 1 and numfmt_id <= 10 then return array('n', value);
if numfmt_id >= 11 and numfmt_id <= 26 then if numfmt_id >= 11 and numfmt_id <= 26 then
begin begin
if ifstring(value) and (trystrtodate(value, r) or trystrtodatetime(value, r)) then return array('n', r); if ifstring(value) and (trystrtodate(value, r) or trystrtodatetime(value, r) or trystrtotime(value, r)) then return array('n', r);
t := ifstring(value) ? 's' : 'n'; t := ifstring(value) ? 's' : 'n';
return array(t, value); return array(t, value);
end end
if numfmt_id >= 27 and numfmt_id <= 34 then return array('e', value); if numfmt_id >= 27 and numfmt_id <= 34 then return array('e', value);
if numfmt_id >= 35 and numfmt_id <= 48 then return array('n', trystrtofloat(value, r) ? r : value); if numfmt_id >= 35 and numfmt_id <= 48 then return array('n', value);
if numfmt_id = 49 then return array('s', value); if numfmt_id = 49 then return array('s', value);
if numfmt_id >= 50 and numfmt_id <= 55 then if numfmt_id >= 50 and numfmt_id <= 55 then
begin begin
@ -375,6 +375,7 @@ End;
// numfmtid为32表示错误值格式，即显示为#NUM!。 // numfmtid为32表示错误值格式，即显示为#NUM!。
// numfmtid为33表示错误值格式，即显示为#N/A。 // numfmtid为33表示错误值格式，即显示为#N/A。
// numfmtid为34表示错误值格式，即显示为#GETTING_DATA。 // numfmtid为34表示错误值格式，即显示为#GETTING_DATA。
// numfmtid是35表示货币格式，即显示为带有货币符号的数值，且小数位数为0。
// numfmtid为36表示货币格式，即显示为带有货币符号和负数红色的数值。 // numfmtid为36表示货币格式，即显示为带有货币符号和负数红色的数值。
// numfmtid为38表示会计格式，即显示为带有货币符号和负数红色的数值，且小数位数为2。 // numfmtid为38表示会计格式，即显示为带有货币符号和负数红色的数值，且小数位数为2。
// numfmtid为39表示会计格式，即显示为带有货币符号和负数红色的数值，且小数位数为0。 // numfmtid为39表示会计格式，即显示为带有货币符号和负数红色的数值，且小数位数为0。

10
更新日志.md
View File

@ -2,11 +2,19 @@
## 2023-2-5 ## 2023-2-5
### V1.6.1
#### excel
1. 修复excel文件单元格原有类型与tsl类型转换报错问题(trystrtofloat)
## 2023-2-5
### V1.6.0 ### V1.6.0
#### excel #### excel
1. 兼容Excel2016，通过`NewSheet/InsertSheet`创建工作表不再提示修复错误 1. 兼容 Excel2016，通过`NewSheet/InsertSheet`创建工作表不再提示修复错误
2. 修复带有表头的二维数组通过`InsertTable`写入数据只写入表头未写入数据问题 2. 修复带有表头的二维数组通过`InsertTable`写入数据只写入表头未写入数据问题
## 2023-1-31 ## 2023-1-31