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

release 1.0

Browse Source
This commit is contained in:
csh
2022-12-21 15:38:46 +08:00
parent 83b8ff6d09
commit 0597f9b2a4
75 changed files with 16155 additions and 4780 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Demo/ExcelHelp.tsl
+726
View File
@@ -0,0 +1,726 @@
path := ExtractFileDir(ExtractFileDir(PluginPath()));
{$IFNDEF Win32}
path := path + '\\funcext\\TSOffice\\TSExcelFile.tsf';
{$ELSE}
path := path + '/funcext/TSOffice/TSExcelFile.tsf';
{$ENDIF}
funcs := LoadClassInfo(path);
testing := 1;
file := new TSExcelFile();
[err, errinfo] := file.NewFile();
if err then
return PrintError("NewFile", err, errinfo);
PrintSuccess("NewFile", testing++);
[err, errinfo] := file.SetSheetName('Sheet1', 'ExcelFile');
if err then
return PrintError("SetSheetName", err, errinfo);
PrintSuccess("SetSheetName", testing++);
[err, errinfo] := file.NewSheet("Functions");
if err then
return PrintError("NewSheet", err, errinfo);
PrintSuccess("NewSheet", testing++);
file.SetDefaultSheet('ExcelFile');
richtext := TOfficeObj('TRichText');
txt1 := richtext.AddText('TSExcelFile类 ');
txt1.Font.Size := 35;
txt1.Font.Color := "FF0000";
txt1.Font.Bold := 1;
txt1.Font.Name := "华文彩云";
txt2 := richtext.AddText('帮助文档');
txt2.Font.Size := 30;
txt2.Font.Name := "微软雅黑";
txt2.Font.Bold := 1;
txt2.Font.Italic := 1;
txt2.Font.Color := "FFC0CB";
file.SetCellRichText('ExcelFile', 'A1', richtext);
PrintSuccess("SetCellRichText", testing++);
[err, richText] := file.GetCellRichText('ExcelFile', 'A1');
if err then
return PrintError("GetCellRichText", err, errinfo);
PrintSuccess("GetCellRichText", testing++);
file.MergeCell('ExcelFile', 'A1', 'C1');
PrintSuccess("MergeCell", testing++);
style := TOfficeObj('TStyle');
style.Border.Left.LineStyle := "double";
style.Border.Left.Color := "FF0000";
style.Border.Right.LineStyle := "double";
style.Border.Right.Color := "FF0000";
style.Border.Bottom.LineStyle := "double";
style.Border.Bottom.Color := "FF0000";
style.Border.Top.LineStyle := "double";
style.Border.Top.Color := "FF0000";
style.Alignment.Horizontal := "center";
style.Alignment.Vertical := "center";
style.Fill.Gradient.Shading := 3;
style.Fill.Gradient.Color1 := "FFFFFF";
style.Fill.Gradient.Color2 := "E0EBF5";
styleId := file.NewStyle(style);
PrintSuccess("NewStyle", testing++);
file.SetCellStyle("ExcelFile", 'A1', 'C1', styleId);
file.SetCellValue("ExcelFile", "A3", "索引");
file.SetCellValue("ExcelFile", "B3", "函数名称");
file.SetCellValue("ExcelFile", "C3", "功能");
file.SetColWidth("ExcelFile", "A", "A", 6);
file.SetColWidth("ExcelFile", "B", "B", 55);
file.SetColWidth("ExcelFile", "C", "C", 100);
file.SetCellStyle("ExcelFile", "A3", "C3", styleId);
style2 := TOfficeObj("TStyle");
style2.Font.Color := "A020F0";
style2.Font.Bold := true;
style2.Font.Size := 12;
style2.Font.Name := "Microsoft YaHei";
style2.Fill.Pattern.PatternType := "solid";
style2.Fill.Pattern.ForegroundColor := "EFEFEF";
style2.Alignment.WrapText := true;
styleId2 := file.NewStyle(style2);
style3 := TOfficeObj("TStyle");
style3.Font.Color := "1F7F3B";
style3.Font.Size := 9;
style3.Font.Name := "Microsoft YaHei";
style3.Fill.Pattern.PatternType := "solid";
style3.Fill.Pattern.ForegroundColor := "FFFAFA";
style3.Alignment.WrapText := true;
styleId3 := file.NewStyle(style3);
style4 := TOfficeObj("TStyle");
style4.Font.Color := "A020F0";
style4.Font.UnderLine := "single";
styleId4 := file.NewStyle(style4);
hash := AddTOfficeObj(file);
row := 1;
for i:=0 to length(funcs)-1 do
Begin
[err0, cell0] := file.CoordinatesToCellName(1, i+4);
[err1, cell1] := file.CoordinatesToCellName(2, i+4);
[err2, cell2] := file.CoordinatesToCellName(3, i+4);
file.SetCellValue("ExcelFile", cell0, i+1);
file.SetCellValue("ExcelFile", cell1, funcs[i]['funcname']);
file.SetCellValue("ExcelFile", cell2, funcs[i]['name']);
str := funcs[i]['name'] + "\nFunction " + funcs[i]['funcname'] + funcs[i]['comment'];
arr := str2array(str, "\n");
[err, c1] := file.CoordinatesToCellName(1, row);
[err, c2] := file.CoordinatesToCellName(1, row + length(arr) - 1);
file.SetCellStyle("Functions", c1, c1, styleId2);
file.SetCellStyle("Functions", c1, c2, styleId3);
for j:=0 to length(arr)-1 do
Begin
[err, c] := file.CoordinatesToCellName(1, row++);
file.SetCellValue("Functions", c, arr[j]);
End
row++;
hyperlink := TOfficeObj('THyperLink');
hyperlink.LinkType := "Location";
hyperlink.LinkUrl := "Functions!" $ c1;
file.SetCellHyperLink("ExcelFile", cell1, hyperlink);
file.SetCellStyle("ExcelFile", cell1, cell1, styleId4);
End
file.SetColWidth('Functions', 'A', 'A', 120);
PrintSuccess('SetColWidth', testing++);
saveName := utf8toansi("d:\\temp\\ExcelFile使用帮助.xlsx");
[err, errinfo] := file.SaveAs('', saveName);
if err then
return PrintError("SaveAs", err, errinfo);
PrintSuccess("SaveAs", testing++);
// ============================================================
Function PrintError(msg, errno, errinfo);
Begin
return println("{} : errorno = {}, errorinfo = {}!", msg, errno, errinfo);
End
Function PrintSuccess(msg, time);
Begin
println("Test {} [{} success]", time, msg);
End
Function LoadClassInfo(f);
Begin
t := array();
[err,fh] := io_open(f);
if err then return t;
[err, data] := io_read(fh);
io_close(fh);
if err then return t;
lines := str2array(string(data), "\n");
for i:=0 to length(lines)-1 do begin
line := lines[i];
if AnsiContainsText(line, 'private') then break;
str := " End;";
if leftstr(line, length(str)) = str then Begin
//if funcname <> "" and leftstr(funcname,7) <> "Create(" and leftstr(funcname,8) <> "Destory(" then Begin
if flag and funcname <> "" then Begin
n := length(t);
t[n]['funcname'] := funcname;
t[n]['comment'] := comment;
t[n]['name'] := name;
End;
funcname := "";
comment := "";
name := "";
begF := 0;
endF := 1;
flag := 0;
continue;
End;
func := " Function ";
if leftstr(line, length(func)) = func then Begin
funcname := rightstr(line, length(line)-length(func));
begF := 1;
continue;
End;
if endF=0 or begF then continue;
if ParseRegExpr("\/\/\/(.*)$",line,"",result,MPos,Mlen) and length(result) then Begin
flag := 1;
str := result[0][1];
if name="" then begin
name := str;
continue;
end;
comment := comment + "\n " + str;
End;
End;
return t;
End;
Function AddTOfficeObj(excel);
Begin
hash := array();
sheet_name := "TOfficeObj说明";
excel.NewSheet(sheet_name);
excel.SetColWidth(sheet_name, 'A', 'A', 32);
excel.SetColWidth(sheet_name, 'B', 'B', 25);
excel.SetColWidth(sheet_name, 'C', 'C', 30);
excel.SetColWidth(sheet_name, 'D', 'D', 35);
style := TOfficeObj('TStyle');
style.Alignment.Horizontal := "center";
style.Alignment.WrapText := True;
style.Font.Name := "Microsoft YaHei";
style.Font.Color := "E10D4F";
style.Font.Size := 14;
style.Font.Bold := True;
style.Font.UnderLine := 'singleAccounting';
style.Fill.Gradient.Shading := 16;
style.Fill.Gradient.Color1 := 'A3ECFB';
style.Fill.Gradient.Color2 := '626AD8';
styleid1 := excel.NewStyle(style);
style := TOfficeObj('TStyle');
style.Font.Name := "Microsoft YaHei";
style.Font.ThemeColor := "8";
style.Font.Size := 10;
style.Font.Bold := True;
style.Alignment.WrapText := True;
style.Fill.Pattern.PatternType := 'lightGrid';
style.Fill.Pattern.ForegroundThemeColor := 4;
style.Fill.Pattern.ForegroundThemeColorTint := 0.8;
style.Fill.Pattern.BackgroundThemeColor := 9;
style.Fill.Pattern.BackgroundThemeColorTint := 0.8;
styleid2 := excel.NewStyle(style);
style := TOfficeObj('TStyle');
style.Font.Name := "Consolas";
style.Font.ThemeColor := "1";
style.Font.Size := 10;
style.Alignment.WrapText := True;
style.Alignment.Horizontal := 'left';
style.Alignment.Vertical := 'center';
style.Fill.Pattern.PatternType := "solid";
style.Fill.Pattern.ForegroundThemeColor := 6;
style.Fill.Pattern.ForegroundThemeColorTint := 0.8;
style.Fill.Pattern.BackgroundThemeColor := 0;
styleid3 := excel.NewStyle(style);
style := TOfficeObj("TStyle");
style.Font.Color := "";
style.Font.Size := 9;
style.Font.Name := "Microsoft YaHei";
style.Fill.Pattern.PatternType := "solid";
style.Fill.Pattern.ForegroundColor := "FFFAFA";
style.Alignment.WrapText := true;
style.Border.Left.LineStyle := "dotted";
style.Border.Right.LineStyle := "dotted";
style.Border.Top.LineStyle := "dotted";
style.Border.Bottom.LineStyle := "dotted";
styleId4 := excel.NewStyle(style);
style := TOfficeObj("TStyle");
style.Font.Color := "000000";
style.Font.Size := 12;
style.Font.Name := "Consolas";
style.Font.Bold := True;
style.Alignment.WrapText := true;
style.Alignment.Vertical := "top";
styleId5 := excel.NewStyle(style);
style.Font.Bold := False;
style.Font.Size := 11;
style.Font.Color := "757575";
styleId6 := excel.NewStyle(style);
style := TOfficeObj("TStyle");
style.Font.Size := 11;
style.Font.Name := "Microsoft YaHei";
style.Font.Color := "000000";
style.Alignment.WrapText := True;
style.Alignment.Vertical := "top";
styleId7 := excel.NewStyle(style);
style := TOfficeObj("TStyle");
style.Font.Size := 11;
style.Font.Name := "幼圆";
style.Font.Color := "502447";
style.Font.Bold := True;
style.Fill.Pattern.PatternType := "solid";
style.Fill.Pattern.ForegroundThemeColor := 9;
style.Fill.Pattern.ForegroundThemeColorTint := 0.6;
style.Fill.Pattern.BackgroundThemeColor := 0;
styleId8 := excel.NewStyle(style);
col := 1;
row := 1;
merge_span := 3;
obj_info := getObjInfo();
for i:=0 to length(obj_info)-1 do
begin
name := obj_info[i]['ObjName'];
[err, cell_1] := excel.CoordinatesToCellName(col, row);
[err, cell_2] := excel.CoordinatesToCellName(col+merge_span, row);
hash[name] := cell_1;
excel.SetCellValue(sheet_name, cell_1, name);
excel.MergeCell(sheet_name, cell_1, cell_2);
excel.SetCellStyle(sheet_name, cell_1, cell_2, styleid1);
row++;
desc_arr := obj_info[i]['Desc'];
for j:=0 to length(desc_arr)-1 do
begin
[err, cell1] := excel.CoordinatesToCellName(col, row);
[err, cell2] := excel.CoordinatesToCellName(col+merge_span, row);
excel.MergeCell(sheet_name, cell1, cell2);
[err, cell_3] := excel.CoordinatesToCellName(col, row);
height := length(desc_arr[j]) < 120 ? 15 : length(desc_arr[j])/120*15;
excel.SetRowHeight(sheet_name, row, height);
excel.SetCellValue(sheet_name, cell_3, desc_arr[j]);
row++;
end
[err, cell3] := excel.CoordinatesToCellName(col, row - 1);
excel.SetCellStyle(sheet_name, cell1, cell3, styleid2);
count := 1;
attr_arr := obj_info[i]['AttrInfo'];
if not istable(attr_arr) then attr_arr := array();
for k:=0 to length(attr_arr)-1 do
begin
if k = 0 then
begin
[err, cell1] := excel.CoordinatesToCellName(col, row);
[err, cell2] := excel.CoordinatesToCellName(col+3, row);
excel.SetSheetRow(sheet_name, cell1, array("属性", "类型", "说明", "取值"));
excel.SetCellStyle(sheet_name, cell1, cell2, styleId8);
row++;
end
if attr_arr[k]['attrName'] then
begin
insert_col := col;
[err, cell_2] := excel.CoordinatesToCellName(insert_col, row);
excel.SetCellValue(sheet_name, cell_2, attr_arr[k]['attrName']);
excel.SetCellStyle(sheet_name, cell_2, cell_2, styleid5);
insert_col++;
[err, cell_2] := excel.CoordinatesToCellName(insert_col, row);
excel.SetCellValue(sheet_name, cell_2, attr_arr[k]['type']);
excel.SetCellStyle(sheet_name, cell_2, cell_2, styleId6);
insert_col++;
[err, cell_2] := excel.CoordinatesToCellName(insert_col, row);
desc_str := attr_arr[k]['desc'];
if desc_str and ParseRegExpr("{(.*?)}", desc_str, "", result, mpos, mlen) then
begin
richText := TOfficeObj('TRichText');
position := 1;
for index := 0 to length(result)-1 do
begin
s1 := "";
endposition := mpos[index][0];
if endposition > 1 then
begin
s1 := desc_str[position: endposition-1];
t1 := richText.AddText(s1);
end
s2 := result[index][1];
position += length(s1) + mlen[index][0];
t2 := richText.AddText(s2);
t2.Font.Bold := True;
end
if position - 1 < length(desc_str) then t3 := richText.AddText(desc_str[position:]);
excel.SetCellRichText(sheet_name, cell_2, richText);
excel.SetCellStyle(sheet_name, cell_2, cell_2, styleId7);
end
insert_col++;
value_arr := attr_arr[k]['value'];
if istable(value_arr) then
begin
value_str := array2str(value_arr, "\r\n");
[err, cell_2] := excel.CoordinatesToCellName(insert_col, row);
excel.SetCellValue(sheet_name, cell_2, value_str);
excel.SetCellStyle(sheet_name, cell_2, cell_2, styleId4);
end
end
else if attr_arr[k]['desc'] then
begin
[err, cell1] := excel.CoordinatesToCellName(col, row);
[err, cell2] := excel.CoordinatesToCellName(col+merge_span, row);
excel.MergeCell(sheet_name, cell1, cell2);
desc_str := attr_arr[k]['desc'];
if ParseRegExpr("{(.*?)}", desc_str, "", result, mpos, mlen) then
begin
richText := TOfficeObj('TRichText');
position := 1;
for index := 0 to length(result)-1 do
begin
s1 := "";
endposition := mpos[index][0];
if endposition > 1 then
begin
s1 := desc_str[position: endposition-1];
t1 := richText.AddText(s1);
end
s2 := result[index][1];
position += length(s1) + mlen[index][0];
t2 := richText.AddText(s2);
t2.Font.Bold := True;
end
if position - 1 <= length(desc_str) then t3 := richText.AddText(desc_str[position:]);
excel.SetCellRichText(sheet_name, cell1, richText);
end
end
row++;
end
demo_str := trim(obj_info[i]['Demo']);
if demo_str <> '' then
begin
demo_arr := str2array(demo_str);
for demo_index := 0 to length(demo_arr)-2 do
begin
[err, cell_name] := excel.CoordinatesToCellName(col, row);
[err, cell2] := excel.CoordinatesToCellName(col, row);
[err, cell_name2] := excel.CoordinatesToCellName(col + merge_span, row);
excel.SetCellValue(sheet_name, cell_name, demo_arr[demo_index]);
excel.MergeCell(sheet_name, cell_name, cell_name2);
excel.SetCellStyle(sheet_name, cell_name, cell2, styleid3);
row++;
end
end
row ++;
end
return hash;
End
Function getObjInfo();
Begin
richTextDemo := "
richText := TOfficeObj('TRichText');
text1 := richText.AddText('Hello');
text1.Font.Size := 35;
text1.Font.Color := 'FF0000';
text2 := richText.AddText('World');
text2.Font.Size := 35;
text2.Font.Bold := true;
";
styleDemo := "
style := TOfficeObj('TStyle');
style.Font.Color := 'A020F0';
style.Font.Size := 22;
style.Font.Name := '黑体';
style.Font.Bold := True;
style.Font.Charset := '134';
style.Font.Script := 'subscript';
style.Font.Underline := 'double';
style.Font.Strikethrough := True;
style.Font.Italic := True;
style.Alignment.Horizontal := 'center';
style.Alignment.Vertical := 'justify';
style.Alignment.WrapText := True;
style.Alignment.ReadingOrder := 2;
style.Border.Left.LineStyle := 'thin';
style.Border.Left.Color := 'A020F0';
style.Border.Right.LineStyle := 'thin';
style.Border.Right.Color := 'FF0000';
style.Border.Bottom.LineStyle := 'mediumDashed';
style.Border.Bottom.Color := 'FF0000';
style.Border.Top.LineStyle := 'mediumDashed';
style.Border.Top.Color := 'FF0000';
style.Border.DiagonalDown := True;
style.Border.DiagonalUp := True;
style.Border.Diagonal.LineStyle := 'double';
style.Border.Diagonal.Color := 'A020F0';
style.NumberFormat.FormatCode := '#,##0.000_ ';
//style.Fill.Pattern.PatternType := 'solid';
//style.Fill.Pattern.ForegroundColor := 'FF6699FF';
//style.Fill.Pattern.BackgroundColor := 'FFFF0000';
style.Fill.Gradient.ThemeColor1 := 0;
style.Fill.Gradient.ThemeColor2 := 4;
style.Fill.Gradient.Shading := 1;
style.Protection.Hide := 1;
style.Protection.Lock := 1;
";
return array(
('ObjName': 'TRichText',
'Desc': ('富文本在使用时需要先用AddText方法添加一段文本，再对本段文本的字体样式（TFont）进行设置'),
'Demo': richTextDemo
),
('ObjName': 'TStyle',
'Desc': ('TStyle有以下属性: '),
'AttrInfo': (
('attrName': 'NumberFormat', 'type': 'class - TNumFmts', 'desc': '数字样式', 'value': array()),
('attrName': 'Alignment', 'type': 'class - TAlignmenth', 'desc': '对齐样式', 'value': array()),
('attrName': 'Font', 'type': 'class - TFont', 'desc': '字体样式', 'value': array()),
('attrName': 'Border', 'type': 'class - TBorder', 'desc': '边框样式', 'value': array()),
('attrName': 'Fill', 'type': 'class - TFills', 'desc': '填充样式', 'value': array()),
('attrName': 'Protection', 'type': 'class - TProtection', 'desc': '保护样式', 'value': array()),
),
'Demo': styleDemo,
),
('ObjName': 'TNumFmts',
'Desc': ('TNumFmts有以下属性: '),
'AttrInfo': (
('attrName': 'FormatCode', 'type': 'string', 'desc': '', 'value': array()),
),
'Demo': '',
),
('ObjName': 'TAlignment',
'Desc': ('TAlignment有以下属性: '),
'AttrInfo': (
('attrName': 'Horizontal', 'type': 'string', 'desc': '水平对齐', 'value': array('nil(默认): 靠右', '"center": 居中', '"left": 靠左', '"fill": 填充', '"justify": 两端对齐', '"distributed": 两端对齐', '"centerContinuous": 跨列居中')),
('attrName': 'Vertical', 'type': 'string', 'desc': '垂直对齐', 'value': array('nil(默认): 靠下', '"center": 居中', '"top": 靠上', '"justify": 两端对齐', 'distributed: 分散对齐')),
('attrName': 'WrapText', 'type': 'boolean', 'desc': '是否自动换行，默认FALSE', 'value': array()),
('attrName': 'ReadingOrder', 'type': 'int', 'desc': '文字方向', 'value': array('nil(默认): 根据内容', '1: 总是从左到右', '2: 总是从右到左')),
),
'Demo': '',
),
('ObjName': 'TFont',
'Desc': ('TFont有以下属性: '),
'AttrInfo': (
('attrName': 'Name', 'type': 'string', 'desc': '字体名称', 'value': array()),
('attrName': 'Size', 'type': 'double', 'desc': '字体大小', 'value': array()),
('attrName': 'Bold', 'type': 'boolean', 'desc': '是否加粗，默认FALSE', 'value': array()),
('attrName': 'Italic', 'type': 'boolean', 'desc': '是否倾斜，默认FALSE', 'value': array()),
('attrName': 'Charset', 'type': 'string', 'desc': '字符集', 'value': array()),
('attrName': 'Strikethrough', 'type': 'boolean', 'desc': '是否启用删除线，默认FALSE', 'value': array()),
('attrName': 'Script', 'type': 'string', 'desc': '上下标', 'value': array('"subscript": 下标', '"superscript": 上标')),
('attrName': '', 'type': 'double', 'desc': '{颜色}：{Color}和{ThemeColor}只能设置一种', 'value': array()),
('attrName': 'Color', 'type': 'string', 'desc': 'RGB颜色，如"A020F0"', 'value': array()),
('attrName': 'ThemeColor', 'type': 'int', 'desc': '主题颜色', 'value': array()),
('attrName': 'Underline', 'type': 'string', 'desc': '下划线', 'value': array('"double": 双下划线', '"singleAccounting": 会计单下划线', '"doubleAccounting": 会计双下划线')),
),
'Demo': '',
),
('ObjName': 'TBorders',
'Desc': ('TBorders有以下属性: '),
'AttrInfo': (
('attrName': 'Left', 'type': 'class - TBorder', 'desc': '左边框', 'value': array()),
('attrName': 'Right', 'type': 'class - TBorder', 'desc': '右边框', 'value': array()),
('attrName': 'Top', 'type': 'class - TBorder', 'desc': '上边框', 'value': array()),
('attrName': 'Bottom', 'type': 'class - TBorder', 'desc': '下边框', 'value': array()),
('attrName': 'DiagonalUp', 'type': 'boolean', 'desc': '左下-右上 对角线', 'value': array()),
('attrName': 'DiagonalDown', 'type': 'boolean', 'desc': '左上-右下 对角线', 'value': array()),
('attrName': 'Diagonal', 'type': 'class - TBorder', 'desc': '对角线，设置 {DiagonalUp}或{DiagonalDown}时有效', 'value': array()),
),
'Demo': '',
),
('ObjName': 'TBorder',
'Desc': ('TBorder有以下属性: '),
'AttrInfo': (
('attrName': 'LineStyle', 'type': 'string', 'desc': '线型', 'value': array('"hair"', '"dotted"', '"dashDotDot"', '"dashDot"', '"dashed"', '"thin"', '"slantDashDot"', '"mediumDashedDotDot"', '"mediumDashedDot"', '"mediumDashed"', '"medium"', '"thick"', '"double"')),
('attrName': '', 'type': '', 'desc': '{颜色}：{Color}和{ThemeColor}只能设置一个', 'value': array()),
('attrName': 'Color', 'type': 'string', 'desc': 'RGB颜色', 'value': array()),
('attrName': 'ThemeColor', 'type': 'int', 'desc': '主题颜色', 'value': array()),
),
'Demo': '',
),
('ObjName': 'TFills',
'Desc': ('TFills有以下属性: '),
'AttrInfo': (
('attrName': '', 'type': '', 'desc': '填充方式{Pattern}和{Gradient}只能设置一种', 'value': array()),
('attrName': 'Pattern', 'type': 'class - TPattern', 'desc': '图案填充', 'value': array()),
('attrName': 'Gradient', 'type': 'class - TGradient', 'desc': '颜色渐变填充', 'value': array()),
),
'Demo': '',
),
('ObjName': 'TPattern',
'Desc': ('TPattern有以下属性: '),
'AttrInfo': (
('attrName': 'PatternType', 'type': 'string', 'desc': '图案样式', 'value': array()),
('attrName': '', 'type': '', 'desc': '{颜色}：前景色，{ForegroundColor}和{ForegroundThemeColor}只能设置一种', 'value': array()),
('attrName': 'ForegroundColor', 'type': 'string', 'desc': 'RGB颜色', 'value': array()),
('attrName': 'ForegroundThemeColor', 'type': 'int', 'desc': '主题颜色', 'value': array()),
('attrName': 'ForegroundThemeColorTint', 'type': 'int', 'desc': '主题颜色的色调', 'value': array()),
('attrName': '', 'type': '', 'desc': '{颜色}：背景色，{BackgroundColor}和{BackgroundThemeColor}只能设置一种', 'value': array()),
('attrName': 'BackgroundColor', 'type': 'string', 'desc': 'RGB颜色', 'value': array()),
('attrName': 'BackgroundThemeColor', 'type': 'int', 'desc': '主题颜色', 'value': array()),
('attrName': 'BackgroundThemeColorTint', 'type': 'int', 'desc': '主题颜色的色调', 'value': array()),
),
'Demo': '',
),
('ObjName': 'TGradient',
'Desc': ('TGradient有以下属性: '),
'AttrInfo': (
('attrName': '', 'type': '', 'desc': '{颜色1}：渐变的第一种颜色，{Color1}和{ThemeColor1}只能设置一种', 'value': array()),
('attrName': 'Color1', 'type': 'string', 'desc': 'RGB颜色', 'value': array()),
('attrName': 'ThemeColor1', 'type': 'int', 'desc': '主题颜色', 'value': array()),
('attrName': '', 'type': '', 'desc': '{颜色2}：渐变的第一种颜色，{Color2}和{ThemeColor2}只能设置一种', 'value': array()),
('attrName': 'Color2', 'type': 'string', 'desc': 'RGB颜色', 'value': array()),
('attrName': 'ThemeColor2', 'type': 'int', 'desc': '主题颜色', 'value': array()),
('attrName': 'Shading', 'type': 'int', 'desc': '底纹样式', 'value': array('0: 水平渐变，颜色1从上到下渐变到颜色2', '1: 水平渐变，颜色2从上到下渐变到颜色1',
'2: 水平渐变，三层颜色，颜色1从上渐变到中间颜色2，再从颜色2渐变到底部颜色1',
'3: 垂直渐变，颜色1从左到右渐变到颜色2',
'4: 垂直渐变，颜色2从右到左渐变到颜色1',
'5: 垂直渐变，三层颜色，颜色1从左渐变到中间颜色2，再从颜色2渐变到右边颜色1',
'6: 斜上渐变，颜色1左上渐变到右下颜色2',
'7: 斜上渐变，颜色2左上渐变到右下颜色1',
'8: 斜上渐变，三层颜色，颜色1从左上渐变到对角线颜色2，再从颜色2渐变到右下颜色1',
'9: 斜下渐变，颜色1右上渐变到左下颜色2',
'10: 斜下渐变，颜色2左上渐变到右下颜色1',
'11: 斜下渐变，三层颜色，颜色1从左上渐变到对角线颜色2，再从颜色2渐变到右下颜色1',
'12: 角部辐射渐变，颜色1左上角辐射渐变到右下角2',
'13: 角部辐射渐变，颜色1右上角辐射渐变到左下角颜色2',
'14: 角部辐射渐变，颜色1左下角辐射渐变到右上角2',
'15: 角部辐射渐变，颜色1右下角辐射渐变到左上角颜色2',
'16: 中心辐射渐变，颜色1从中心向四周辐射到颜色2',
)),
),
'Demo': '',
),
('ObjName': 'TProtection',
'Desc': ('TProtection有以下属性: '),
'AttrInfo': (
('attrName': 'Lock', 'type': 'boolean', 'desc': '是否锁定，默认FALSE', 'value': array()),
('attrName': 'Hide', 'type': 'boolean', 'desc': '是否隐藏，默认FALSE', 'value': array()),
),
'Demo': '',
),
('ObjName': 'THeaderFooter',
'Desc': ('THeaderFooter有以下属性: '),
'AttrInfo': (
('attrName': 'DifferentOddEven', 'type': 'boolean', 'desc': '是否分别设定奇数和偶数页页眉和页脚，若为FALSE（默认）时，仅需设置{OddHeader}和{OddFooter}', 'value': array()),
('attrName': 'DifferentFirst', 'type': 'boolean', 'desc': '是否单独设定首页页眉页脚', 'value': array()),
('attrName': 'ScaleWithDoc', 'type': 'boolean', 'desc': '是否随文档一起缩放', 'value': array()),
('attrName': 'AlignWithMargin', 'type': 'boolean', 'desc': '是否与页边距对齐', 'value': array()),
('attrName': 'OddHeader', 'type': 'string', 'desc': '奇数页页眉控制符', 'value': array()),
('attrName': 'OddFooter', 'type': 'string', 'desc': '奇数页页脚控制符', 'value': array()),
('attrName': 'EvenHeader', 'type': 'string', 'desc': '偶数页页眉控制符，仅{DifferentOddEven} = TRUE 时有效', 'value': array()),
('attrName': 'EvenFooter', 'type': 'string', 'desc': '偶数页页脚控制符，仅{DifferentOddEven} = TRUE 时有效', 'value': array()),
('attrName': 'FirstHeader', 'type': 'string', 'desc': '首页页眉控制符，仅{DifferentFirst} = TRUE 时有效', 'value': array()),
('attrName': 'FirstFooter', 'type': 'string', 'desc': '首页页脚控制符，仅{DifferentFirst} = TRUE 时有效', 'value': array()),
),
'Demo': '',
),
('ObjName': 'TMargins',
'Desc': ('TMargins有以下属性: '),
'AttrInfo': (
('attrName': 'Left', 'type': 'double', 'desc': '左页边距', 'value': array()),
('attrName': 'Right', 'type': 'double', 'desc': '右页边距', 'value': array()),
('attrName': 'Top', 'type': 'double', 'desc': '上页边距', 'value': array()),
('attrName': 'Bottom', 'type': 'double', 'desc': '下页边距', 'value': array()),
('attrName': 'Header', 'type': 'double', 'desc': '页眉页边距', 'value': array()),
('attrName': 'Footer', 'type': 'double', 'desc': '页脚页边距', 'value': array()),
),
'Demo': '',
),
('ObjName': 'TPageLayout',
'Desc': ('TPageLayout有以下属性: '),
'AttrInfo': (
('attrName': 'PaperSize', 'type': 'int', 'desc': '纸张大小', 'value': array()),
('attrName': '', 'type': '', 'desc': '{Scale}和{FitToWidth},{FitToHeight}只能设置一种', 'value': array()),
('attrName': 'Scale', 'type': 'int', 'desc': '缩放比例(%)', 'value': array()),
('attrName': 'FitToWidth', 'type': 'int', 'desc': '页宽', 'value': array()),
('attrName': 'FitToHeight', 'type': 'int', 'desc': '页高', 'value': array()),
('attrName': 'FirstPageNumber', 'type': 'int', 'desc': '起始页码', 'value': array()),
('attrName': 'Orientation', 'type': 'string', 'desc': '纸张方向', 'value': array('"landscape": 横向', '"portrait": 纵向')),
('attrName': 'PageOrder', 'type': 'string', 'desc': '打印顺序', 'value': array('nil（默认）: 先列后行', '"overThenDown": 先行后列')),
('attrName': 'BlackAndWhite', 'type': 'boolean', 'desc': '单色打印', 'value': array()),
('attrName': 'Draft', 'type': 'boolean', 'desc': '是否开启草稿质量', 'value': array()),
('attrName': 'CellComments', 'type': 'string', 'desc': '注释', 'value': array('nil（默认）: 无', '"atEnd": 工作表末尾', '"asDisplayed": 如同工作表中的显示')),
('attrName': 'CellError', 'type': 'string', 'desc': '错误单元格打印为', 'value': array('nil（默认）: 显示值', '"blank": 空白', '"dash": "--"', "NA": "#N/A")),
),
'Demo': '',
),
('ObjName': 'TAppProperty',
'Desc': ('TAppProperty有以下属性: '),
'AttrInfo': (
('attrName': 'Application', 'type': 'string', 'desc': '应用程序', 'value': array()),
('attrName': 'DocSecurity', 'type': 'boolean', 'desc': '', 'value': array()),
('attrName': 'ScaleCrop', 'type': 'string', 'desc': '', 'value': array('"false"（默认）', '"true"')),
('attrName': 'Manager', 'type': 'string', 'desc': '主管', 'value': array()),
('attrName': 'LinksUpToDate', 'type': 'string', 'desc': '', 'value': array('"false"（默认）', '"true"')),
('attrName': 'SharedDoc', 'type': 'string', 'desc': '', 'value': array('"false"（默认）', '"true"')),
('attrName': 'HyperlinkBase', 'type': 'string', 'desc': '超链接基础', 'value': array()),
('attrName': 'HyperlinksChanged', 'type': 'string', 'desc': '', 'value': array('"false"（默认）', '"true"')),
('attrName': 'AppVersion', 'type': 'string', 'desc': '应用程序版本', 'value': array()),
),
'Demo': '',
),
('ObjName': 'THyperLink',
'Desc': ('THyperLink有以下属性: '),
'AttrInfo': (
('attrName': 'LinkType', 'type': 'string', 'desc': '超链接类型', 'value': array('"External": 外部超链接', '"Location"': 内部超链接)),
('attrName': 'LinkUrl', 'type': 'string', 'desc': '超链接地址', 'value': array()),
('attrName': 'Tooltip', 'type': 'string', 'desc': '超链接悬浮提示内容', 'value': array()),
('attrName': 'Display', 'type': 'string', 'desc': '单元格显示的内容', 'value': array()),
),
'Demo': '',
),
('ObjName': 'TPicture',
'Desc': ('TPicture有以下属性: '),
'AttrInfo': (
('attrName': 'Image', 'type': 'binary', 'desc': '图片的二进制数据', 'value': array()),
('attrName': 'Descr', 'type': 'binary', 'desc': '图片描述', 'value': array()),
),
'Demo': '',
),
('ObjName': 'TPictureFormat',
'Desc': ('TPictureFormat有以下属性: '),
'AttrInfo': (
('attrName': 'BegColOff', 'type': 'int', 'desc': '开始列偏移', 'value': array()),
('attrName': 'BegRowOff', 'type': 'int', 'desc': '开始行偏移', 'value': array()),
('attrName': 'EndColOff', 'type': 'int', 'desc': '结束列偏移', 'value': array()),
('attrName': 'EndRowOff', 'type': 'int', 'desc': '结束行偏移', 'value': array()),
),
'Demo': '',
),
);
End
Demo/chart.tsl
+82
View File
@@ -0,0 +1,82 @@
excel := new TSExcelFile();
_test_addchart(excel);
//_test_getcharts(excel);
Function _test_getcharts(excel);
Begin
f := 'F:\\temp\\test.xlsx';
[err, errmsg] := excel.OpenFile('', f);
if err then return
echo 'Open Fail:', errmsg, '\n';
[err, charts] := excel.GetCharts('Sheet1');
for i:=0 to length(charts)-1 do Begin
println('ChartName={}, Title={}, Series={}',charts[i].Chart.Name, charts[i].Chart.Title, charts[i].Chart.Series);
End;
charts[1].RemoveSeries(1);
[err, errmsg] := excel.SaveAs('', 'f:\\temp\\ch.xlsx');
println('SaveAs->{}',err);
//charts[i].RemoveSeries(i);
//charts[i].AddSeries(Name, Categories, Values);
//charts[i].UpdateSeries(i, Name, Categories, Values);
//charts[i].UpdateTitle(i, title);
End;
Function _test_addchart(excel);
Begin
//f := 'F:\\temp\\test.xlsx';
[err, errmsg] := excel.NewFile();
//[err, errmsg] := excel.OpenFile('', f);
if err then return
echo 'Open Fail:', errmsg, '\n';
//插入数据表
data := array(("Name":"Small","Apple":2,"Orange":3,"Pear":3),
("Name":"Normal","Apple":5,"Orange":2,"Pear":4),
("Name":"Large","Apple":6,"Orange":7,"Pear":8));
chart := TOfficeObj('TChart');
chart.Type := 'col';
chart.VaryColors := true;
chart.BegColOff := 80000;
chart.BegRowOff := 80000;
chart.Name := 'test chart 1';
chart.Title := 'Hans Chart';
chart.AddSeries('Sheet1!$A$6', 'Sheet1!$B$5:$D$5', 'Sheet1!$B$6:$D$6');
chart.AddSeries('Sheet1!$A$7', 'Sheet1!$B$5:$D$5', 'Sheet1!$B$7:$D$7');
chart.AddSeries('Sheet1!$A$8', 'Sheet1!$B$5:$D$5', 'Sheet1!$B$8:$D$8');
chart.ShowLegendKey := false;
chart.Legend.Position := 'left';
chart.ShowBubbleSize := true;
chart.ShowCatName := false;
chart.ShowLeaderLines := false;
chart.ShowPercent := true;
chart.ShowSerName := true;
chart.ShowVal := true;
chart.ShowBlanksAs := 'zero';
[err, errinfo] := excel.InsertTable("Sheet1","A5",data, true);
chart1 := excel.AddChart('Sheet1', 'A11:G30', chart);
println('AddChart1={}', chart1);
chart.Type := 'pie3D';
chart.VaryColors := true;
chart.BegColOff := 0;
chart.BegRowOff := 0;
chart.Name := 'test chart 2';
chart.Title := 'Hans Chart 2';
chart.Legend.Position := 'bottom';
chart.Series := array(('Name':"Sheet3!$A$6", 'Categories':"Sheet3!$B$5:$D$5", 'Values':"Sheet3!$B$6:$D$6"));
chart.ShowSerName := false;
chart.ShowVal := false;
excel.NewSheet('Sheet3');
[err, errinfo] := excel.InsertTable("Sheet3","A5",data, true);
chart2 := excel.AddChart('Sheet3', 'I11:P30', chart);
println('AddChart2={}', chart2);
[err, errmsg] := excel.SaveAs('', 'f:\\temp\\ch.xlsx');
println('SaveAs->{}',err);
End;
Demo/docx.tsl
+127
View File
@@ -0,0 +1,127 @@
docx := new TSDocxFile();
//_test_readParagraphs(docx);
_test_newfile(docx);
//_test_addtable(docx);
//_test_Properties(docx);
//_test_picture(docx);
Function _test_picture(docx);
Begin
[err, errmsg] := docx.NewFile();
if err then
return echo 'Open Fail:', errmsg, '\n';
picture := TOfficeObj('TPicture');
picture.Descr := 'Hans Tan\'s Picture test';
readfile(rwbinary(), '', 'F:\\temp\\VS2010Ultim\\Setup\\banner.bmp', 0, 1024*1024, data);
picture.Image := data;
p := docx.AddPicture(picture, -1);
v := docx.SaveAs('', 'f:\\temp\\p.docx');
println('Save={}', v);
End;
Function _test_Properties(docx);
Begin
f := 'F:\\temp\\test.docx';
[err, errmsg] := docx.OpenFile('', f);
if err then return
echo 'Open Fail:', errmsg, '\n';
core := docx.Properties();
core.Author := 'Hans Tan';
core.Modified := now();
docx.SaveAs('', 'f:\\temp\\core.docx');
End;
Function _test_addtable(docx);
Begin
[err, errmsg] := docx.NewFile();
if err then return
echo 'Open Fail:', errmsg, '\n';
data := array(("Name":"Small","Apple":2,"Orange":3,"Pear":3),
("Name":"Normal","Apple":5,"Orange":2,"Pear":4),
("Name":"Large","Apple":6,"Orange":7,"Pear":8));
tbl := docx.CreateTable(data, true, true);
//tbl.TblPr.Style := 1;
tbl := docx.InsertTable(tbl, -1);
v := docx.SaveAs('', 'f:\\temp\\t.docx');
println('Save={}', v);
End;
Function _test_newfile(docx);
Begin
[err, errmsg] := docx.NewFile();
if err then return
echo 'Open Fail:', errmsg, '\n';
paragraph := TOfficeObj('TParagraph');
paragraph.Run.Text := 'This is the 1 Line.';
p := docx.AddParagraph(paragraph, -1);
p := docx.AddLineBreak(p);
p := docx.AddLineBreak(p);
paragraph.Run.Text := 'This is the 2 Line.';
p := docx.AddParagraph(paragraph, -1);
p := docx.AddPageBreak(p);
paragraph.Run.Text := 'This is the 3 Line.';
p := docx.AddParagraph(paragraph, -1);
p := docx.AddColumnBreak(p);
paragraph.Run.Text := '';
p := docx.AddParagraph(paragraph, -1);
p.SetText('This is the 4 Line\nline5\nline6\nline7.');
v := docx.SaveAs('', 'f:\\temp\\new.docx');
println('Save={}', v);
End;
Function _test_readParagraphs(docx);
Begin
f := 'F:\\temp\\test.docx';
[err, errmsg] := docx.OpenFile('', f);
if err then return
echo 'Open Fail:', errmsg, '\n';
paragraph := TOfficeObj('TParagraph');
paragraph.Run.Text := 'New paragraph';
v := docx.AddParagraph(paragraph, 0);
paragraphs := docx.Paragraphs();
println("AddParagraph={}", v);
paragraphs[9].SetText('1、修改文字；
2、第2段；
3、第3段；
4、第4段。');
paragraphs := docx.Paragraphs();
for i:=0 to length(paragraphs)-1 do Begin
println('Name={}, Text={}', paragraphs[i].Name(), paragraphs[i].Text());
End;
tcnt := docx.TablesCount();
println('\n\nTableCount={}',tcnt);
for i := 0 to tcnt-1 do Begin
table := docx.GetTable(i);
for j := 0 to table.Rows()-1 do Begin
for k := 0 to table.Cols()-1 do Begin
cell := table.Cell(j, k);
if ifObj(cell) then Begin
println('row={}, col={}, text={}', j, k, cell.Text());
continue;
End;
println('row={}, col={}, Cell=nil', j, k);
End;
End;
End;
println('all text={}, textArray={}', docx.Text(), docx.TextArray());
docx.SaveAs('', 'f:\\temp\\p.docx');
End;
Demo/excel_demo.tsl
+503
View File
@@ -0,0 +1,503 @@
testCount := 0;
sheetName := "hello";
sheetName2 := "world";
// OpenFile
excel := new TSExcelFile();
[err, errmsg] := excel.OpenFile('', 'd:\\temp\\raw.xlsx');
PrintInfo("OpenFile", err, errmsg);
// Save
[err, errmsg] := excel.Save();
PrintInfo("Save", err, errmsg);
excel := new TSExcelFile();
// NewFile
[err, errmsg] := excel.NewFile();
PrintInfo("NewFile", err, errmsg);
// SaveAs
// [err, errmsg] := excel.SaveAs('', 'd:\\temp\\test.xlsx');
// PrintInfo("SaveAs", err, errmsg);
// FileName
name := excel.FileName();
println("[success] name = {}", name);
// GetSheet
sheets := excel.GetSheets();
println("[success] sheets = {}", sheets);
// GetSheetsCount
sheetCount := excel.GetSheetsCount();
println("[success] GetSheetsCount = {}", sheetCount);
// SetSheetName
[err, errmsg] := excel.SetSheetName("sheet1", sheetName);
PrintInfo("SetSheetName", err, errmsg);
// GetSheetName
sheetName := excel.GetSheetName(0);
println("[success] GetSheetName = {}", sheetName);
// NewSheet
[err, errmsg] := excel.NewSheet(sheetName2);
PrintInfo("NewSheet", err, errmsg);
// DeleteSheet
[err, errmsg] := excel.NewSheet("test1");
//[err, errmsg] := excel.DeleteSheet("test1");
//PrintInfo("DeleteSheet", err, errmsg);
// TotalCols
totalCols := excel.TotalCols(sheetName);
println("[success] TotalCols = {}", totalCols);
// TotalRows
totalRows := excel.TotalRows(sheetName);
println("[success] TotalRows = {}", totalRows);
// SetCellValue
flag := excel.SetCellValue(sheetName, "A1", 100);
println("[success] SetCellValue = ", flag);
// GetCellValue
[err, errmsg] := excel.GetCellValue(sheetName, "A1");
PrintInfo("GetCellValue", err, errmsg);
// SetCellRichText
richText := TOfficeObj('TRichtext');
text1 := richText.AddText('Hello');
text1.Font.Size := 35;
text1.Font.Color := "FFF000";
text2 := richText.AddText(" World");
text2.Font.Size := 25;
text2.Font.Bold := true;
excel.SetCellRichText(sheetName, "A2", richText);
text2.Text := "python";
excel.SetCellRichText(sheetName, "A3", richText);
println("[success] SetCellRichText");
// GetCellRichText
arr := excel.GetCellRichText(sheetName, "A3");
println("[success] GetCellRichText = {}", arr);
// ClearCell
excel.ClearCell(sheetName, "A1");
//excel.ClearCell(sheetName);
println("[success] ClearCell");
// SetCellFormula
excel.SetCellFormula(sheetName, "A2", "=100*50");
println("[success] SetCellFormula");
// GetCellFormula
[err, errmsg] := excel.GetCellFormula(sheetName, "A2");
PrintInfo("GetCellFormula", err, errmsg);
// SetSheetRow
excel.SetSheetRow(sheetName, "C3", array(1, 2, 3, 4, "a", "b"));
println("[success] SetSheetRow");
// InsertTable
table := array((1, 2, "你好"), (4, 5, "b"));
//table2 := array(("title1" :1, "title2": 2), ("title1": 3, "title2": 4));
[err, errmsg] := excel.InsertTable(sheetName, "A5", table);
PrintInfo("InsertTable", err, errmsg);
// GetTable
table := excel.GetTable(sheetName, "A5", "B7");
println("[success] GetTable = {}", table);
// InsertCol
excel.InsertCol(sheetName, "B");
excel.InsertCol(sheetName, "B");
println("[success] InsertCol");
// InsertRow
excel.InsertRow(sheetName, 3);
excel.InsertRow(sheetName, 3);
println("[success] InsertRow");
// RemoveCol
excel.RemoveCol(sheetName, "B");
println("[success] RemoveCol");
// RemoveRow
excel.RemoveRow(sheetName, 3);
println("[success] RemoveRow");
// SetRowHeight
excel.SetRowHeight(sheetName, 1, 30);
excel.SetRowHeight(sheetName, 15, 30);
println("[success] SetRowHeight");
// GetRowHeight
height := excel.GetRowHeight(sheetName, 2);
println("[success] GetRowHeight = {}", height);
height := excel.GetRowHeight(sheetName, 15);
println("[success] GetRowHeight = {}", height);
// SetColWidth
excel.SetColWidth(sheetName, "A", "D", 20);
println("[success] SetColWidth");
// GetColWidth
width := excel.GetColWidth(sheetName, "A");
println("[success] GetColWidth = {}", width);
width := excel.GetColWidth(sheetName, "E");
println("[success] GetColWidth = {}", width);
// SetSheetDefaultColWidth
excel.SetSheetDefaultColWidth(sheetName, 15);
println("[success] SetSheetDefaultColWidth");
// GetSheetDefaultColWidth
width := excel.GetSheetDefaultColWidth(sheetName);
println("[success] GetSheetDefaultColWidth = {}", width);
// AddComment
excel.AddComment(sheetName, "A1", "csh", "heiheihei");
println("[success] AddComment");
// AddChart
data := array(("Name":"Small","Apple":2,"Orange":3,"Pear":3),
("Name":"Normal","Apple":5,"Orange":2,"Pear":4),
("Name":"Large","Apple":6,"Orange":7,"Pear":8));
chart := TOfficeObj('TChart');
chart.Type := 'col';
chart.VaryColors := true;
chart.BegColOff := 20000;
chart.BegRowOff := 20000;
chart.Name := 'test chart 1';
chart.Title := 'Hans Chart';
chart.AddSeries('Sheet1!$A$6', 'Sheet1!$B$5:$D$5', 'Sheet1!$B$6:$D$6');
chart.AddSeries('Sheet1!$A$7', 'Sheet1!$B$5:$D$5', 'Sheet1!$B$7:$D$7');
chart.AddSeries('Sheet1!$A$8', 'Sheet1!$B$5:$D$5', 'Sheet1!$B$8:$D$8');
chart.ShowLegendKey := false;
chart.Legend.Position := 'left';
chart.ShowBubbleSize := true;
chart.ShowCatName := false;
chart.ShowLeaderLines := false;
chart.ShowPercent := true;
chart.ShowSerName := true;
chart.ShowVal := true;
chart.ShowBlanksAs := 'zero';
excel.NewSheet('Sheet1');
[err, errinfo] := excel.InsertTable("Sheet1","A5",data, true);
chart1 := excel.AddChart('Sheet1', 'A11:G30', chart);
println("[success] AddChart");
[err, errmsg] := excel.saveas("", "d:\\temp\\test.xlsx");
println("saveas : {}", err);
// GetCharts
[err, charts] := excel.GetCharts('Sheet1');
for i:=0 to length(charts)-1 do Begin
println('ChartName={}, Title={}, Series={}',charts[i].Chart.Name, charts[i].Chart.Title, charts[i].Chart.Series);
End;
// SplitCellName
[err, col, row] := excel.SplitCellName("AK47");
if not err then println("[success] {} = col : {}, row = {}", "SplitCellName", col, row);
// JoinCellName
[err, errmsg] := excel.JoinCellName("AK", 47);
PrintInfo("JoinCellName", err, errmsg);
// ColumnNameToNumber
[err, errmsg] := excel.ColumnNameToNumber("AK");
PrintInfo("ColumnNameToNumber", err, errmsg);
// ColumnNumberToName
[err, errmsg] := excel.ColumnNumberToName(37);
PrintInfo("ColumnNumberToName", err, errmsg);
// CellNameToCoordinates
[err, col, row] := excel.CellNameToCoordinates("A2");
if not err then println("[success] {} = col : {}, row = {}", "CellNameToCoordinates", col, row);
// RGBToHSL
[err, h, s, l] := excel.RGBToHSL(255, 15, 33);
if not err then println("[success] {} = {}, {}, {}", "RGBToHSL", h, s, l);
// HSLToRGB
[err, r, g, b] := excel.HSLToRGB(h, s, l);
if not err then println("[success] {} = {}, {}, {}", "HSLToRGB", h, s, l);
// NewStyle
style := TOfficeObj('TStyle');
style.Font.Color := "A020F0";
style.Font.Size := 22;
style.Font.Name := "黑体";
style.Font.Bold := True;
style.Font.Charset := "134";
style.Font.Script := "subscript";
style.Font.Underline := "double";
style.Font.Strikethrough := True;
style.Font.Italic := True;
style.Alignment.Horizontal := "center";
style.Alignment.Vertical := "justify";
style.Alignment.WrapText := True;
style.Alignment.ReadingOrder := 2;
style.Border.Left.LineStyle := "thin";
style.Border.Left.Color := "A020F0";
style.Border.Right.LineStyle := "thin";
style.Border.Right.Color := "FF0000";
style.Border.Bottom.LineStyle := "mediumDashed";
style.Border.Bottom.Color := "FF0000";
style.Border.Top.LineStyle := "mediumDashed";
style.Border.Top.Color := "FF0000";
style.Border.DiagonalDown := True;
style.Border.DiagonalUp := True;
style.Border.Diagonal.LineStyle := "double";
style.Border.Diagonal.Color := "A020F0";
style.NumberFormat.FormatCode := "#,##0.000_ ";
//style.Fill.Pattern.PatternType := "solid";
//style.Fill.Pattern.ForegroundColor := "FF6699FF";
//style.Fill.Pattern.BackgroundColor := "FFFF0000";
style.Fill.Gradient.ThemeColor1 := 0;
style.Fill.Gradient.ThemeColor2 := 4;
style.Fill.Gradient.Shading := 1;
style.Protection.Hide := 1;
style.Protection.Lock := 1;
styleid1 := excel.NewStyle(style);
println("[success] NewStyle = {}", styleid1);
// SetCellStyle
excel.SetCellStyle(sheetName, "A1", "A2", styleid1);
println("[success] SetCellStyle");
styleid := excel.GetCellStyle(sheetName, "A1");
println("[success] GetCellStyle = {}", styleid);
styleid := excel.GetCellStyle(sheetName, "D4");
println("[success] GetCellStyle = {}", styleid);
// SetSheetHeaderFooter
headerFooter := TOfficeObj("THeaderFooter");
headerFooter.DifferentOddEven := true;
headerFooter.DifferentFirst := true;
headerFooter.ScaleWithDoc := False;
headerFooter.AlignWithMargin := False;
headerFooter.OddHeader := "&L123&456&789";
headerFooter.OddFooter := "&Ldef&Rhij";
headerFooter.EvenHeader := "&L123&R456";
headerFooter.EvenFooter := "&L456&R789";
headerFooter.FirstHeader := "&L++";
headerFooter.FirstFooter := "&R--";
excel.SetSheetHeaderFooter(sheetName, headerFooter);
println("[success] SetSheetHeaderFooter");
// SetSheetVisible
excel.SetSheetVisible(sheetName, True);
println("[success] SetSheetVisible");
// GetSheetVisible
visible := excel.GetSheetVisible(sheetName);
println("[success] GetSheetVisible = {}", visible);
// SetRowVisible
excel.SetRowVisible(sheetName, 2, false);
println("[success] SetRowVisible");
// GetRowVisble
[err, errmsg] := excel.GetRowVisble(sheetName, 2);
PrintInfo("GetRowVisble 2", err, errmsg);
[err, errmsg] := excel.GetRowVisble(sheetName, 3);
PrintInfo("GetRowVisble 3", err, errmsg);
// SetColVisible
excel.SetColVisible(sheetName, "A", false);
println("[success] SetRowVisible");
// GetColVisble
[err, errmsg] := excel.GetColVisble(sheetName, "A");
PrintInfo("GetColVisible", err, errmsg);
// SetPageMargins
margins := TOfficeObj('TMargins');
margins.Top := 0.5;
margins.Bottom := 0.6;
margins.Left := 0.7;
margins.Right := 0.8;
margins.Header := 0.9;
margins.Footer := 1.0;
excel.SetPageMargins(sheetName2, margins);
println("[success] SetPageMargins");
// GetPageMargins
margins := excel.GetPageMargins(sheetName2);
println("[success] GetPageMargins top = {}, bottom = {}, left = {}, right = {}, header = {}, footer = {}",
margins.Value('Top'), margins.Value('Bottom'), margins.Value('Left'), margins.Value('Right'),
margins.Value('Header'), margins.Value('Footer'));
// MergeCell
excel.SetCellStyle(sheetName2, "A4", "A4", styleid1);
excel.MergeCell(sheetName2, "A4", "C4");
excel.MergeCell(sheetName2, "A5", "D7");
println("[success] MergeCell");
// UnMergeCell
excel.UnMergeCell(sheetName2, "A4", "C4");
println("[success] UnMergeCell");
// TODO 未完全开发完毕
// SetSheetViewOptions
// GetSheetViewOptions
// SetPageLayout
pageLayout := TOfficeObj('TPageLayout');
pageLayout.FitToWidth := 10;
pageLayout.FitToHeight := 10;
pageLayout.FirstPageNumber := 5;
pageLayout.Orientation := "portrait";
pageLayout.BlackAndWhite := true;
pageLayout.PaperSize := 11;
pageLayout.PageOrder := "overThenDown";
pageLayout.CellError := "blank";
pageLayout.CellComments := "asDisplayed";
excel.SetPageLayout(sheetName2, pageLayout);
println("[success] SetPageLayout");
// GetPageLayout
pageLayout := excel.GetPageLayout(sheetName2);
println("[success] GetPageLayout FitToWidth = {}, PaperSize = {}", pageLayout.Value('FitToWidth'), pageLayout.Value('PaperSize'));
// SetDefaultSheet
excel.SetDefaultSheet(sheetName2);
println("[success] SetDefaultSheet");
// GetDefaultSheet
sheet := excel.GetDefaultSheet();
println("[success] GetDefaultSheet = {}", sheet);
// SetCellHyperLink
link := TOfficeObj('THyperLink');
link.LinkType := "Location";
link.LinkUrl := sheetName $ "!A1";
excel.SetCellHyperLink(sheetName2, 'A1', link);
link := TOfficeObj('THyperLink');
link.LinkType := "External";
link.LinkUrl := "https://www.baidu.com";
link.Tooltip := "超链接悬浮提示";
excel.SetCellValue(sheetName2, 'A2', '超链接');
excel.SetCellHyperLink(sheetName2, 'A2', link);
println("[success] SetCellHyperLink");
// GetCellHyperLink
hyperlink := excel.GetCellHyperLink(sheetName2, 'A2');
println("[success] GetCellHyperLink LinkType = {}, LinkUrl = {}, Tooltip = {}", hyperlink.Value('LinkType'), hyperlink.Value('LinkUrl'), hyperlink.Value('Tooltip'));
// SetSheetBackground
ret := readfile(rwBinary(), "", "C:\\Users\\csh05\\Pictures\\Saved Pictures\\1.jpg", 0, 1024000, data);
if not ret then return echo "readfile error!";
picture := TOfficeObj('TPicture');
picture.Image := data;
excel.SetSheetBackground(sheetName, picture);
println("[success] SetSheetBackground");
// AddPicture
format := TOfficeObj('TPictureFormat');
format.BegColOff := 20000;
format.EndColOff := 20000;
excel.AddPicture(sheetName, 'A11', 'F33', picture, format);
excel.AddPicture(sheetName2, 'A8', 'D16', picture, format);
println("[success] AddPicture");
// DeletePicture
excel.DeletePicture(sheetName2, 'A1', 'D17');
println("[success] DeletePicture");
// TODO 可能有问题
// AddTable
table2 := array(("title1" :1, "title2": 2), ("title1": 3, "title2": 4));
excel.InsertTable(sheetName2, "A9", table2, true);
tablestyle := TOfficeObj('TTableStyle');
tablestyle.TableName := "测试表";
tablestyle.TableStyle := "TableStyleMedium2";
tablestyle.ShowFirstColumn := True;
tablestyle.ShowLastColumn := True;
tablestyle.ShowRowStripes := True;
tablestyle.ShowColumnStripes := True;
excel.AddTable(sheetName2, "A9", "B11", tablestyle, false);
println("[success] AddTable");
// InsertPageBreak
excel.InsertPageBreak(sheetName2, 10);
excel.InsertPageBreak(sheetName2, 15);
println("[success] InsertPageBreak");
// RemovePageBreak
excel.RemovePageBreak(sheetName2, 15);
println("[success] RemovePageBreak");
// AddShape
shape_format := TOfficeObj('TShapeFormat');
shape_format.BegColOff := 354252;
shape_format.EndColOff := 7653;
shape_format.BegRowOff := 55577;
shape_format.EndRowOff := 66675;
shape_type := "roundRect";
// SetCoreProps
core := TOfficeObj('TCoreProperty');
core.Title := "标题";
core.Subject := "主题";
core.Creator := "作者";
excel.SetCoreProps(core);
println("[success] SetCoreProps");
// GetCoreProps
core := excel.GetCoreProps();
println("[success] GetCoreProps Title = {}, subject = {}, Creator = {}", core.Value("Title"), core.Value("Subject"), core.Value("Creator"));
// SetAppProps
appProps := TOfficeObj('TAppProperty');
appProps.Application := "Microsoft TX";
appProps.DocSecurity := false;
appProps.ScaleCrop := "true";
appProps.Company := "TS";
appProps.LinksUpToDate := "true";
appProps.HyperlinksChanged := "true";
appProps.AppVersion := "1.000";
appProps.Manager := "这是主管";
//appProps.HyperlinkBase := "这是超链接基础";
excel.SetAppProps(appProps);
println("[success] SetAppProps");
// GetAppProps
app_props := excel.GetAppProps();
println("[success] GetAppProps Manager = {}, Company = {}, Application = {}", app_props.Value('Manager'), app_props.Value('Company'), app_props.Value('Application'));
[err, errmsg] := excel.saveas("", "d:\\temp\\test.xlsx");
println("saveas : {}", err);
Function _test_background(excel);
Begin
f := 'D:\\temp\\a.xlsx';
[err, msg] := excel.OpenFile('', f);
if err then return
echo "Open Fail:", msg, '\n';
ret := readfile(rwBinary(), "", "C:\\Users\\csh05\\Pictures\\Saved Pictures\\1.png", 0, 102400, data);
if ret then pictrue := new TSImage(data);
else return echo "readfile error!";
excel.SetSheetBackground('Sheet1', pictrue);
[err, errmsg] := excel.SaveAs('', 'd:\\temp\\e.xlsx');
println('SaveAs->{}',err);
End
// ============================================================
Function PrintInfo(msg, err, errinfo);
Begin
if err then debugreturn println("{} : errorno = {}, errorinfo = {}!", msg, err, errinfo);
println("[success] {} = {}", msg, errinfo);
End
Demo/wordHelp.tsl
+1114
View File
File diff suppressed because it is too large Load Diff
DocxFile使用帮助.docx
BIN
View File
Binary file not shown.
ExcelFile使用帮助.xlsx
BIN
View File
Binary file not shown.
Linux-aarch64/libTsXlsx.so
BIN
View File
Binary file not shown.
Linux-aarch64/liboffice_plugin.so
BIN
View File
Binary file not shown.
Linux-x86_64/libTsXlsx.so
BIN
View File
Binary file not shown.
Linux-x86_64/liboffice_plugin.so
BIN
View File
Binary file not shown.
README.md
+19 -5
View File
@@ -6,12 +6,26 @@ TSOffice 项目：纯 TSL 代码实现 excel、word 文件读写
### windows
- [fmt_pubkrnl_plugin](./Windows-X64/fmt_pubkrnl_plugin.dll) 放入 tsl 安装根目录下 Plugin 文件夹
- [office_plugin](./Windows-X64/office_plugin.dll) 放入 tsl 安装根目录下 Plugin 文件夹
- [tsxlsx.dll](./Windows-X64/tsxlsx.dll) 放入 tsl 安装根目录
对应文件夹的dll文件按如下要求
- `fmt_pubkrnl_plugin` 放入 tsl 安装根目录下 Plugin 文件夹
- `office_plugin` 放入 tsl 安装根目录下 Plugin 文件夹
- `tsxlsx.dll` 放入 tsl 安装根目录
### Linux
根据架构选择aarch64或x86版本将对应文件夹内容进行部署
- `liboffice_plugin` 放入 tsl 安装根目录下 Plugin 文件夹
- `libTsXlsx` 放入 tsl 安装根目录
## 帮助文档
- [Excel 帮助文档](./ExcelFile%E4%BD%BF%E7%94%A8%E5%B8%AE%E5%8A%A9.xlsx) 涵盖了对Excel文件的操作API
- [Excel 帮助文档](./ExcelFile使用帮助.xlsx)
- [TOfficeObj 帮助文档](./TOfficeObj.md) 使用的对象的文档说明，比如说“样式”（TStyle）对象
- [Word 帮助文档](./DocxFile使用帮助.docx)
## Demo
Demo文件夹提供了一些参考的demo
TOfficeObj.md
-144
View File
@@ -1,144 +0,0 @@
# TOfficeObj 说明文档
## TStyle
- **NumberFormat** : `class` : [**TNumFmts**](#tnumfmts) 数字样式
- **Alignment** : `class` : [**TAligment**](#taligment) 对齐样式
- **Font** : `class` : [**TFont**](#tfont) 字体样式
- **Border** : `class` : [**TBorder**](#tborders) 边框样式
- **Fill** : `class` : [**TFills**](#tfills) 填充样式
- **Protection** : `class` : [**TProtection**](#tprotection) 保护样式
## TNumFmts
- **FormatCode** : `string`
## TAligment
- **Horizontal** : `string` 水平对齐
- nil（默认）：靠右
- "center" : 居中
- "left" : 靠左
- "fill" : 填充
- "justify" : 两端对齐
- "distributed" : 分散对齐
- "centerContinuous" : 跨列居中
- **Vertical** : `string` 垂直对齐
- nil（默认）：靠下
- "center" : 居中
- "top" : 靠上
- "justify" : 两端对齐
- "distributed" : 分散对齐
- **WrapText** : `boolean` 是否自动换行，默认不换行
- **ReadingOrder** : `string` 文字方向
- nil（默认）：根据内容
- "1" : 总是从左到右
- "2" : 总是从右到左
## TFont
- **Name** : `string`，字体名称
- **Size** : `float` 字体大小
- **Bold** : `boolean` 是否加粗，默认不加粗
- **Italic** : `boolean` 是否倾斜，默认不倾斜
- **Charset** : `string` 字符集，可不设置
- **Strikethrough** : `boolean` 是否启用删除线，默认不启用
- **Script** : `string` 上下标
- "subscript" : 下标
- "superscript" : 上标
- _颜色，只能设置以下一种属性_
- **Color** : `string` RGB 颜色，如"FFA020F0"
- **ThemeColor** : `int` 主题颜色
- **Underline** : `string` 下划线，默认无
- "double" : 双下划线
- "singleAccounting" : 会计单下划线
- "doubleAccounting" : 会计双下划线
```md
未使用
- **FontStyle** : `string`
- **OutlineFont** : `string`
- **shadow** : `string`
- **Background** : `string`
- **TintAndShade** :
- **rFont** :
- **ThemeFont** :
- **ColorIndex** : `string`
```
## TBorders
- **Left** : `class` : [**TBorder**](#tborder) 左边框
- **Right** : `class` : [**TBorder**](#tborder) 右边框
- **Top** : `class` : [**TBorder**](#tborder) 上边框
- **Bottom** : `class` : [**TBorder**](#tborder) 下边框
- **DiagonalUp** : `boolean` 斜上对角线
- **DiagonalDown** : `boolean` 斜下对角线
- **Diagonal** : `class` : [**TBorder**](#tborder) 对角线，设置 **DiagonalUp** 或 **DiagonalDown** 时有效
## TBorder
- **LineStyle** : `string` 线型
- "hair"
- "dotted"
- "dashDotDot"
- "dashDot"
- "dashed"
- "thin"
- "slantDashDot"
- "mediumDashDodDot"
- "mediumDashDot"
- "mediumDashed"
- "medium"
- "thick"
- "double"
- _颜色，只能设置以下一种属性_
- **Color** : `string` RGB 颜色，如"FFA020F0"
- **ThemeColor** : `int` 主题颜色
## TFills
只能设置一种填充方式
- **Pattern** : `class` : [**TPattern**](#tpattern) 图案填充
- **Gradient** : `class` : [**TGradient**](#tgradient) 颜色渐变填充
## TPattern
- **PatternType** : `string` 图案样式
- _颜色：前景色，只能设置以下一种属性_
- **ForegroundColor** : `string` RGB 颜色
- **ForegroundThemeColor** : `int` 主题颜色
- _颜色：背景色，只能设置以下一种属性_
- **BackgroundColor** : `string` RGB 颜色
- **BackgroundThemeColor** : `int` 主题颜色
## TGradient
- _颜色 1：渐变的颜色 1，但每个颜色只能设置以下一种属性_
- **Color1** : `string` RGB 颜色
- **ThemeColor1** : `int` 主题颜色
- _颜色 2：渐变的颜色 2，但每个颜色只能设置以下一种属性_
- **Color2** : `string` RGB 颜色
- **ThemeColor2** : `int` 主题颜色
- **Shading** : `int` 底纹样式
| <div style="width: 20pt">取值</div> | 样式 | 取值 | 样式 |
| ----------------------------------- | -------------------------------------------------------------------------------- | ---- | ------------------------------------------------- |
| 0 | 水平渐变，颜色 1 从上到下渐变到颜色 2 | 1 | 水平渐变，颜色 2 从上到下渐变到颜色 1 |
| 2 | 水平渐变，三层颜色，颜色 1 从上渐变到中间颜色 2，再从颜色 2 渐变到底部颜色 1 |
| 3 | 垂直渐变，颜色 1 从左到右渐变到颜色 2 | 4 | 垂直渐变，颜色 2 从右到左渐变到颜色 1 |
| 5 | 垂直渐变，三层颜色，颜色 1 从左渐变到中间颜色 2，再从颜色 2 渐变到右边颜色 1 |
| 6 | 斜上渐变，颜色 1 左上渐变到右下颜色 2 | 7 | 斜上渐变，颜色 2 左上渐变到右下颜色 1 |
| 8 | 斜上渐变，三层颜色，颜色 1 从左上渐变到对角线颜色 2，再从颜色 2 渐变到右下颜色 1 |
| 9 | 斜下渐变，颜色 1 右上渐变到左下颜色 2 | 10 | 斜下渐变，颜色 2 左上渐变到右下颜色 1 |
| 11 | 斜下渐变，三层颜色，颜色 1 从左上渐变到对角线颜色 2，再从颜色 2 渐变到右下颜色 1 |
| 12 | 角部辐射渐变，颜色 1 左上角辐射渐变到右下角 | 13 | 角部辐射渐变，颜色 1 右上角辐射渐变到左下角颜色 2 |
| 14 | 角部辐射渐变，颜色 1 左下角辐射渐变到右上角 | 15 | 角部辐射渐变，颜色 1 右下角辐射渐变到左上角颜色 2 |
| 16 | 中心辐射渐变，颜色 1 从中心向四周辐射到颜色 2 |
## TProtection
- **Lock** : `boolean` 是否锁定
- **Hide** : `boolean` 是否隐藏
Windows-X64/office_plugin.dll
BIN
View File
Binary file not shown.
funcext/TSOffice/TOfficeObj.tsf
+7857 -865
View File
File diff suppressed because it is too large Load Diff
funcext/TSOffice/TSDocxFile.tsf
+420
View File
@@ -0,0 +1,420 @@
Type TSDocxFile = Class
///Version: V1.0 2022-09-20
///适用于 Microsoft Word docx格式文件
///纯TSL模块实现
///Word(docx)文件读写接口
///缺省构造函数
Function Create(); overload;
Begin
init();
End;
///构造函数，打开已经存在的docx文件
///alias: string，文件目录别名
///fname: string，文件名
Function Create(alias, fname); overload;
Begin
init();
OpenFile(alias, fname);
End;
Function Destory();
Begin
End;
Function init();
Begin
zipfile_ := new ZipFile();
xml_ := new xlsxXml();
End;
///打开docx文件
///alias: string，文件目录别名
///fname: string，文件名
///返回：[err, errmsg]
Function OpenFile(alias, fname);
Begin
if not ifObj(zipfile_) then return array(-1, 'Create ZipFile object fail.');
[err, errmsg] := zipfile_.Open(alias, fname);
if err=0 then Begin
document_ := new docxDocument(zipfile_, xml_);
End;
return array(err, errmsg);
End;
///新建docx文件
///返回：[err, info]
Function NewFile();
Begin
path := GetPath();
if path[1] = '/' then
defaultFileName := path + '/funcext/TSOffice/template/default.docx';
else
defaultFileName := path + '\\funcext\\TSOffice\\template\\default.docx';
return OpenFile('', defaultFileName);
End;
///保存文件
///返回: [err, info]
Function Save();
Begin
return zipfile_.Save();
End;
///另存为
///alias: string，文件目录别名
///fname: string，文件名
///返回: [err, info]
Function SaveAs(alias, fname);
Begin
return zipfile_.Save(alias, fname);
End;
///真实文件名
///返回：string
Function FileName();
Begin
return zipfile_.FileName();
End;
///word文档所有段落
///返回：TParagraph对象数组
Function Paragraphs();
Begin
return document_.Body().Paragraphs();
End;
///添加新段落
///paragraph: TParagraph对象
///posOpt: 段落位置，0 在DOCX文件开头；-1 文件尾；N 在第N段之后；XmlNode节点对象或DocObject对象 在posOpt之后新添加段落
///[styleId]: 样式ID（integer或string）
///返回TParagraph对象
Function AddParagraph(paragraph, posOpt, styleId);
Begin
return document_.Body().AddParagraph(paragraph, posOpt, styleId);
End;
///添加标题
///title: string
///posOpt: 段落位置，0 在DOCX文件开头；-1 文件尾；N 在第N段之后；XmlNode节点对象或DocObject对象 在posOpt之后新添加段落
///level: int 标题级别（0-9）
///返回TParagraph对象
Function AddHeading(title, posOpt, level);
Begin
styleName := level = 0 ? 'Title' : 'Heading ' $ level;
style := StyleObject().GetStyle(styleName);
if not ifObj(style) and ifInt(level) and level >= 0 and level <= 9 then
style := StyleObject().AddDefaultStyle(GetPath(), styleName);
return document_.Body().AddHeading(title, posOpt, ifObj(style) ? style.StyleId : nil);
End;
///插入分页符
///posOpt: 段落位置，0 在DOCX文件开头；-1 文件尾；N 在第N段之后；XmlNode节点对象或DocObject对象 在posOpt之后新添加段落
///返回TParagraph对象
Function AddPageBreak(posOpt);
Begin
return document_.Body().AddBreak(posOpt, 'page');
End;
///插入换行符
///posOpt: 段落位置，0 在DOCX文件开头；-1 文件尾；N 在第N段之后；XmlNode节点对象或DocObject对象 在posOpt之后新添加段落
///返回TParagraph对象
Function AddLineBreak(posOpt);
Begin
return document_.Body().AddBreak(posOpt, '');
End;
///插入分栏符
///posOpt: 段落位置，0 在DOCX文件开头；-1 文件尾；N 在第N段之后；XmlNode节点对象或DocObject对象 在posOpt之后新添加段落
///返回TParagraph对象
Function AddColumnBreak(posOpt);
Begin
return document_.Body().AddBreak(posOpt, 'column');
End;
///删除指定段落
///posOpt: 段落位置，0 DOCX文件开头；-1 文件尾；N 第N段；posOpt段落
///返回：true
Function DelParagraph(posOpt);
Begin
return document_.Body().DelParagraph(posOpt);
End;
///word文档所有内容的文本串
///返回：string
Function Text();
Begin
return document_.Body().Text();
End;
///word文档所有内容的文本串数组，包含段落信息
///返回：array(("pNode":nodeObj, "pIndex":p, "rNode":nodeObj, "rIndex":r))
Function TextArray();
Begin
return document_.Body().TextArray();
End;
///返回：Boby对象
Function Body();
Begin
return document_.Body();
End;
///word文档所有表格个数
///返回：int
Function TablesCount();
Begin
return document_.Body().TablesCount();
End;
///word文档指定表格
///n: int 第n个表格
///返回：TTable对象
Function GetTable(n);
Begin
return document_.Body().GetTable(n);
End;
///创建数据表
///data: table，数据表
///[IncludeHeader: bool] 是否包括表头，默认FALSE
///[IncludeIndex: bool] 是否自动添加索引号，默认FALSE
///返回: TTable对象
Function CreateTable(data, IncludeHeader, IncludeIndex);
Begin
return document_.Body().CreateTable(data, IncludeHeader, IncludeIndex);
End;
///插入数据表
///tbl: TTable对象
///posOpt: 段落位置，0 在DOCX文件开头；-1 文件尾；N 在第N段之后；XmlNode节点对象或DocObject对象 在posOpt之后新添加表格
///返回: TTable对象
Function InsertTable(tbl, posOpt);
Begin
return document_.Body().InsertTable(tbl, posOpt);
End;
///返回CoreProperties对象
Function Properties();
Begin
core := TOfficeObj('TCoreProperties');
core.node_ := zipfile_.Get('docProps/core.xml').FirstChildElement('cp:coreProperties');
return core;
End;
///返回TDocSection集合
Function Sections();overload;
Begin
return document_.Body().Sections();
End;
///提供对节和页面设置设置的访问
///还提供对页眉和页脚的访问
///index：integer 章节索引
///返回：TDocSection对象
Function Sections(index);overload;
Begin
return document_.Body().Sections(index);
End;
///添加章节
///session：TDocSection对象
///posOpt: 位置，0 在DOCX文件开头；-1 文件尾；N 在第N段之后；XmlNode节点对象或DocObject对象 在posOpt之后新添加章节
///返回：TDocSection对象
Function AddSection(session, posOpt);overload;
Begin
return document_.Body().AddSection(session, posOpt);
End;
///插入图片
///picture: TPicture对象
///posOpt: 段落位置，0 在DOCX文件开头；-1 文件尾；N 在第N段之后；XmlNode节点对象或DocObject对象 在posOpt之后新添加图片
///返回：TPicture对象
Function AddPicture(picture, posOpt);
Begin
return document_.Body().AddPicture(picture, posOpt);
End;
///插入图表
///chart:TChart对象
///posOpt: 段落位置，0 在DOCX文件开头；-1 文件尾；N 在第N段之后；XmlNode节点对象或DocObject对象 在posOpt之后新添加图表
///返回: TChart对象
Function AddChart(chart, posOpt);
Begin
o := new TDocxChart(self, chart);
p := TOfficeObj('TParagraph');
p.Format.rPr.Lang := 'zh-CN';
p := AddParagraph(p, posOpt, nil);
chart.ChartNode := p.node_;
p.Node.InsertEndChild(o.GetInnerXml());
return chart;
End;
///文档中全部的Chart图
///返回：TChart对象数组
Function GetCharts();overload;
Begin
r := array();
uri := 'w:p/w:r/w:drawing/wp:inline/a:graphic/a:graphicData/c:chart';
ps := Paragraphs();
for i:=0 to length(ps)-1 do Begin
node := class(xlsxXml).GetNode(ps[i].node_, uri);
if ifObj(node) then Begin
chart := TOfficeObj('TChart');
chart.Init(self, ps[i].node_, node);
r[length(r)] := chart;
End;
End;
return r;
End;
///文档中全部的批注信息
///返回：DocComments对象
Function Comments();
Begin
return document_.Body().Comments();
End;
///创建新的批注对象
///返回：TDocComment对象
Function NewComment(author, txt);
Begin
file := 'word/comments.xml';
files := zipfile_.Files();
isexist := vselect thisrowindex from files where ['FileName']=file end;
if ifnil(isexist) then Begin
zipfile_.Add(file, '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<w:comments xmlns:wpc="http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:wp14="http://schemas.microsoft.com/office/word/2010/wordprocessingDrawing" xmlns:wp="http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawing" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" xmlns:w15="http://schemas.microsoft.com/office/word/2012/wordml" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:wpg="http://schemas.microsoft.com/office/word/2010/wordprocessingGroup" xmlns:wpi="http://schemas.microsoft.com/office/word/2010/wordprocessingInk" xmlns:wne="http://schemas.microsoft.com/office/word/2006/wordml" xmlns:wps="http://schemas.microsoft.com/office/word/2010/wordprocessingShape" xmlns:wpsCustomData="http://www.wps.cn/officeDocument/2013/wpsCustomData" mc:Ignorable="w14 w15 wp14"></w:comments>');
rels := 'word/_rels/document.xml.rels';
xmlfile := zipfile_.Get(rels);
[rId, target] := class(xlsxXml).FindRelationshipRid(xmlfile, '');
rId ++;
class(xlsxXml).AddRelationshipRid(xmlfile, 'comments.xml', 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/comments', 'rId' $ rId);
contentType := zipfile_.Get('[Content_Types].xml');
class(xlsxXml).AddOverrideContentType(contentType, '/word/comments.xml', 'application/vnd.openxmlformats-officedocument.wordprocessingml.comments+xml');
End
xmlfile := zipfile_.Get(file);
id := 0;
node := xmlfile.FirstChildElement('w:comments').FirstChildElement('w:comment');
while ifObj(node) do Begin
wId := node.GetAttribute('w:id');
if strtoint(wId) >= id then
id := strtoint(wId) + 1;
node := node.NextElement('w:comment');
End;
c := TOfficeObj('TDocComment');
c.p.Run.T := txt;
c.Author := author;
c.ID := id;
xmlfile.FirstChildElement('w:comments').InsertEndChild(c.Marshal());
return c;
End;
///格式刷：复制段落格式（包括字体格式）
///fromParagraph：源段落
Function CopyFormat(fromParagraph);
Begin
selectPrargraph_ := fromParagraph;
End;
///格式刷：将源段落格式（包括字体格式），刷到目标格式
///toParagraph：目标段落
Function PasteFormat(toParagraph);
Begin
pPr := ifObj(selectPrargraph_) ? selectPrargraph_.node_.FirstChildElement('w:pPr') : nil;
if not ifObj(pPr) then Begin //格式为空，清除目标段落所有格式
toParagraph.ClearFormat();//清除段落格式、字体格式
return;
End;
rPr := pPr.node_.FirstChildElement('w:rPr');
//复制段落格式
pPr2 := toParagraph.node_.FirstChildElement('w:pPr');
if ifObj(pPr2) then
pPr2.DeleteChildren();
else
pPr2 := toParagraph.node_.InsertFirstChild('element', 'w:pPr');
arr := pPr.Marshal();
class(xlsxXml).UpdateNode(pPr2, arr[0]['attributes'], arr[0]['children']);
//复制字体格式
if ifObj(rPr) then
toParagraph.SetFormat(rPr, true);
else Begin //清除字体格式
runs := toParagraph.GetRuns();
for i:=0 to length(runs)-1 do
runs[i].ClearFormat();
End;
End;
///添加目录
///[posOpt: 段落位置]，在posOpt之后新添加目录（否则在首页添加）
///UpperHeadingLevel：标题最高级别
///LowerHeadingLevel：标题最低级别
/// 使用 UpperHeadingLevel 属性可设置起始标题级别（最高）。例如，若要设置 TOC 域语法 {TOC \o "1-3"}，可将 LowerHeadingLevel 属性设为 3，并将 UpperHeadingLevel 属性设为 1。
///因为word、wps、openoffice等软件对于页码的计算各不相同，本功能不直接设置页码，需要用相关客户端软件打开文件后，更新目录域。
Function AddTableContent(posOpt, UpperHeadingLevel, LowerHeadingLevel);
Begin
content := new TTableContent(self);
content.SetDefaultFormat(); //缺省目录格式
node := posOpt;
if ifObj(posOpt) and not (posOpt is Class(XmlNode)) then
node := posOpt.Node();
content.Add(node, UpperHeadingLevel, LowerHeadingLevel); //标题级别
if ifObj(node) then
content.node_ := document_.Body().node_.InsertAfterChild(node, content.Marshal());
else
content.node_ := document_.Body().node_.InsertFirstChild(content.Marshal());
AddPageBreak(content.node_);
return content;
End;
///获取全部标题列表
///UpperHeadingLevel：标题最高级别
///LowerHeadingLevel：标题最低级别
///返回：array((("Level":level,"Paragraph":"object","Text":title));
Function GetHeadingList(UpperHeadingLevel, LowerHeadingLevel);
Begin
return document_.Body().GetHeadingListImpl(self, UpperHeadingLevel, LowerHeadingLevel, nil, true);
End;
///返回Document对象
Function Document();
Begin
return document_;
End;
///返回：TDocxStyles对象
Function StyleObject();
Begin
if not ifObj(styleObj_) then
styleObj_ := new TDocxStyles(self);
return styleObj_;
End;
///返回：TNumbering对象
Function NumberingObject();
Begin
if not ifObj(numberingObj_) then
numberingObj_ := new TNumbering(self);
return numberingObj_;
End;
Function ZipObject();
Begin
return zipfile_;
End;
Function GetPath();
Begin
return ExtractFileDir(ExtractFileDir(PluginPath()));
End;
private
zipfile_; //压缩文件对象
document_; //Document对象
xml_; //xlsxXml对象
styleObj_;
numberingObj_;
selectPrargraph_;//被选中的段落
End;
funcext/TSOffice/TSExcelFile.tsf
+215 -236
View File
@@ -28,50 +28,33 @@ Type TSExcelFile = Class
Function init();
Begin
zipfile_ := new ZipFile();
xml_ := new xlsxXml();
End;
///打开excel文件
///alias: string，文件目录别名
///fname: string，文件名
///返回：[err, errmsg]
///返回: [err, errmsg]
Function OpenFile(alias, fname);
Begin
if not ifObj(zipfile_) then return array(-1, 'Create ZipFile object fail.');
[err, errmsg] := zipfile_.Open(alias, fname);
if err=0 then Begin
workbook_ := new xlsxWorkBook(zipfile_, xml_);
workbook_ := new xlsxWorkBook(zipfile_);
workbook_.Load();
End;
return array(err, errmsg);
End;
///新建excel文件
///返回：[err, info]
///返回: [err, info]
Function NewFile();
Begin
path := ExtractFileDir(ExtractFileDir(PluginPath()));
{$IFNDEF Win32}
defaultFileName := path + '\\funcext\\TSOffice\\default.xlsx';
{$ELSE}
defaultFileName := path + '/funcext/TSOffice/default.xlsx';
{$ENDIF}
[err, errinfo] := OpenFile('', defaultFileName);
if not err then return array(err, errinfo);
if not ifObj(zipfile_) then return array(-1, 'Create ZipFile object fail.');
zipfile_.Add(xml_.GetFileName('rels'), xml_.XmlHeader() + xml_.GetTemplate('rels'));
zipfile_.Add(xml_.GetFileName('docProps_app'), xml_.XmlHeader() + xml_.GetTemplate('docProps_app'));
zipfile_.Add(xml_.GetFileName('docProps_core'), xml_.XmlHeader() + xml_.GetTemplate('docProps_core'));
zipfile_.Add(xml_.GetFileName('workbook_rels'), xml_.XmlHeader() + xml_.GetTemplate('workbook_rels'));
zipfile_.Add(xml_.GetFileName('theme1'), xml_.XmlHeader() + xml_.GetTemplate('theme1'));
zipfile_.Add(xml_.GetFileName('sheet1'), xml_.XmlHeader() + xml_.GetTemplate('sheet1'));
zipfile_.Add(xml_.GetFileName('styles'), xml_.XmlHeader() + xml_.GetTemplate('styles'));
zipfile_.Add(xml_.GetFileName('workbook'), xml_.XmlHeader() + xml_.GetTemplate('workbook'));
zipfile_.Add(xml_.GetFileName('Content_Types'), xml_.XmlHeader() + xml_.GetTemplate('Content_Types'));
workbook_ := new xlsxWorkBook(zipfile_, xml_);
workbook_.Load();
return array(0, 'ok');
if path[1] = '/' then
defaultFileName := path + '\\funcext\\TSOffice\\template\\default.xlsx';
else
defaultFileName := path + '/funcext/TSOffice/template/default.xlsx';
return OpenFile('', defaultFileName);
End;
///保存文件
@@ -91,14 +74,14 @@ Type TSExcelFile = Class
End;
///真实文件名
///返回：string
///返回: string
Function FileName();
Begin
return zipfile_.FileName();
End;
///获取工作表列表
///返回: arry('Sheet1','Sheet2')
///返回: array('Sheet1','Sheet2')
Function GetSheets();
Begin
return workbook_.GetSheets();
@@ -111,23 +94,24 @@ Type TSExcelFile = Class
return workbook_.GetSheetsCount();
End;
///获取工作表名
///index: int，工作表索引
///返回: [err, sheetname:string]
Function GetSheetName(index);
Begin
return workbook_.GetSheets()[index];
End;
///设置工作表名
///sourceName: string, 原工作表名
///destName: string，目标工作表名
///返回：[err, errinfo]
///destName: string,目标工作表名
///返回: [err, errinfo]
Function SetSheetName(sourceName, destName);
Begin
return workbook_.SetSheetName(sourceName, destName);
End;
///获取工作表名
///index: int，工作表索引
///返回: string
Function GetSheetName(index);
Begin
name := workbook_.GetSheets()[index];
return ifString(name) ? name : '';
End;
///创建新sheet
///sheet: string，工作表名称
///返回: [err, info]
@@ -146,22 +130,20 @@ Type TSExcelFile = Class
///获取总列数
///sheet: string，工作表名称
///返回: [err, TotalCols:int]
///返回: int
Function TotalCols(sheet);
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return array(0, o.TotalCols());
return array(-1, '');
if ifObj(o) then return o.TotalCols();
End;
///获取总行数
///sheet: string，工作表名称
///返回: [err, TotalRows:int]
///返回: int
Function TotalRows(sheet);
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return array(0, o.TotalRows());
return array(-1, '');
if ifObj(o) then return o.TotalRows();
End;
///获取单元格的值
@@ -172,7 +154,7 @@ Type TSExcelFile = Class
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return o.GetCellValue(axis);
return array(-1, '');
return class(ErrorMessage).Fail();
End;
///设置单元格的值
@@ -185,12 +167,10 @@ Type TSExcelFile = Class
/// 属性t：单元格数据类型，不设置的话，数据类型为val的数据类型；
/// t ->（'s' 共享字符串、'b' bool 类型、'e' 错误类型、'inlineStr' 内联字符串类型、nil 数字类型、'str' 公式类型）
/// 属性s：单元格样式
///返回: [err, info]
Function SetCellValue(sheet, axis, val, opt);
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return array(0, o.SetCellValue(axis, val, opt));
return array(-1, '');
if ifObj(o) then return o.SetCellValue(axis, val, opt);
End;
///获取富文本格式
@@ -201,50 +181,44 @@ Type TSExcelFile = Class
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return o.GetCellValue(axis, 'RichText');
return array(-1, '');
return class(ErrorMessage).Fail();
End;
///设置富文本格式
///sheet: string，工作表名称
///axis: string，单元格，如"A7"
///richtext: string，xml串或富文本对象TSOffice('TRichText')
///返回: [err, info]
///richtext: string，xml串或富文本对象TSOfficeObj('TRichText')
Function SetCellRichText(sheet, axis, richtext);
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then Begin
if ifObj(o) then begin
if ifObj(richtext) then
richtext := class(xlsxXml).Dom2Xml(richtext.Marshal());
return array(0, o.SetCellValue(axis, richtext, array('t':'s'), 'RichText'));
End;
return array(-1, 'The Sheet is not exist.');
xml := class(xlsxXml).Dom2Xml(richtext.Marshal());
return o.SetCellValue(axis, xml, array('t':'s'), 'RichText');
end
End;
///清空单元格
///sheet: string，工作表名称
///[TopLeft: string]，左上角坐标，可选参数
///[BottomRight: string]，右下角坐标，可选参数，
///[topLeft: string]，左上角坐标，可选参数
///[bottomRight: string]，右下角坐标，可选参数，
/// 用法1：ClearCell(); //Clear整个sheet
/// 用法2：ClearCell('A2'); //Clear 'A2'单元格
/// 用法3：ClearCell('A5', 'D8'); //Clear矩形区间所有单元格
///返回: [err, info]
Function ClearCell(sheet, TopLeft, BottomRight);
Function ClearCell(sheet, topLeft, bottomRight);
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return array(0, o.ClearCell(TopLeft, BottomRight));
return array(-1, '');
if ifObj(o) then o.ClearCell(topLeft, bottomRight);
End;
///设置公式
///sheet: string，工作表名称
///axis: string，单元格，如"A7"
///formula: string，公式
///返回: [err, info]
Function SetCellFormula(sheet, axis, formula);
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return o.SetCellFormula(axis, formula);
return array(-1, '');
if ifObj(o) then o.SetCellFormula(axis, formula);
End;
///获取公式
@@ -255,25 +229,24 @@ Type TSExcelFile = Class
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return o.GetCellFormula(axis);
return array(-1, '');
return class(ErrorMessage).Fail();
End;
///按行赋值
///sheet: string，工作表名称
///axis: string，起始坐标，如: "A4"
///slice: array()，一维数组array(1,2,3,2,1,"hello")
///返回: [err, info]
Function SetSheetRow(sheet, axis, slice);
Begin
[err, col, row] := CellNameToCoordinates(axis);
if err then
return array(err, col);
for i:=0 to length(slice)-1 do Begin
if not err then
begin
for i:=0 to length(slice)-1 do
begin
[err, cell] := CoordinatesToCellName(col + i, row);
//println('{}->{}',cell,slice[i]);
SetCellValue(sheet, cell, slice[i]);
End;
return array(0, 'ok');
end
end
End;
///插入数据表
@@ -298,9 +271,7 @@ Type TSExcelFile = Class
if IncludeIndex then Begin
fields := array("Index") union fields;
End;
[err, info] := SetSheetRow(sheet, axis, fields);
if err then
return array(err, info);
SetSheetRow(sheet, axis, fields);
rowNum ++;
End;
if IncludeIndex then Begin
@@ -317,8 +288,7 @@ Type TSExcelFile = Class
if err then
return array(err, cell);
t := sselect * from data where thisrowindex = i End;
//PrintLn("cell={},data={}->{}",cell, data[i],t);
[err, info] := SetSheetRow(sheet, cell, t);
SetSheetRow(sheet, cell, t);
if err then
return array(err, info);
End;
@@ -327,20 +297,18 @@ Type TSExcelFile = Class
///读取数据表
///sheet: string，工作表名称
///TopLeft: string，左上角坐标，如: "A4"
///BottomRight: string，右下角坐标，如: "B8"，为空获取从TopLeft开始的整张表
///返回: [err, data:table]
Function GetTable(sheet, TopLeft, BottomRight);
///topLeft: string，左上角坐标，如: "A4"
///bottomRight: string，右下角坐标，如: "B8"，为空获取从topLeft开始的整张表
///返回: table
Function GetTable(sheet, topLeft, bottomRight);
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return array(0, o.Import(TopLeft, BottomRight));
return array(-1, '');
if ifObj(o) then return o.Import(topLeft, bottomRight);
End;
///插入列，在指定列前插入空白列
///sheet: string，工作表名称
///col: string 列名，如: "D"
///返回: [err, info]
Function InsertCol(sheet, col);
Begin
return workbook_.InsertCol(sheet, col);
@@ -349,7 +317,6 @@ Type TSExcelFile = Class
///插入行，在指定行前插入空白行
///sheet: string，工作表名称
///row: int
///返回: [err, info]
Function InsertRow(sheet, row);
Begin
return workbook_.InsertRow(sheet, row);
@@ -358,7 +325,6 @@ Type TSExcelFile = Class
///删除列
///sheet: string，工作表名称
///col: string，如: "D"
///返回: [err, info]
Function RemoveCol(sheet, col);
Begin
return workbook_.RemoveCol(sheet, col);
@@ -367,7 +333,6 @@ Type TSExcelFile = Class
///删除行
///sheet: string，工作表名称
///row: int
///返回: [err, info]
Function RemoveRow(sheet, row);
Begin
return workbook_.RemoveRow(sheet, row);
@@ -376,8 +341,7 @@ Type TSExcelFile = Class
///设置行高度
///sheet: string，工作表
///row: int，行
///height: double
///返回: [err, info]
///height: double，行高[0-409]
Function SetRowHeight(sheet, row, height);
Begin
return workbook_.SetRowHeight(sheet, row, height);
@@ -386,7 +350,7 @@ Type TSExcelFile = Class
///获取行高度
///sheet: string，工作表
///row: int，行
///返回: [err, info]
///返回: double
Function GetRowHeight(sheet, row);
Begin
return workbook_.GetRowHeight(sheet, row);
@@ -396,8 +360,7 @@ Type TSExcelFile = Class
///sheet: string，工作表
///startcol: string，开始列，如: "A"
///endcol: string，结束列，如: "D"
///width: double
///返回: [err, info]
///width: double，列宽[0-255]
Function SetColWidth(sheet, startCol, endCol, width);
Begin
return workbook_.SetColWidth(sheet, startCol, endCol, width);
@@ -405,8 +368,8 @@ Type TSExcelFile = Class
///获取列宽度
///sheet: string，工作表
///col: int，列
///返回: [err, info]
///col: string，列
///返回: double
Function GetColWidth(sheet, col);
Begin
return workbook_.GetColWidth(sheet, col);
@@ -414,32 +377,29 @@ Type TSExcelFile = Class
///设置工作表默认列宽
///sheet: string，工作表
///width：double
///返回: [err, info]
///width: double
Function SetSheetDefaultColWidth(sheet, width);
Begin
return workbook_.SetSheetDefaultColWidth(sheet, width);
End
End;
///获取工作表默认列宽
///sheet: string，工作表
///返回: [err, width]
///返回: double
Function GetSheetDefaultColWidth(sheet);
Begin
return workbook_.GetSheetDefaultColWidth(sheet);
End
End;
///添加批注
///sheet: string，工作表名称
///axis: string，单元格，如"A7"
///Author:string
///comment: string
///返回: [err, info]
Function AddComment(sheet, axis, Author, comment);
Begin
o := getOj(sheet, 'xlsxComment');
if not ifObj(o) then return array(1, 'The sheet is not exist.');
return o.AddComment(axis, Author, comment);
if ifObj(o) then o.AddComment(axis, Author, comment);
End;
///添加图表
@@ -540,57 +500,49 @@ Type TSExcelFile = Class
Function NewStyle(style);
Begin
styleObj := new xlsxStyles('', self);
return array(0, styleObj.GetStyleId(style));
End
return styleObj.GetStyleId(style);
End;
///设置单元格样式
///sheet: string，工作表名称
///TopLeft: string，左上角坐标
///BottomRight: string，右下角坐标
///topLeft: string，左上角坐标
///bottomRight: string，右下角坐标
///styleid: string，样式Id
///返回: [err, info]
Function SetCellStyle(sheet, TopLeft, BottomRight, styleid);
Function SetCellStyle(sheet, topLeft, bottomRight, styleid);
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return array(0, o.SetCellStyle(TopLeft, BottomRight, styleid));
return array(-1, '');
if ifObj(o) then return o.SetCellStyle(topLeft, bottomRight, styleid);
End;
///获取单元格样式Id，获取到的Id可以在复制单元格样式时，作为调用 SetCellValue、或SetCellStyle 函数的参数使用。
///sheet: string，工作表名称
///axis: string，单元格，如"A7"
///返回: [err, datastyle: int]
///返回: styleId: string
Function GetCellStyle(sheet, axis);
Begin
o := workbook_.GetSheetObj(sheet);
if ifObj(o) then return array(0, o.GetCellStyle(axis));
return array(-1, 'The sheet is not exist.');
return workbook_.GetCellStyle(sheet, axis);
End;
///设置工作表页眉页脚
///sheet：string，工作表名称
///headerFooter: xlsxHeaderFooter对象
///返回：[err, info]
///sheet: string，工作表名称
///headerFooter: THeaderFooter对象
Function SetSheetHeaderFooter(sheet, headerFooter);
Begin
o := getOj(sheet, 'xlsxHeaderFooter');
if not ifObj(o) then return array(0, 'HeaderFooter对象不存在');
o.SetHeaderFooter(headerFooter);
return array(1, '');
End
if ifObj(o) then o.SetHeaderFooter(headerFooter);
End;
///设置工作表可见性
///sheet: string, 工作表名称
///visible: bool
///返回：[err, info]
///visible: boolean
Function SetSheetVisible(sheet, visible);
Begin
return workbook_.SetSheetVisible(sheet, visible);
End
End;
///获取工作表可见性
///sheet: string，工作表名称
///返回: [err, visibility: bool]
///visibility: boolean
Function GetSheetVisible(sheet);
Begin
return workbook_.GetSheetVisible(sheet);
@@ -599,35 +551,33 @@ Type TSExcelFile = Class
///设置行可见性
///sheet: string，工作表
///row: int，行
///visible: bool
///返回: [err, info]
///visible: boolean
Function SetRowVisible(sheet, row, visible)
Begin
return workbook_.SetRowVisible(sheet, row, visible);
End
End;
///获取工作表行可见性
///sheet: string，工作表名称
///row: int, 行
///返回: [err, visible:int]
///返回: [err, visible:boolean]
Function GetRowVisble(sheet, row);
Begin
return workbook_.GetRowVisble(sheet, row);
End
End;
///设置列可见性
///sheet: string，工作表
///col: string，列，如：'A'
///visible: bool
///返回: [err, info]
///visible: boolean
Function SetColVisible(sheet, col, visible)
Begin
[err, col] := ColumnNameToNumber(col);
if err then return array(-1, col);
if err then return "Col error.";
return workbook_.SetColVisible(sheet, col, visible);
End
End;
///获取工作表列可见性
///获取列可见性
///sheet: string，工作表名称
///col: string，列
///返回: [err, visible:int]
@@ -636,36 +586,31 @@ Type TSExcelFile = Class
[err, col] := ColumnNameToNumber(col);
if err then return array(-1, col);
return workbook_.GetColVisble(sheet, col);
End
End;
///设置工作表页边距
///sheet: string，工作表名称
///margins: TMargins 对象
///返回: [err, info]
Function SetPageMargins(sheet, margins);
Begin
o := getOj(sheet, 'xlsxMargins');
if not ifObj(o) then return array(0, 'The sheet is not exist');
o.SetPageMargins(margins);
return array(0, '');
if ifObj(o) then o.SetPageMargins(margins);
End;
///获取工作表页边距
///sheet: string，工作表名称
///返回: [err, info]
///无错误时返回TMargins对象
///返回: TMargins对象
Function GetPageMargins(sheet);
Begin
o := getOj(sheet, 'xlsxMargins');
if not ifObj(o) then return array(0, 'The sheet is not exist');
return o.GetPageMargins();
if ifObj(o) then return o.GetPageMargins();
return "sheet error";
End;
///合并单元格
///sheet: string，工作表名称
///hcell: string，左上角坐标
///vcell: string，右下角坐标
///返回: [err, info]
Function MergeCell(sheet, hcell, vcell);
Begin
return workbook_.MergeCell(sheet, hcell, vcell);
@@ -685,7 +630,7 @@ Type TSExcelFile = Class
///sheet: string，工作表名称
///viewIndex: int，视图索引
///sheet: object，TSheetView对象
///返回: [err, info]
///返回: [err, TSheetView]
Function SetSheetViewOptions(sheet, viewIndex, sheetView);
Begin
o := getOj(sheet, 'xlsxSheetView');
@@ -696,7 +641,7 @@ Type TSExcelFile = Class
///获取工作表视图属性
///sheet: string，工作表名称
///viewindex: int，视图索引，viewIndex 可以是负数，如果是这样，则向后计数（-1 代表最后一个视图）
///返回: [err, SheetView]
///返回: [err, TSheetView]
Function GetSheetViewOptions(sheet, viewIndex);
Begin
o := getOj(sheet, 'xlsxSheetView');
@@ -704,99 +649,54 @@ Type TSExcelFile = Class
return o.GetSheetViewOptions(viewIndex);
End;
///设置工作表页面布局
// TODO printerSettings1.bin?
///设置工作表页面设置
///sheet: string，工作表名称
///pageLayout: pageLayout对象，属性:
/// BlackAndWhite bool //BlackAndWhite specified print black and white.
/// FirstPageNumber int //FirstPageNumber specified the first printed page number. If no value is specified, then 'automatic' is assumed.
/// PageLayoutOrientation string //PageLayoutOrientation defines the orientation of page layout for a worksheet.
/// PageLayoutPaperSize int //PageLayoutPaperSize defines the paper size of the worksheet.
/// FitToHeight int //FitToHeight specified the number of vertical pages to fit on.
/// FitToWidth int //FitToWidth specified the number of horizontal pages to fit on.
/// PageLayoutScale int //PageLayoutScale defines the print scaling. This attribute is restricted to values ranging from 10 (10%) to 400 (400%). This setting is overridden when fitToWidth and/or fitToHeight are in use.
///返回: [err, info]
///pageLayout: TPageLayout对象，属性:
Function SetPageLayout(sheet, pageLayout);
Begin
o := getOj(sheet, 'xlsxPageLayout');
if not ifObj(o) then return array(1, 'The sheet is not exist');
return o.SetPageLayout(sheet, pageLayout);
if ifObj(o) then return o.SetPageLayout(sheet, pageLayout);
End;
///获取工作表页面布局
///获取工作表页面设置
///sheet: string，工作表名称
///返回: [err, option:pageLayout对象]
///返回: TPageLayout对象
Function GetPageLayout(sheet);
Begin
o := getOj(sheet, 'xlsxPageLayout');
if not ifObj(o) then return array(1, 'The sheet is not exist');
return o.GetPageLayout();
End;
///设置工作簿应用程序属性
///appProps: TAppProperty对象，属性:
/// Application string
/// ScaleCrop bool
/// DocSecurity int
/// Company string
/// LinksUpToDate bool
/// HyperlinksChanged bool
/// AppVersion string
///返回: [err, info]
Function SetAppProps(appProps);
Begin
o := getOj('', 'xlsxAppProperty');
if not ifObj(o) then return array(1, 'AppProperty error!');
return o.SetAppProps(appProps);
End;
///获取应用程序属性
///返回: [err, props:TAppProperty对象]
Function GetAppProps();
Begin
o := getOj('', 'xlsxAppProperty');
if not ifObj(o) then return array(1, 'AppProperty error!');
return o.GetAppProps();
if ifObj(o) then return o.GetPageLayout();
return "error sheet";
End;
///sheet: string，工作表名称
///返回: [err, info]
Function SetDefaultSheet(sheet);
Begin
return workbook_.SetDefaultSheet(sheet);
End
End;
///返回：[err, sheet]
///获取默认工作表
///返回: string，工作表名称
Function GetDefaultSheet();
Begin
return workbook_.GetDefaultSheet();
End
///设置工作表背景图片
///pictrue: 图片对象
///返回: [err, info]
Function SetSheetBackground(sheet, pictrue);
Begin
o := getOj(sheet, 'xlsxImage');
if not ifObj(o) then return array(1, 'The sheet is not exist.');
return o.SetSheetBackground(sheet);
End;
///设置超链接
///sheet: string，工作表名称
///axis: string，单元格，如"A7"
///hyplink：THyperLink对象
///返回: [err, info]
///hyplink: THyperLink对象
Function SetCellHyperLink(sheet, axis, hyperlink);
Begin
o := getOj(sheet, 'xlsxHyperLink');
if not ifObj(o) then return array(1, 'The sheet is not exist.');
return o.SetCellHyperLink(axis, hyperlink);
if ifObj(o) then return o.SetCellHyperLink(axis, hyperlink);
End;
// TODO 返回的结果有点问题
///获取超链接
///sheet: string，工作表名称
///axis: string，单元格，如"A7"
///返回: [err, hyperlink: THyperLink对象]
///返回: THyperLink对象
Function GetCellHyperLink(sheet, axis);
Begin
o := getOj(sheet, 'xlsxHyperLink');
@@ -804,16 +704,113 @@ Type TSExcelFile = Class
return o.GetCellHyperLink(axis);
End;
///设置工作表背景图片
///picture: TPicture图片对象
Function SetSheetBackground(sheet, picture);
Begin
o := getOj(sheet, 'xlsxImage');
if ifObj(o) then return o.SetSheetBackground(picture);
End;
///添加图片
///sheet: string, 工作表名称
///topLeft: string, 图片插入左上角单元格
///bottomRight: string, 图片插入右下角单元格
///picture: TPicture 图片对象
///format: TPictureFormat 图片设置对象
Function AddPicture(sheet, topLeft, bottomRight, picture, format);
Begin
o := getOj(sheet, 'xlsxImage');
if ifObj(o) then return o.AddPicture(topLeft, bottomRight, picture, format);
End;
///删除图片
///sheet: 工作表名称
///topLeft: string, 图片插入左上角单元格
///bottomRight: string, 图片插入右下角单元格
Function DeletePicture(sheet, topLeft, bottomRight);
Begin
o := getOj(sheet, 'xlsxImage');
if ifObj(o) then return o.DeletePicture(topLeft, bottomRight);
End;
///创建表格
///sheet: string，工作表名称
///topLeft: string, 左上角单元格
///bottomRight: string, 右下角单元格
///tableStyle: 表格选项类 TTableStyle
///[includeHeader: bool] 是否包括表头，默认FALSE
Function AddTable(sheet, topLeft, bottomRight, tableStyle, includeHeader);
Begin
o := getOj(sheet, 'xlsxTable');
if ifObj(o) then return o.AddTable(topLeft, bottomRight, tableStyle, includeHeader);
End;
///指定行前插入分页符
///sheet: string，工作表名称
///row: int，行号
Function InsertPageBreak(sheet, row);
Begin
return workbook_.InsertPageBreak(sheet, row);
End;
///删除指定行分页符
///sheet: string，工作表名称
///row: int，行号
Function RemovePageBreak(sheet, row);
Begin
return workbook_.RemovePageBreak(sheet, row);
End;
///添加形状
///sheet: string，工作表名称
///topLeft: string, 左上角单元格
///bottomRight: string, 右下角单元格
///shapeType: string, 形状类型
///format: 形状设置，TShapeFormat类
Function AddShape(sheet, topLeft, bottomRight, shapeType, format);
Begin
o := getOj(sheet, 'xlsxShape');
if ifObj(o) then return o.AddShape(topLeft, bottomRight, shapeType, format);
End;
///设置工作簿的核心属性
///coreProps: TCoreProperty对象
Function SetCoreProps(coreProps);
Begin
o := getOj('', 'xlsxDocProps');
if ifObj(o) then return o.SetCoreProps(coreProps);
End;
///获取工作簿的核心属性
///返回: TCoreProperty对象
Function GetCoreProps();
Begin
o := getOj('', 'xlsxDocProps');
if ifObj(o) then return o.GetCoreProps();
End;
///设置工作簿应用程序属性
///appProps: TAppProperty对象，属性:
Function SetAppProps(appProps);
Begin
o := getOj('', 'xlsxDocProps');
if ifObj(o) then return o.SetAppProps(appProps);
End;
///获取应用程序属性
///返回: TAppProperty对象
Function GetAppProps();
Begin
o := getOj('', 'xlsxDocProps');
return o.GetAppProps();
End;
Function WorkBook();
Begin
return workbook_;
End;
Function XmlObj();
Begin
return xml_;
End;
Function Zip();
Begin
return zipfile_;
@@ -843,40 +840,22 @@ private
o := class(xlsxSheetView).NewObject(sheetname, self);
'xlsxPageLayout':
o := class(xlsxPageLayout).NewObject(sheetname, self);
'xlsxAppProperty':
return class(xlsxAppProperty).NewObject(self);
'xlsxDocProps':
return class(xlsxDocProps).NewObject(self);
'xlsxImage':
o := class(xlsxImage).NewObject(sheetname, self);
'xlsxHyperLink':
o := class(xlsxHyperLink).NewObject(sheetname, self);
'xlsxShape':
o := class(xlsxShape).NewObject(sheetname, self);
'xlsxTable':
o := class(xlsxTable).NewObject(sheetname, self);
End;
if ifObj(o) then objMgr_[k] := o;
return o;
End;
{
TODO// 需要移除，待完成
///设置工作表默认行高
///sheet: string，工作表
///height：double
///返回: [err, info]
Function SetSheetDefaultRowHeight(sheet, height);
Begin
return workbook_.SetSheetDefaultRowHeight(sheet, height);
End
///获取工作表默认行高
///sheet: string，工作表
///返回: [err, height]
Function GetSheetDefaultRowHeight(sheet);
Begin
return workbook_.GetSheetDefaultRowHeight(sheet);
End
}
zipfile_; //压缩文件对象
workbook_; //WorkBook对象
xml_; //xlsxXml对象
objMgr_; //各种对象缓存、管理
End;
funcext/TSOffice/TSUtils/ErrorMessage.tsf
+30
View File
@@ -0,0 +1,30 @@
Type ErrorMessage = class
class Function Fail();
Begin
return array(-1, '');
End;
class Function Ok();
Begin
return array(0, 'ok');
End;
class Function SheetExist(sheetName)
Begin
sheetName := ifString(sheetName) ?: '';
return array(2, sheetName + ' already exists.');
End;
class Function SheetNotExist(sheetName)
Begin
sheetName := ifString(sheetName) ?: '';
return array(3, sheetName + ' does not exist.');
End;
class Function DeleteFailure();
Begin
return array(4, 'Can not delete the last sheet.');
End
End;
funcext/TSOffice/TSUtils/NodeInfo.tsf
+161 -26
View File
@@ -1,13 +1,30 @@
Type NodeInfo = class
public
Function Create(name);
Function Create(p, name);
Begin
Parent := p;
NodeName := name;
ExtAttr := array();
ExtNodes := array();
ReplaceArr := array();
End
Function Root(); virtual;
Begin
return RootObj;
End
Function Update();
Begin
if ifObj(RootObj) then Begin
arr := Marshal();
if length(arr['attributes']) or length(arr['children']) then Begin
class(xlsxXml).UpdateNode(RootObj, arr['attributes'], arr['children']);
End;
End;
End;
Function HandleAttrs(); virtual;
Begin
End
@@ -36,7 +53,7 @@ public
return length(ExtAttr);
End
// arr := array('sz': 15, 'style': 'line');
// arr := array(('Size', 'sz', 15), ('Style', 'style', 'line'));
Function AddAttr(arr); // 添加属性
Begin
if not istable(arr) then return;
@@ -46,26 +63,33 @@ public
Function Marshal();
Begin
children := getChildrenEx();
GetChildrenEx(); //优化为变量，减少数据COPY，2022-12-10
child_arr := array();
len := 0;
for i:=0 to length(children)-1 do
for i:=0 to length(children_)-1 do
begin
node_type := children[i]['nodeType'];
obj := children[i]['obj'];
node_type := children_[i]['nodeType'];
obj := children_[i]['obj'];
if ifnil(obj) then continue;
find := select thisrowindex as "rowindex_", * from child_arr where ['name'] = children[i]['name'] end;
if not ifnil(obj) and not ifObj(obj) and istable(find) and ifstring(children[i]['attrEx']) and children[i]['attrEx'] <> '' then
//find := select thisrowindex as "rowindex_", * from child_arr where ['name'] = children_[i]['name'] end; //优化为循环，性能提高15-20%，2022-12-20
find := array();
for j:=0 to length(child_arr)-1 do Begin
if child_arr[j]['name'] = children_[i]['name'] then Begin
find[0] := child_arr[j];
find[0]['rowindex_'] := j;
break;
End;
End;
if not ifnil(obj) and not ifObj(obj) and istable(find) and ifstring(children_[i]['attrEx']) and children_[i]['attrEx'] <> '' then
begin
if not ifarray(find[0]['attributes']) then find[0]['attributes'] := array();
key := children[i]['attrEx'];
key := children_[i]['attrEx'];
find[0]['attributes'] union= array(key : obj);
child_arr[find[0]['rowindex_']]['attributes'] := find[0]['attributes'];
continue;
end
arr := array('type': 'element', 'name': children[i]['name'], 'attributes': array());
arr := array('type': 'element', 'name': children_[i]['name'], 'attributes': array());
if node_type = 'empty' then // <b/>
begin
end
@@ -86,7 +110,7 @@ public
end
else
begin
key := children[i]['attrName'] ? children[i]['attrName'] : children[i]['attrEx'] ? children[i]['attrEx'] : 'val';
key := children_[i]['attrName'] ? children_[i]['attrName'] : children_[i]['attrEx'] ? children_[i]['attrEx'] : 'val';
arr['attributes'] := array(key : obj);
end
@@ -101,12 +125,13 @@ public
end
attrs_arr := GetAttrs();
valid_arr := array();
for k, v in attrs_arr do
tmp_arr['attributes'] := array();
for i:=0 to length(attrs_arr)-1 do
begin
if not ifnil(v) then valid_arr[k] := v;
if not ifnil(attrs_arr[i, 2]) then Begin
tmp_arr['attributes'][ attrs_arr[i, 1] ] := attrs_arr[i, 2];
End;
end
tmp_arr['attributes'] := valid_arr;
return tmp_arr;
End
@@ -114,32 +139,142 @@ public
Begin
if not ifarray(nodeArr) then return 0;
if not ifstring(nodeArr['name']) then return 0;
arr := array(
arr := array((
'name': nodeArr['name'],
'obj': nodeArr['obj'],
'attrEx': nodeArr['attrEx'],
'nodeType': nodeArr['nodeType'],
);
));
ExtNodes union= arr;
return 1;
End
private
Function getChildrenEx();
Function Value(name);
Begin
uri := ifObj(Parent) ? NodeName : '';
p := Parent;
rootNode := Root();
while ifObj(p) do Begin
if ifObj(p.Parent) then
uri := p.NodeName + (uri ? '/' : '') + uri;
rootNode := p.Root();
p := p.Parent;
End;
attrs := GetAttrsEx();
lName := lowerCase(name);
r := sselect * from attrs where lName = lowerCase([0]) end;
if istable(r) then Begin
node := class(xlsxXml).GetNode(rootNode, uri);
if not ifObj(node) then return nil;
return node.GetAttribute(r[1]);
End;
children := GetChildren();
r := select * from children where lName = lowerCase(['field']) end;
if istable(r) then Begin
r := r[0];
uri := (uri='' ? '' : uri + '/') + r['name'];
node := class(xlsxXml).GetNode(rootNode, uri);
if not ifObj(node) then return nil;
if r['nodeType'] = 'empty' then
return true;
if r['nodeType'] = 'pcdata' then //返回文本串
return node.GetText();
if ifObj(r['obj']) then //对象，返回XML串
return node.Data();
key := r['attrName'] ? r['attrName'] : r['attrEx'] ? r['attrEx'] : 'val';
if r['nodeType'] = 'empty_string' then
begin
value := node.GetAttribute(key);
if not value then return true;
return value;
end
return node.GetAttribute(key);//返回属性
End;
return nil;
End;
Function Replace(hash, bChild);
Begin
if istable(hash) then Begin
ReplaceArr := hash;
replaceNodeName();
if bChild then Begin
r := GetChildren();
a := array();
for i:=0 to length(r)-1 do Begin
if ifarray(r[i]['obj']) then Begin
a union= r[i]['obj'];
if ifObj(r[i]['obj']) then
r[i]['obj'].Replace(hash, bChild);
End;
End;
End;
End
Function GetChildrenEx();
Begin
if not ifarray(children_) then Begin
children_ := getChildren();
if not istable(ReplaceArr) then Begin
for i:=0 to length(children_)-1 do Begin
if ifarray(children_[i]['obj']) then Begin
if istable(children_[i]['obj']) then
hasArr := 1;
else
children_[i]['obj'] := nil;
End;
End;
End;
if hasArr or istable(ReplaceArr) then Begin
a := array();
for i:=0 to length(children_)-1 do Begin
if istable(ReplaceArr) then
children_[i]['name'] := ReplaceName(children_[i]['name']);
if istable(children_[i]['obj']) then Begin
a union= children_[i]['obj'];
End
else
a[ length(a) ] := r[i];
a[ length(a) ] := children_[i];
end;
return a;
children_ := a;
End;
End;
End;
Function GetAttrsEx();
Begin
return GetAttrs();//暂时没有发现需要更新属性前缀的情况
if not istable(ReplaceArr) then return GetAttrs();
attr := GetAttrs();
for i:=0 to length(attr)-1 do
attr[i][1] := ReplaceName(attr[i][1]);
return attr;
End
private
Function replaceNodeName();
Begin
for k, v in ReplaceArr do
begin
NodeName := ReplaceStr(NodeName, k, v);
end
End
Function ReplaceName(name);
Begin
for k,v in ReplaceArr do Begin
if k='' then
name := v + name;
else
name := ReplaceStr(name, k, v);
End;
return name;
End;
public
NodeName;
ExtAttr;
ExtNodes;
Parent;
ReplaceArr;
RootObj;
children_;
End
funcext/TSOffice/TSUtils/TSChart.tsf
+302
View File
@@ -0,0 +1,302 @@
Type TSChart = Class
///缺省构造函数
Function Create(chartData); overload;
Begin
chartData_ := chartData;
End;
Function GetDefaultXml();
Begin
return '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<c:chartSpace xmlns:c="http://schemas.openxmlformats.org/drawingml/2006/chart" xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships">
<c:date1904 val="0"></c:date1904>
<c:lang val="zh-CN"></c:lang>
<c:roundedCorners val="0"></c:roundedCorners>
<mc:AlternateContent xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006">
<mc:Choice Requires="c14" xmlns:c14="http://schemas.microsoft.com/office/drawing/2007/8/2/chart">
<c14:style val="102" />
</mc:Choice>
<mc:Fallback>
<c:style val="2" />
</mc:Fallback>
</mc:AlternateContent>
<c:chart>
<c:title>
<c:tx>
<c:rich>
<a:bodyPr anchorCtr="false" rot="0" spcFirstLastPara="false"></a:bodyPr>
<a:lstStyle />
<a:p>
<a:pPr>
<a:defRPr b="false" baseline="0" i="false" kern="1200" spc="0" strike="noStrike" sz="1400" u="none">
<a:solidFill>
<a:schemeClr val="tx1">
<a:lumMod val="65000"></a:lumMod>
<a:lumOff val="35000"></a:lumOff>
</a:schemeClr>
</a:solidFill>
<a:latin typeface="+mn-lt"></a:latin>
<a:ea typeface="+mn-ea"></a:ea>
<a:cs typeface="+mn-cs"></a:cs>
</a:defRPr>
</a:pPr>
<a:r>
<a:rPr altLang="en-US" b="false" baseline="0" i="false" kern="0" lang="en-US" spc="0"></a:rPr>
<a:t>Chart</a:t>
</a:r>
<a:endParaRPr lang="en-US" altLang="en-US" b="0" i="0" kern="0" spc="0" baseline="0" />
</a:p>
</c:rich>
</c:tx>
<c:layout />
<c:overlay val="0"></c:overlay>
</c:title>
<c:autoTitleDeleted val="0" />
<c:view3D />
<c:plotArea/>
<c:legend>
<c:legendPos val="b"></c:legendPos>
<c:layout />
<c:overlay val="0" />
<c:txPr>
<a:bodyPr rot="0" spcFirstLastPara="0" vertOverflow="ellipsis" vert="horz" wrap="square" anchor="ctr" anchorCtr="1" />
<a:lstStyle />
<a:p>
<a:pPr>
<a:defRPr lang="zh-CN" sz="1000" b="0" i="0" u="none" strike="noStrike" kern="1200" baseline="0">
<a:solidFill>
<a:schemeClr val="tx1" />
</a:solidFill>
<a:latin typeface="+mn-lt" />
<a:ea typeface="+mn-ea" />
<a:cs typeface="+mn-cs" />
</a:defRPr>
</a:pPr>
</a:p>
</c:txPr>
</c:legend>
<c:plotVisOnly val="0"></c:plotVisOnly>
<c:dispBlanksAs val="zero"></c:dispBlanksAs>
<c:showDLblsOverMax val="0"></c:showDLblsOverMax>
</c:chart>
<c:spPr>
<a:solidFill>
<a:schemeClr val="bg1"></a:schemeClr>
</a:solidFill>
<a:ln algn="ctr" cap="flat" cmpd="sng" w="9525">
<a:solidFill>
<a:schemeClr val="tx1">
<a:lumMod val="15000"></a:lumMod>
<a:lumOff val="85000"></a:lumOff>
</a:schemeClr>
</a:solidFill>
</a:ln>
</c:spPr>
</c:chartSpace>';
End;
Function IsWord();virtual;
Begin
return false;
End;
Function Apply(xmlObj);
Begin
chartData_.Serialize(IsWord()); //初始化图表数据
task := array(('c:chartSpace/c:chart/c:title/c:tx/c:rich/a:p/a:r/a:t', 'pcdata', chartData_.Title),
('c:chartSpace/c:chart/c:dispBlanksAs', 'val', chartData_.ShowBlanksAs),
('c:chartSpace/c:chart/c:legend', 'Del', ifnil(chartData_.Legend)),
('c:chartSpace/c:chart/c:plotArea', 'unmarshal', chartData_.plotArea.Marshal()),
('c:chartSpace/c:chart/c:view3D', 'unmarshal', getview3D().Marshal())
);
for i:=0 to length(task)-1 do Begin
class(xlsxXml).SetNodeValue(xmlObj, task[i]);
End;
if ifObj(chartData_.Legend) then Begin
node := class(xlsxXml).GetNode(xmlObj, 'c:chartSpace/c:chart/c:legend');
if ifObj(node) then Begin
arr := chartData_.Legend.Marshal();
class(xlsxXml).UpdateNode(node, arr['attributes'], arr['children']);
End;
End;
chartData_.ChartNode := class(xlsxXml).GetNode(xmlObj, 'c:chartSpace/c:chart/c:plotArea');
if chartData_.DataTable then
chartData_.ShowDataTable(true);
End;
protected
Function getview3D();
Begin
view3D := TOfficeObj('TView3D');
chartView3DRotX := array(
'area': 0,
'areastacked': 0,
'areapercentstacked': 0,
'area3d': 15,
'area3dstacked': 15,
'area3dpercentstacked': 15,
'bar': 0,
'barstacked': 0,
'barpercentstacked': 0,
'bar3dclustered': 15,
'bar3dstacked': 15,
'bar3dpercentstacked': 15,
'bar3dconeclustered': 15,
'bar3dconestacked': 15,
'bar3dconepercentstacked': 15,
'bar3dpyramidclustered': 15,
'bar3dpyramidstacked': 15,
'bar3dpyramidpercentstacked': 15,
'bar3dcylinderclustered': 15,
'bar3dcylinderstacked': 15,
'bar3dcylinderpercentstacked': 15,
'col': 0,
'colstacked': 0,
'colpercentstacked': 0,
'col3d': 15,
'col3dclustered': 15,
'col3dstacked': 15,
'col3dpercentstacked': 15,
'col3dcone': 15,
'col3dconeclustered': 15,
'col3dconestacked': 15,
'col3dconepercentstacked': 15,
'col3dpyramid': 15,
'col3dpyramidclustered': 15,
'col3dpyramidstacked': 15,
'col3dpyramidpercentstacked': 15,
'col3dcylinder': 15,
'col3dcylinderclustered': 15,
'col3dcylinderstacked': 15,
'col3dcylinderpercentstacked': 15,
'doughnut': 0,
'line': 0,
'pie': 0,
'pie3d': 30,
'pieofpiechart': 0,
'barofpiechart': 0,
'radar': 0,
'scatter': 0,
'surface3d': 15,
'wireframesurface3d': 15,
'contour': 90,
'wireframecontour': 90);
chartView3DRotY := array(
'area': 0,
'areastacked': 0,
'areapercentstacked': 0,
'area3d': 20,
'area3dstacked': 20,
'area3dpercentstacked': 20,
'bar': 0,
'barstacked': 0,
'barpercentstacked': 0,
'bar3dclustered': 20,
'bar3dstacked': 20,
'bar3dpercentstacked': 20,
'bar3dconeclustered': 20,
'bar3dconestacked': 20,
'bar3dconepercentstacked': 20,
'bar3dpyramidclustered': 20,
'bar3dpyramidstacked': 20,
'bar3dpyramidpercentstacked': 20,
'bar3dcylinderclustered': 20,
'bar3dcylinderstacked': 20,
'bar3dcylinderpercentstacked': 20,
'col': 0,
'colstacked': 0,
'colpercentstacked': 0,
'col3d': 20,
'col3dclustered': 20,
'col3dstacked': 20,
'col3dpercentstacked': 20,
'col3dcone': 20,
'col3dconeclustered': 20,
'col3dconestacked': 20,
'col3dconepercentstacked': 20,
'col3dpyramid': 20,
'col3dpyramidclustered': 20,
'col3dpyramidstacked': 20,
'col3dpyramidpercentstacked': 20,
'col3dcylinder': 20,
'col3dcylinderclustered': 20,
'col3dcylinderstacked': 20,
'col3dcylinderpercentstacked': 20,
'doughnut': 0,
'line': 0,
'pie': 0,
'pie3d': 0,
'pieofpiechart': 0,
'barofpiechart': 0,
'radar': 0,
'scatter': 0,
'surface3d': 20,
'wireframesurface3d': 20,
'contour': 0,
'wireframecontour': 0);
chartView3DPerspective := array(
'contour': 0,
'wireframecontour': 0);
chartView3DRAngAx := array(
'area': 0,
'areastacked': 0,
'areapercentstacked': 0,
'area3d': 1,
'area3dstacked': 1,
'area3dpercentstacked': 1,
'bar': 0,
'barstacked': 0,
'barpercentstacked': 0,
'bar3dclustered': 1,
'bar3dstacked': 1,
'bar3dpercentstacked': 1,
'bar3dconeclustered': 1,
'bar3dconestacked': 1,
'bar3dconepercentstacked': 1,
'bar3dpyramidclustered': 1,
'bar3dpyramidstacked': 1,
'bar3dpyramidpercentstacked': 1,
'bar3dcylinderclustered': 1,
'bar3dcylinderstacked': 1,
'bar3dcylinderpercentstacked': 1,
'col': 0,
'colstacked': 0,
'colpercentstacked': 0,
'col3d': 1,
'col3dclustered': 1,
'col3dstacked': 1,
'col3dpercentstacked': 1,
'col3dcone': 1,
'col3dconeclustered': 1,
'col3dconestacked': 1,
'col3dconepercentstacked': 1,
'col3dpyramid': 1,
'col3dpyramidclustered': 1,
'col3dpyramidstacked': 1,
'col3dpyramidpercentstacked': 1,
'col3dcylinder': 1,
'col3dcylinderclustered': 1,
'col3dcylinderstacked': 1,
'col3dcylinderpercentstacked': 1,
'doughnut': 0,
'line': 0,
'pie': 0,
'pie3d': 0,
'pieofpiechart': 0,
'barofpiechart': 0,
'radar': 0,
'scatter': 0,
'surface3d': 0,
'wireframesurface3d': 0,
'contour': 0,
'bubble': 0,
'bubble3d': 0);
view3D.RotX := chartView3DRotX[chartData_.Type];
view3D.RotY := chartView3DRotY[chartData_.Type];
view3D.Perspective := chartView3DPerspective[chartData_.Type];
view3D.RAngAx := chartView3DRAngAx[chartData_.Type];
return view3D;
End;
chartData_;
type_;
End;
funcext/TSOffice/TSUtils/TSImage.tsf
+11 -9
View File
@@ -2,16 +2,17 @@ Type TSImage = Class
Function Create(stream); overload;
Begin
content_ := stream;
imageDef := array(('Png', 0, (0x89, 'P', 'N', 'G', 0x0d, 0x0a, 0x1a, 0x0a)),
('Jfif',6,'JFIF'),
('Exif',6,'Exif'),
('Gif',0,'GIF87a'),
('Gif',0,'GIF89a'),
('Tiff',0,('M','M',0x00,'*')),
('Tiff',0,('I', 'I', '*', 0x00)),
('Bmp',0,'BM'));
imageDef := array(('Png', 0, (0x89, 'P', 'N', 'G', 0x0d, 0x0a, 0x1a, 0x0a),'png'),
('Jfif',6,'JFIF','Jfif'),
('Exif',6,'Exif','Exif'),
('Gif',0,'GIF87a','gif'),
('Gif',0,'GIF89a','gif'),
('Tiff',0,('M','M',0x00,'*'),'tiff'),
('Tiff',0,('I', 'I', '*', 0x00),'tiff'),
('Bmp',0,'BM','bmp'));
ind := getImageDef(stream, imageDef);
if ind >= 0 then Begin
ExtFileName := imageDef[ind][3];
case imageDef[ind][0] of
'Gif':
[px_width, px_height, horz_dpi, vert_dpi] := gif_dimensions(stream);
@@ -21,7 +22,7 @@ Type TSImage = Class
[px_width, px_height, horz_dpi, vert_dpi] := tiff_dimensions(stream, imageDef[ind][2]);
End;
End;
println('width={},height={}',px_width, px_height);
//println('width={},height={}',px_width, px_height);
end;
Function Width();
@@ -216,4 +217,5 @@ println('off={}, tag={},type={},value_count={},value_off={},val={}',off, tag_cod
px_height:integer;
horz_dpi:integer;
vert_dpi:integer;
ExtFileName:string;
End;
funcext/TSOffice/TSUtils/xlsxXml.tsf
+209 -21
View File
File diff suppressed because one or more lines are too long
funcext/TSOffice/document/TDocxChart.tsf
+51
View File
@@ -0,0 +1,51 @@
Type TDocxChart = Class(TSChart)
///缺省构造函数
Function Create(docx, chartData); overload;
Begin
class(TSChart).Create(chartData);
//chartN.xml
chartId_ := 1 + vselect countof( ['FileName'] ) from docx.ZipObject().Files() where AnsiStartsText('word/charts/chart', ['FileName']) end;
chartFile := 'word/charts/chart' $ chartId_ $ '.xml';
docx.ZipObject().Add(chartFile, GetDefaultXml());
xmlObj := docx.ZipObject().Get(chartFile);
Apply(xmlObj);
//Relationship
relsObj := docx.ZipObject().Get('word/_rels/document.xml.rels');
[rId_, target] := class(xlsxXml).FindRelationshipRid(relsObj, '');
rId_ ++;
class(xlsxXml).AddRelationshipRid(relsObj, '/' + chartFile, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/chart', 'rId' $ rId_);
//Content_Types
contentType := docx.ZipObject().Get('[Content_Types].xml');
class(xlsxXml).AddOverrideContentType(contentType, '/' + chartFile, 'application/vnd.openxmlformats-officedocument.drawingml.chart+xml');
End;
Function GetInnerXml();
Begin
ETU := 360045;//1cm单位
return fmt('<w:r>
<w:drawing>
<wp:inline>
<wp:extent cx="{}" cy="{}"/>
<wp:effectExtent l="0" t="0" r="19050" b="19050"/>
<wp:docPr id="{}" name="{}"/>
<wp:cNvGraphicFramePr />
<a:graphic xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main">
<a:graphicData uri="http://schemas.openxmlformats.org/drawingml/2006/chart">
<c:chart xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" r:id="rId{}" xmlns:c="http://schemas.openxmlformats.org/drawingml/2006/chart"/>
</a:graphicData>
</a:graphic>
</wp:inline>
</w:drawing>
</w:r>', integer(chartData_.Width * ETU), integer(chartData_.Height * ETU), chartId_, chartData_.Name, rId_);
End;
Function IsWord();override;
Begin
return true;
End;
chartId_;
rId_;
End;
funcext/TSOffice/document/TDocxStyles.tsf
+193
View File
@@ -0,0 +1,193 @@
Type TDocxStyles = Class
//段落格式
Function Create(docx);
Begin
docx_ := docx;
stylesXml_ := docx.ZipObject().Get('word/styles.xml');
idMap_ := array();
nameMap_ := array();
maxStyleId_ := 1;
if ifObj(stylesXml_) then Begin
stylesNode := stylesXml_.FirstChildElement('w:styles');
if ifObj(stylesNode) then Begin
node := stylesNode.FirstChildElement('w:style');
while ifObj(node) do Begin
o := TOfficeObj('TDocxStyle');
o.Init(node);
id := StrToIntDef(o.StyleId, 0);
if id > 0 and maxStyleId_ <= id then
maxStyleId_ := id + 1;
_addStyle(o);
node := node.NextElement('w:style');
End;
pNode := class(xlsxXml).GetNode(stylesNode, 'w:docDefaults/w:pPrDefault');
if ifObj(pNode) then
defaultPpr_ := Class(xlsxXml).ReadPprFormat(pNode);
rNode := class(xlsxXml).GetNode(stylesNode, 'w:docDefaults/w:rPrDefault');
if ifObj(rNode) then
defaultRpr_ := Class(xlsxXml).ReadRprFormat(rNode);
End;
End;
End;
///缺省样式
///styleType：样式类型（paragraph、character、table）
///返回：TDocxStyle对象
Function Default(styleType);
Begin
for k, obj in idMap_ do Begin
if obj.wType_ = styleType then Begin
v := obj.node_.GetAttribute('w:default');
if v <> '1' then
return obj;
End;
End
return nil;
End;
///返回指定名称的TDocxStyle
///name：样式名称
///返回：TDocxStyle对象
Function GetStyle(name);
Begin
return nameMap_[ lowercase(name) ];
End;
///返回指定StyleId名称的TDocxStyle
///id：StyleID号（数字ID号或名称字符串）
///返回：TDocxStyle对象
Function GetStyleById(id);
Begin
return idMap_[ id ];
End;
///返回全部LatentStyles对象列表
///返回：TDocxStyle对象列表
Function LatentStyles();
Begin
r := array();
node := stylesXml_.FirstChildElement('w:styles');
if ifObj(node) then
node := node.FirstChildElement('w:latentStyles');
if ifObj(node) then Begin
node := node.FirstChildElement('w:lsdException');
while ifObj(node) do Begin
o := TOfficeObj('TDocxStyle');
o.Init(node);
o.name_ := node.GetAttribute('w:name');
r[ length(r) ] := o;
node := node.NextElement('w:lsdException');
End;
End;
return r;
End;
///返回全部Styles对象列表
///返回：TDocxStyle对象列表
Function Styles();
Begin
return idMap_;
End;
///插入新的段落样式
///styleId：样式ID，可以是自定义名称
///xmlStr：InnerXml串
///返回：TDocxStyle对象
Function AddStyleByInnerXml(styleId, xmlStr);
Begin
if ifstring(styleId) and styleId <> '' then Begin
style := GetStyle(styleId);
if ifObj(style) then
return style;
node := stylesXml_.FirstChildElement('w:styles').InsertEndChild(xmlStr);
node.SetAttribute('w:styleId', styleId);
End
else Begin
node := stylesXml_.FirstChildElement('w:styles').InsertEndChild(xmlStr);
node.SetAttribute('w:styleId', maxStyleId_++);
End;
o := TOfficeObj('TDocxStyle');
o.Init(node);
_addStyle(o);
return o;
End;
///插入新的段落样式
///o：TDocxStyle对象
///StyleId：样式ID，可以是自定义名称
///返回：TDocxStyle对象
Function AddStyle(o, StyleId);
Begin
if ifObj(o) then Begin
if ifString(StyleId) and StyleId <> '' and not ifObj(idMap_[ StyleId ]) then
o.StyleId := StyleId;
else
o.StyleId := maxStyleId_++;
node := stylesXml_.FirstChildElement('w:styles').InsertEndChild(o.Marshal());
obj := TOfficeObj('TDocxStyle');
obj.Init(node);
_addStyle(obj);
return obj;
End;
return nil;
End;
///插入新的LatentStyle段落样式
///o：TDocxStyle对象
///返回：TDocxStyle对象
Function AddLatentStyle(o);
Begin
if ifObj(o) then Begin
latentStyles := stylesXml_.FirstChildElement('w:styles').InsertEndChild('w:latentStyles');
node := latentStyles.InsertEndChild('lsdException');
node.UnMarshal(o);
latentStyles.SetAttribute('w:count', length(LatentStyles()));
return node;
End;
return nil;
End;
///插入缺省的段落样式（Title、Heading1-9）
///返回：TDocxStyle对象
Function AddDefaultStyle(path, Name);
Begin
styleId := AnsiReplaceText(Name, ' ', '');
charId := StyleId + 'Char';
if path[1] = '/' then Begin
styleFname := path + '/funcext/TSOffice/template/wStyle' + styleId + '.xml';
cStyleFname := path + '/funcext/TSOffice/template/wStyle/' + charId + '.xml';
End
else Begin
styleFname := path + '\\funcext\\TSOffice\\template\\wStyle\\' + styleId + '.xml';
cStyleFname := path + '\\funcext\\TSOffice\\template\\wStyle\\' + charId + '.xml';
End;
if not ReadFile(rwraw(), '', styleFname, 0, 100 * 1024, xmlData) then
return nil;
o := AddStyleByInnerXml(styleId, xmlData);
charStyle := idMap_[charId];
if not ifObj(charStyle) then Begin
if ReadFile(rwraw(), '', cStyleFname, 0, 100 * 1024, xmlData) then Begin
AddStyleByInnerXml(charId, xmlData);
End;
End;
return o;
End;
Function _addStyle(o);
Begin
idMap_[ o.StyleId ] := o;
nameMap_[ lowercase(o.Name) ] := o;
End;
defaultPpr_;
defaultRpr_;
private
docx_;
stylesXml_;
idMap_;
nameMap_;
maxStyleId_:integer;
End;
funcext/TSOffice/document/TNumbering.tsf
+235
View File
@@ -0,0 +1,235 @@
Type TNumbering = Class
//项目编号
Function Create(docx);
Begin
docx_ := docx;
numberingXml_ := docx.ZipObject().Get('word/numbering.xml');
if not ifObj(numberingXml_) then Begin
path := docx.GetPath();
if path[1] = '/' then
fName := path + '/funcext/TSOffice/template/template/numbering/numbering.xml';
else
fName := path + '\\funcext\\TSOffice\\template\\numbering\\numbering.xml';
if ReadFile(rwraw(), '', fName, 0, 100 * 1024, xmlData) then Begin
docx.ZipObject().Add('word/numbering.xml', xmlData);
rels := 'word/_rels/document.xml.rels';
relsObj := docx.ZipObject().Get(rels);
[rId, target] := class(xlsxXml).FindRelationshipRid(relsObj, '');
rId ++;
class(xlsxXml).AddRelationshipRid(relsObj, 'numbering.xml', 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/numbering', 'rId' $ rId);
contentType := docx.ZipObject().Get('[Content_Types].xml');
class(xlsxXml).AddOverrideContentType(contentType, '/word/numbering.xml', 'application/vnd.openxmlformats-officedocument.wordprocessingml.numbering+xml');
numberingXml_ := docx.ZipObject().Get('word/numbering.xml');
End;
End;
maxAbstractNumId_ := 0;
maxNumId_ := 1;
numStyleObjs_ := array();
numIdMap_ := array();
bullet_ := array();
hash_ := array();
bulletDefine_ := array("ef82b2","ef81b5","ef83bc","ef81b6","ef81ac","ef8398","ef81ae");//缺省项目符号文字内容（utf8 -> hex16）
if ifObj(numberingXml_) then Begin
numbering := numberingXml_.FirstChildElement('w:numbering');
if ifObj(numbering) then Begin
node := numbering.FirstChildElement('w:abstractNum');
numNode := numbering.FirstChildElement('w:num');
End;
while ifObj(node) do Begin
o := TOfficeObj('TNumStyle');
o.Init(node);
nsid := o.Value('nsid');
if nsid then
hash_[nsid] := 1;
tmpl := o.Value('tmpl');
if tmpl then
hash_[tmpl] := 1;
id := StrToIntDef(o.abstractNumId, 0);
if id >= 0 and maxAbstractNumId_ <= id then
maxAbstractNumId_ := id + 1;
_addStyle(o);
lastAbstractNumStyle_ := node;
node := node.NextElement('w:abstractNum');
End;
while ifObj(numNode) do Begin
idStr := numNode.GetAttribute('w:numId');
id := StrToIntDef(idStr, 0);
if id > 0 and maxNumId_ <= id then
maxNumId_ := id + 1;
abstractNumIdNode := numNode.FirstChildElement('w:abstractNumId');
if ifObj(abstractNumIdNode) then
numIdMap_[idStr] := abstractNumIdNode.GetAttribute('w:val');
numNode := numNode.NextElement('w:num');
End;
End;
End;
///新生成numId
///levelType：字符串，bullet、singleLevel、multilevel
///fmt：项目格式，取值范围：bullet:0-6；singleLevel：(decimal、chineseCounting)；multilevel：decimal
///返回：numId
Function NumberId(levelType, fmt);
Begin
style := NumberStyle(levelType, fmt);
if not ifObj(style) then
return -1;
num := TOfficeObj('TNumber');
num.numId := maxNumId_++;
num.abstractNumId := style.Id;
numberingXml_.FirstChildElement('w:numbering').InsertEndChild(num.Marshal());
numIdMap_[''$num.numId] := num.abstractNumId;
return num.numId;
End;
///根据numId获取TNumStyle对象（已存在）
///返回：TNumStyle对象
Function NumberStyle(numId);overload;
Begin
abstractNumId := numIdMap_[numId];
if abstractNumId then Begin
return numStyleObjs_[abstractNumId];
End;
return nil;
End;
//获取TNumStyle对象，如果不存在插入系统缺省
Function NumberStyle(levelType, fmt);overload;
Begin
if levelType = 'bullet' then Begin
if fmt < 0 or fmt > 6 then return nil;
k := bulletDefine_[fmt];
o := bullet_[k];
if ifObj(o) then
return o;
//不存在，插入缺省项目编号
return AddDefaultStyle('bullet' $ fmt);
End;
if lowercase(levelType) = 'singlelevel' and lowercase(fmt) = 'decimal' then Begin
if ifObj(singleNumLevel_) then
return singleNumLevel_;
return AddDefaultStyle('singleNumLevel-decimal');
End;
if lowercase(levelType) = 'singlelevel' and lowercase(fmt) in array('chinese','chinesecounting','cn','china') then Begin
if ifObj(singleCNLevel_) then
return singleCNLevel_;
return AddDefaultStyle('singlelevel-chineseCounting');
End;
if lowercase(levelType) = 'multilevel' and lowercase(fmt) = 'decimal' then Begin
if ifObj(multiNumLevel_) then
return multiNumLevel_;
return AddDefaultStyle('multilevel-decimal');
End;
return nil;
End;
///返回：TNumStyle全部对象列表array('id1':obj1,'id2':obj2);
Function Numberings();
Begin
return numStyleObjs_;
End;
///新添加项目样式
///xmlStr：xml字符串
///返回：TNumStyle对象
Function AddStyleByInnerXml(xmlStr);
Begin
if ifObj(lastAbstractNumStyle_) then
node := numberingXml_.FirstChildElement('w:numbering').InsertAfterChild(lastAbstractNumStyle_, xmlStr);
else
node := numberingXml_.FirstChildElement('w:numbering').InsertFirstChild(xmlStr);
node.SetAttribute('w:abstractNumId', maxAbstractNumId_++);
lastAbstractNumStyle_ := node;
o := TOfficeObj('TNumStyle');
o.Init(node);
_addStyle(o);
_setNsId(o);
return o;
End;
///新添加项目样式
///o：TNumStyle对象
///返回：TNumStyle对象
Function AddStyle(o);
Begin
if ifObj(o) then Begin
o.abstractNumId := maxAbstractNumId_++;
if ifObj(lastAbstractNumStyle_) then
node := numberingXml_.FirstChildElement('w:numbering').InsertAfterChild(lastAbstractNumStyle_, o.Marshal());
else
node := numberingXml_.FirstChildElement('w:numbering').InsertFirstChild(o.Marshal());
lastAbstractNumStyle_ := node;
o := TOfficeObj('TNumStyle');
o.Init(node);
_addStyle(o);
_setNsId(o);
return o;
End;
return nil;
End;
//系统默认支持的项目编号样式
Function AddDefaultStyle(Name);
Begin
path := docx_.GetPath();
if path[1] = '/' then Begin
styleFname := path + '/funcext/TSOffice/template/numbering/' + name + '.xml';
End
else Begin
styleFname := path + '\\funcext\\TSOffice\\template\\numbering\\' + name + '.xml';
End;
if not ReadFile(rwraw(), '', styleFname, 0, 100 * 1024, xmlData) then
return nil;
return AddStyleByInnerXml(xmlData);
End;
//map项目对象
Function _addStyle(o);
Begin
if o.multiLevelType = 'singleLevel' and o.numFmt = 'bullet' then Begin
lvlText := o.lvl.Value('lvlText');
if lvlText then Begin
str := encoderadixstr(lvlText,"", 0x40000000+16);
bullet_[str] := o;
End;
End
else if not ifObj(singleNumLevel_) and o.multiLevelType = 'singleLevel' and o.numFmt = 'decimal' then
singleNumLevel_ := o;
else if not ifObj(singleCNLevel_) and o.multiLevelType = 'singleLevel' and o.numFmt = 'chineseCounting' then
singleCNLevel_ := o;
else if not ifObj(multiNumLevel_) and o.multiLevelType = 'multilevel' and o.numFmt = 'decimal' then
multiNumLevel_ := o;
numStyleObjs_[o.abstractNumId] := o;
End;
//生成nsid随机数->转16进制
Function _setNsId(o);
Begin
v := RandomRange(1000000000,2000000000);
id := xlsx_call('tohex',v);
if hash_[id] then
return _setNsId(o);
hash_[id] := 1;
o.nsid := id;
o.tmpl := id;
arr := o.Marshal();
class(xlsxXml).UpdateNode(o.node_, arr['attributes'], arr['children']);
End;
private
docx_;
numberingXml_;
maxAbstractNumId_:integer;
maxNumId_:integer;
lastAbstractNumStyle_;
numStyleObjs_;
singleNumLevel_;
singleCNLevel_;
multiNumLevel_;
bulletDefine_;
bullet_;
numIdMap_;
hash_;
End;
funcext/TSOffice/document/TTableContent.tsf
+309
View File
@@ -0,0 +1,309 @@
Type TTableContent = class
//目录
Function Create(docx);overload;
Begin
Create(docx, nil);
End;
Function Create(docx, node);overload;
Begin
node_ := node;
docx_ := docx;
impl_ := TOfficeObj('TTableContentImpl');
//_CheckNodes('endnotes.xml');
//_CheckNodes('footnotes.xml');
//contentType := docx.ZipObject().Get('[Content_Types].xml');
//class(xlsxXml).AddOverrideContentType(contentType, 'wmf', 'image/x-wmf');
End;
Function SetDefaultFormat();
Begin
defultFont := impl_.stdPr.rPr;
defultFont.rFont.cstheme := 'minorBidi';
defultFont.rFont.eastAsia := '宋体';
defultFont.rFont.hAnsi := '宋体';
defultFont.rFont.ascii := '宋体';
//defultFont.kern := 2;
defultFont.Size := 21;
defultFont.SzCs := 24;
defultFont.Lang := 'en-US';
defultFont.bidi := 'ar-SA';
defultFont.eastAsia := 'zh-CN';
defultFormat := impl_.stdPr;
defultFormat.ID := integer(time()*24*3600);
defultFormat.Color := 'DBDBDB';
defultFormat.docPartObj.docPartGallery := 'Table of Contents';
defultFormat.docPartObj.docPartUnique := 1;
//impl_.stdEndPr.rPr.Size := 20;
//impl_.stdEndPr.rPr.SzCs := 20;
impl_.stdEndPr.rPr.Bold := true;
End;
///应用目录样式
Function Apply(); override;
Begin
arr := impl_.Marshal();
class(xlsxXml).UpdateNode(node_, arr['attributes'], arr['children']);
End;
///添加目录条目
///UpperHeadingLevel：标题最高级别
///LowerHeadingLevel：标题最低级别
/// 使用 UpperHeadingLevel 属性可设置起始标题级别（最高）。例如，若要设置 TOC 域语法 {TOC \o "1-3"}，可将 LowerHeadingLevel 属性设为 3，并将 UpperHeadingLevel 属性设为 1。
Function Add(posOpt, UpperHeadingLevel, LowerHeadingLevel);
Begin
///目录
mParagraph := TOfficeObj('TParagraph');
mParagraph.pPr.LineSpacingRule := 'auto';
mParagraph.pPr.LineSpacing := 240;
mParagraph.pPr.AfterLines := 0;
mParagraph.pPr.SpaceAfter := 0;
mParagraph.pPr.BeforeLines := 0;
mParagraph.pPr.SpaceBefore := 0;
mParagraph.pPr.Alignment := 'center';
mParagraph.pPr.FirstLineChars := 0;
mParagraph.pPr.FirstLineIndent := 0;
mParagraph.pPr.RightChars := 0;
mParagraph.pPr.RightIndent := 0;
mParagraph.pPr.LeftChars := 0;
mParagraph.pPr.LeftIndent := 0;
mParagraph.Run.T := '目录';
mParagraph.Run.rPr.Name := '宋体';
mParagraph.Run.rPr.Size := 21;
mParagraph.Run.rPr.Bold := true;
_AddStdContent(mParagraph);
goback := TOfficeObj('TParagraph');
id := docx_.Document().GetBookMarkID();
goback.MarkStart.Name := '_GoBack';
goback.MarkStart.ID := id;
goback.MarkEnd.ID := id;
_AddStdContent(goback);
//缺省目录，需要word或wps打开后，更新目录
_AddDefaultTableContent(UpperHeadingLevel, LowerHeadingLevel);
//自定义页码计算与word、wps有差异，不推荐使用
//_AddTableContent(posOpt, UpperHeadingLevel, LowerHeadingLevel);
End;
Function _AddDefaultTableContent(UpperHeadingLevel, LowerHeadingLevel);
Begin
p := _AddItem(UpperHeadingLevel, LowerHeadingLevel, UpperHeadingLevel - 1, true);
_AddStdContent(p);
p2 := TOfficeObj('TParagraph');
//p2.Format.SpaceAfter := 0;
run := p2.AddRun();
run.rPr.Bold := true;
run.rPr.noProof := true;
run.fldCharType := 'end';
_AddStdContent(p2);
End;
Function _AddItem(UpperHeadingLevel, LowerHeadingLevel, level, first);
Begin
p := TOfficeObj('TParagraph');
//标题段落属性
p.Format.StyleId := _GetStyle(level);
//p.Format.SpaceAfter := 0;
p.Format.rPr.noProof := true;
tab := TOfficeObj('TTabStop');
tab.Val := 'right';
tab.leader := 'dot';
tab.Position := 8640;
p.Format.Tabs.Add(0, tab);
if first then Begin
//fldCharType
r1 := p.AddRun();
r1.fldCharType := 'begin';
r1.Dirty := 'true';
//instrText
r2 := p.AddRun();
r2.instrTextSpace := 'preserve';
r2.instrText := 'TOC \\o \"' $ UpperHeadingLevel $ '-' $ LowerHeadingLevel $ '\" \\h \\u ';
//fldCharType
r3 := p.AddRun();
r3.fldCharType := 'separate';
End;
return p;
End;
Function _AddTableContent(posOpt, UpperHeadingLevel, LowerHeadingLevel);
Begin
///获取标题列表 array((("Level":level,"Paragraph":"object","Text":title,"numId":,"ilvl":,"numArr":));
numMap := array();
r := docx_.Document().Body().GetHeadingListImpl(docx_, posOpt, UpperHeadingLevel, LowerHeadingLevel, numMap, true);
for i:=0 to length(r)-1 do Begin
p := _AddItem(UpperHeadingLevel, LowerHeadingLevel, r[i]['Level'], i = 0 ? true: false);
//fldCharType
r4 := p.AddRun();
r4.fldCharType := 'begin';
//instrText
bookmarke := _GetBookMarkId(r[i]['Paragraph']);
r5 := p.AddRun();
r5.instrTextSpace := 'preserve';
r5.instrText := ' HYPERLINK \\l ' $ bookmarke $ ' ';
//fldCharType
r6 := p.AddRun();
r6.fldCharType := 'separate';
//目录条目文字内容
r7 := p.AddRun();
r7.Font.Name := '宋体';
numStr := ''; //数字项目编号
if r[i]['numId'] then Begin
style := docx_.NumberingObject().NumberStyle(r[i]['numId']);//支持数字、字符串StyleId
if ifObj(style) then
numStr := style.GetText(r[i]['ilvl'], r[i]['numArr']);
End
r7.T := numStr + r[i]['Text'];
//Tab
r8 := p.AddRun();
r8.Tab := true;
//fldCharType
r9 := p.AddRun();
r9.fldCharType := 'begin';
//instrText
r10 := p.AddRun();
r10.instrTextSpace := 'preserve';
r10.instrText := ' PAGEREF ' $ bookmarke $ ' \\h ';
//fldCharType
r11 := p.AddRun();
r11.fldCharType := 'separate';
//页码
r12 := p.AddRun();
r12.T := '' $ r[i]['pageNo'];
//fldCharType
r13 := p.AddRun();
r13.fldCharType := 'end';
//fldCharType
r14 := p.AddRun();
r14.fldCharType := 'end';
if r[i]['Level']+1 = UpperHeadingLevel then Begin //第一级标题，设置为粗体
p.Format.rPr.Bold := true;
r4.rPr.Bold := true;
r5.rPr.Bold := true;
r6.rPr.Bold := true;
r7.rPr.Bold := true;
r8.rPr.Bold := true;
//r9.rPr.Bold := true;
r10.rPr.Bold := true;
//r11.rPr.Bold := true;
r12.Font.Bold := true;
//r13.rPr.Bold := true;
r14.rPr.Bold := true;
End;
_AddStdContent(p);
End;
End;
///更新目录
Function UpdatePageNumbers();
Begin
End;
Function Marshal();
Begin
return impl_.Marshal();
End;
Property Format read readFormat;
Function readFormat();
Begin
return impl_.stdPr;
End;
Property EndFormat read readEndFormat;
Function readEndFormat();
Begin
return impl_.stdEndPr;
End;
Property Font read readFont;
Function readFont();
Begin
return impl_.stdPr.rPr;
End;
Function _AddStdContent(o);
Begin
impl_.SdtContent.NewChildNode( array("field":"", "name":"w:p", "obj":o, "attrEx":"", "nodeType":"") );
End;
Function _GetStyle(level);
Begin
styleName := 'Tinysoft目录 ' $ (level + 1);
style := docx_.StyleObject().GetStyle(styleName);
if not ifObj(style) then Begin
style := TOfficeObj('TDocxStyle');
style.wType := 'paragraph';
style.CustomStyle := 1;
style.Name := styleName;
style.uiPriority := 0;
style.pPr.LeftChars := 200 * level;
style.rPr.Size := 20;
style.rPr.SzCs := 20;
docx_.StyleObject().AddStyle(style, 'TsToc' $ (level + 1));
End;
return style.StyleId;
End;
Function _GetBookMarkId(p);
Begin
node := p.node_.FirstChildElement('w:bookmarkStart');
if ifObj(node) then
return node.GetAttribute('w:name');
bookMarkID := docx_.Document().GetBookMarkID();
return p.AddBookMark();
End;
Function _CheckNodes(name);
Begin
z := docx_.ZipObject();
xml := z.Get('word/' + name);
if not ifObj(xml) then Begin
path := docx_.GetPath();
if path[1] = '/' then Begin
fName := path + '/funcext/TSOffice/template/' + name;
End
else Begin
fName := path + '\\funcext\\TSOffice\\template\\' + name;
End;
if not ReadFile(rwraw(), '', fName, 0, 100 * 1024, xmlData) then
return;
z.Add('word/' + name, xmlData);
rels := 'word/_rels/document.xml.rels';
relsObj := z.Get(rels);
[rId, target] := class(xlsxXml).FindRelationshipRid(relsObj, '');
rId ++;
if name = 'endnotes.xml' then Begin
class(xlsxXml).AddRelationshipRid(relsObj, name, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/endnotes', 'rId' $ rId);
contentType := z.Get('[Content_Types].xml');
class(xlsxXml).AddOverrideContentType(contentType, '/word/' + name, 'application/vnd.openxmlformats-officedocument.wordprocessingml.endnotes+xml');
End
else if name = 'footnotes.xml' then Begin
class(xlsxXml).AddRelationshipRid(relsObj, name, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/footnotes', 'rId' $ rId);
contentType := z.Get('[Content_Types].xml');
class(xlsxXml).AddOverrideContentType(contentType, '/word/' + name, 'application/vnd.openxmlformats-officedocument.wordprocessingml.footnotes+xml');
End;
End;
End;
docx_;
node_;
impl_;
End;
funcext/TSOffice/document/docxDocument.tsf
+53
View File
@@ -0,0 +1,53 @@
Type docxDocument = Class
/// word/document.xml对象
///缺省构造函数
Function Create(z,xml); overload;
Begin
zipfile_ := z;
xml_ := xml;
document_ := zipfile_.Get('word/document.xml');
root_ := document_.FirstChildElement('w:document');
bodyNode_ := root_.FirstChildElement('w:body');
body_ := TOfficeObj('TwBody');
body_.InitNode(bodyNode_);
body_.zipfile_ := z;
body_.document_ := self;
bookmarkid_ := -1;
End;
Function Body();
Begin
return body_;
End;
Function GetBookMarkID();
Begin
if bookmarkid_ < 0 then Begin
bookmarkid_ := 0;
p := body_.node_.FirstChildElement('w:p');
while ifObj(p) do Begin
markStart := p.FirstChildElement('w:bookmarkStart');
if ifObj(markStart) then Begin
id := markStart.GetAttribute('w:id');
if ifstring(id) then Begin
iVal := strtoint(id);
if bookmarkid_ <= iVal then
bookmarkid_ := iVal + 1;
End;
End;
p := p.NextElement('w:p');
End;
End
else
bookmarkid_++;
return bookmarkid_;
End;
private
xml_;
root_;//w:document
bodyNode_;//w:body
body_;
document_;
bookmarkid_;
End;
funcext/TSOffice/template/default.docx
BIN
View File
Binary file not shown.
funcext/TSOffice/default.xlsx → funcext/TSOffice/template/default.xlsx
View File
funcext/TSOffice/template/faq.txt
+36
View File
@@ -0,0 +1,36 @@
*如何读取属性值？
对象的Value()函数可以获取属性值，例如：
★读取段落对象文字大小：
size := paragraph.Font.Value('Size');
★读取段落对象StyleID（段落格式ID）：
styleId := paragraph.Format.Value('StyleId');
★读取段落对象numId（数字编号ID）：
numId := paragraph.Format.NumPr.Value('numId');
*如何修改属性值？
Apply()函数可以修改属性值，例如：
★修改段落对象文字大小：
paragraph.Font.Size := 32;
paragraph.Apply();
*如何设置段落的项目编号？
★推荐先获取文档中已有的项目符号numId；再设置新段落的项目编号：
numId := oldParagraph.Format.NumPr.Value('numId'); //获取已有段落项目编号ID
newParagraph.Format.NumPr.ID := numID; //设置新段落numID
newParagraph.Format.NumPr.Level := numID; //设置项目编号级别
newParagraph.Apply();
★docx.Numberings()可以获取文档中已有的TNumberId对象列表，但编程的角度理解项目编码样式比较麻烦。
★docx.NumberingObject()（TNumbering对象），可以用户自己插入项目编码（innerXml串或自定义TNumberId对象）。
★系统默认提供的样式：
numId := docx.NumberingObject().NumberId('SingleLevel', 'decimal'); //数字型一级样式[如：1、]
numId := docx.NumberingObject().NumberId('SingleLevel', 'chinese'); //中文型一级样式[如：一、]
numId := docx.NumberingObject().NumberId('multilevel', 'decimal'); //数字型多级样式[如：1.1.1]
numId := docx.NumberingObject().NumberId('bullet', index); //项目编号，index取值0-6
*如何设置段落的样式？
★推荐先获取文档中已有的段落样式；再设置新段落的样式：
styleId := oldParagraph.Format.Value('StyleId'); //获取已有段落StyleId
newParagraph.Format.StyleId := StyleId; //设置新段落StyleId
newParagraph.Apply();
★docx.StyleObject()（TDocxStyles对象），可以用户自己插入段落样式（innerXml串或自定义TDocxStyle对象）。
funcext/TSOffice/template/numbering/bullet0.xml
+17
View File
@@ -0,0 +1,17 @@
<w:abstractNum w:abstractNumId="0">
<w:nsid w:val="72D8F0C1" />
<w:multiLevelType w:val="singleLevel" />
<w:tmpl w:val="72D8F0C1" />
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="bullet" />
<w:lvlText w:val="" />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="420" w:hanging="420" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings" />
</w:rPr>
</w:lvl>
</w:abstractNum>
funcext/TSOffice/template/numbering/bullet1.xml
+17
View File
@@ -0,0 +1,17 @@
<w:abstractNum w:abstractNumId="1">
<w:nsid w:val="72D8F0C2" />
<w:multiLevelType w:val="singleLevel" />
<w:tmpl w:val="72D8F0C2" />
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="bullet" />
<w:lvlText w:val="" />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="420" w:hanging="420" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings" />
</w:rPr>
</w:lvl>
</w:abstractNum>
funcext/TSOffice/template/numbering/bullet2.xml
+17
View File
@@ -0,0 +1,17 @@
<w:abstractNum w:abstractNumId="2">
<w:nsid w:val="72D8F0C3" />
<w:multiLevelType w:val="singleLevel" />
<w:tmpl w:val="72D8F0C3" />
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="bullet" />
<w:lvlText w:val="" />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="420" w:hanging="420" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings" />
</w:rPr>
</w:lvl>
</w:abstractNum>
funcext/TSOffice/template/numbering/bullet3.xml
+17
View File
@@ -0,0 +1,17 @@
<w:abstractNum w:abstractNumId="3">
<w:nsid w:val="72D8F0C4" />
<w:multiLevelType w:val="singleLevel" />
<w:tmpl w:val="72D8F0C4" />
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="bullet" />
<w:lvlText w:val="" />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="420" w:hanging="420" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings" />
</w:rPr>
</w:lvl>
</w:abstractNum>
funcext/TSOffice/template/numbering/bullet4.xml
+17
View File
@@ -0,0 +1,17 @@
<w:abstractNum w:abstractNumId="4">
<w:nsid w:val="72D8F0C5" />
<w:multiLevelType w:val="singleLevel" />
<w:tmpl w:val="72D8F0C5" />
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="bullet" />
<w:lvlText w:val="" />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="420" w:hanging="420" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings" />
</w:rPr>
</w:lvl>
</w:abstractNum>
funcext/TSOffice/template/numbering/bullet5.xml
+17
View File
@@ -0,0 +1,17 @@
<w:abstractNum w:abstractNumId="5">
<w:nsid w:val="72D8F0C6" />
<w:multiLevelType w:val="singleLevel" />
<w:tmpl w:val="72D8F0C6" />
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="bullet" />
<w:lvlText w:val="" />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="420" w:hanging="420" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings" />
</w:rPr>
</w:lvl>
</w:abstractNum>
funcext/TSOffice/template/numbering/bullet6.xml
+17
View File
@@ -0,0 +1,17 @@
<w:abstractNum w:abstractNumId="6">
<w:nsid w:val="72D8F0C7" />
<w:multiLevelType w:val="singleLevel" />
<w:tmpl w:val="72D8F0C7" />
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="bullet" />
<w:lvlText w:val="" />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="420" w:hanging="420" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings" />
</w:rPr>
</w:lvl>
</w:abstractNum>
funcext/TSOffice/template/numbering/multilevel-decimal.xml
+113
View File
@@ -0,0 +1,113 @@
<w:abstractNum w:abstractNumId="7" w15:restartNumberingAfterBreak="0">
<w:nsid w:val="72D8F0C9" />
<w:multiLevelType w:val="multilevel" />
<w:tmpl w:val="72D8F0C9" />
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="decimal" />
<w:lvlText w:val="%1." />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="425" w:hanging="425" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" />
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="1" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="decimal" />
<w:lvlText w:val="%1.%2." />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="567" w:hanging="567" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="宋体" w:hAnsi="宋体" w:eastAsia="宋体" w:cs="宋体" />
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="2" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="decimal" />
<w:lvlText w:val="%1.%2.%3." />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="709" w:hanging="709" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" />
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="3" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="decimal" />
<w:lvlText w:val="%1.%2.%3.%4." />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="850" w:hanging="850" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" />
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="4" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="decimal" />
<w:lvlText w:val="%1.%2.%3.%4.%5." />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="991" w:hanging="991" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" />
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="5" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="decimal" />
<w:lvlText w:val="%1.%2.%3.%4.%5.%6." />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="1134" w:hanging="1134" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" />
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="6" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="decimal" />
<w:lvlText w:val="%1.%2.%3.%4.%5.%6.%7." />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="1275" w:hanging="1275" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" />
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="7" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="decimal" />
<w:lvlText w:val="%1.%2.%3.%4.%5.%6.%7.%8." />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="1418" w:hanging="1418" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" />
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="8" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="decimal" />
<w:lvlText w:val="%1.%2.%3.%4.%5.%6.%7.%8.%9." />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="1558" w:hanging="1558" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" />
</w:rPr>
</w:lvl>
</w:abstractNum>
funcext/TSOffice/template/numbering/numbering.xml
+271
View File
@@ -0,0 +1,271 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<w:numbering xmlns:wpc="http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas" xmlns:cx="http://schemas.microsoft.com/office/drawing/2014/chartex" xmlns:cx1="http://schemas.microsoft.com/office/drawing/2015/9/8/chartex" xmlns:cx2="http://schemas.microsoft.com/office/drawing/2015/10/21/chartex" xmlns:cx3="http://schemas.microsoft.com/office/drawing/2016/5/9/chartex" xmlns:cx4="http://schemas.microsoft.com/office/drawing/2016/5/10/chartex" xmlns:cx5="http://schemas.microsoft.com/office/drawing/2016/5/11/chartex" xmlns:cx6="http://schemas.microsoft.com/office/drawing/2016/5/12/chartex" xmlns:cx7="http://schemas.microsoft.com/office/drawing/2016/5/13/chartex" xmlns:cx8="http://schemas.microsoft.com/office/drawing/2016/5/14/chartex" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:aink="http://schemas.microsoft.com/office/drawing/2016/ink" xmlns:am3d="http://schemas.microsoft.com/office/drawing/2017/model3d" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:oel="http://schemas.microsoft.com/office/2019/extlst" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:m="http://schemas.openxmlformats.org/officeDocument/2006/math" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:wp14="http://schemas.microsoft.com/office/word/2010/wordprocessingDrawing" xmlns:wp="http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawing" xmlns:w10="urn:schemas-microsoft-com:office:word" xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main" xmlns:w14="http://schemas.microsoft.com/office/word/2010/wordml" xmlns:w15="http://schemas.microsoft.com/office/word/2012/wordml" xmlns:w16cex="http://schemas.microsoft.com/office/word/2018/wordml/cex" xmlns:w16cid="http://schemas.microsoft.com/office/word/2016/wordml/cid" xmlns:w16="http://schemas.microsoft.com/office/word/2018/wordml" xmlns:w16sdtdh="http://schemas.microsoft.com/office/word/2020/wordml/sdtdatahash" xmlns:w16se="http://schemas.microsoft.com/office/word/2015/wordml/symex" xmlns:wpg="http://schemas.microsoft.com/office/word/2010/wordprocessingGroup" xmlns:wpi="http://schemas.microsoft.com/office/word/2010/wordprocessingInk" xmlns:wne="http://schemas.microsoft.com/office/word/2006/wordml" xmlns:wps="http://schemas.microsoft.com/office/word/2010/wordprocessingShape" mc:Ignorable="w14 w15 w16se w16cid w16 w16cex w16sdtdh wp14">
<w:abstractNum w:abstractNumId="0">
<w:nsid w:val="72D8F0C1"/>
<w:multiLevelType w:val="singleLevel"/>
<w:tmpl w:val="72D8F0C1"/>
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="bullet"/>
<w:lvlText w:val=""/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="420" w:hanging="420"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings"/>
</w:rPr>
</w:lvl>
</w:abstractNum>
<w:abstractNum w:abstractNumId="1">
<w:nsid w:val="72D8F0C2"/>
<w:multiLevelType w:val="singleLevel"/>
<w:tmpl w:val="72D8F0C2"/>
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="bullet"/>
<w:lvlText w:val=""/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="420" w:hanging="420"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings"/>
</w:rPr>
</w:lvl>
</w:abstractNum>
<w:abstractNum w:abstractNumId="2">
<w:nsid w:val="72D8F0C3"/>
<w:multiLevelType w:val="singleLevel"/>
<w:tmpl w:val="72D8F0C3"/>
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="bullet"/>
<w:lvlText w:val=""/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="420" w:hanging="420"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings"/>
</w:rPr>
</w:lvl>
</w:abstractNum>
<w:abstractNum w:abstractNumId="3">
<w:nsid w:val="72D8F0C4"/>
<w:multiLevelType w:val="singleLevel"/>
<w:tmpl w:val="72D8F0C4"/>
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="bullet"/>
<w:lvlText w:val=""/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="420" w:hanging="420"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings"/>
</w:rPr>
</w:lvl>
</w:abstractNum>
<w:abstractNum w:abstractNumId="4">
<w:nsid w:val="72D8F0C5"/>
<w:multiLevelType w:val="singleLevel"/>
<w:tmpl w:val="72D8F0C5"/>
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="bullet"/>
<w:lvlText w:val=""/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="420" w:hanging="420"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings"/>
</w:rPr>
</w:lvl>
</w:abstractNum>
<w:abstractNum w:abstractNumId="5">
<w:nsid w:val="72D8F0C6"/>
<w:multiLevelType w:val="singleLevel"/>
<w:tmpl w:val="72D8F0C6"/>
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="bullet"/>
<w:lvlText w:val=""/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="420" w:hanging="420"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings"/>
</w:rPr>
</w:lvl>
</w:abstractNum>
<w:abstractNum w:abstractNumId="6">
<w:nsid w:val="72D8F0C7"/>
<w:multiLevelType w:val="singleLevel"/>
<w:tmpl w:val="72D8F0C7"/>
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="bullet"/>
<w:lvlText w:val=""/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="420" w:hanging="420"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default" w:ascii="Wingdings" w:hAnsi="Wingdings"/>
</w:rPr>
</w:lvl>
</w:abstractNum>
<w:abstractNum w:abstractNumId="7" w15:restartNumberingAfterBreak="0">
<w:nsid w:val="72D8F0C9"/>
<w:multiLevelType w:val="multilevel"/>
<w:tmpl w:val="72D8F0C9"/>
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="decimal"/>
<w:lvlText w:val="%1."/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="425" w:hanging="425"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default"/>
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="1" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="decimal"/>
<w:lvlText w:val="%1.%2."/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="850" w:hanging="453"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default"/>
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="2" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="decimal"/>
<w:lvlText w:val="%1.%2.%3."/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="1508" w:hanging="708"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default"/>
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="3" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="decimal"/>
<w:lvlText w:val="%1.%2.%3.%4."/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="2053" w:hanging="853"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default"/>
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="4" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="decimal"/>
<w:lvlText w:val="%1.%2.%3.%4.%5."/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="2495" w:hanging="895"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default"/>
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="5" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="decimal"/>
<w:lvlText w:val="%1.%2.%3.%4.%5.%6."/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="3136" w:hanging="1136"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default"/>
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="6" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="decimal"/>
<w:lvlText w:val="%1.%2.%3.%4.%5.%6.%7."/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="3673" w:hanging="1273"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default"/>
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="7" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="decimal"/>
<w:lvlText w:val="%1.%2.%3.%4.%5.%6.%7.%8."/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="4218" w:hanging="1418"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default"/>
</w:rPr>
</w:lvl>
<w:lvl w:ilvl="8" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="decimal"/>
<w:lvlText w:val="%1.%2.%3.%4.%5.%6.%7.%8.%9."/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="4648" w:hanging="1448"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="default"/>
</w:rPr>
</w:lvl>
</w:abstractNum>
<w:abstractNum w:abstractNumId="8" w15:restartNumberingAfterBreak="0">
<w:nsid w:val="72D8F0CA"/>
<w:multiLevelType w:val="singleLevel"/>
<w:tmpl w:val="72D8F0CA"/>
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="chineseCounting"/>
<w:suff w:val="nothing"/>
<w:lvlText w:val="%1、"/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="0" w:firstLine="420"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="eastAsia"/>
</w:rPr>
</w:lvl>
</w:abstractNum>
<w:abstractNum w:abstractNumId="9" w15:restartNumberingAfterBreak="0">
<w:nsid w:val="72D8F0CB"/>
<w:multiLevelType w:val="singleLevel"/>
<w:tmpl w:val="72D8F0CB"/>
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1"/>
<w:numFmt w:val="decimal"/>
<w:suff w:val="nothing"/>
<w:lvlText w:val="%1、"/>
<w:lvlJc w:val="left"/>
<w:pPr>
<w:ind w:left="0" w:firstLine="420"/>
</w:pPr>
<w:rPr>
<w:rFonts w:hint="eastAsia"/>
</w:rPr>
</w:lvl>
</w:abstractNum>
</w:numbering>
funcext/TSOffice/template/numbering/singleLevel-chineseCounting.xml
+18
View File
@@ -0,0 +1,18 @@
<w:abstractNum w:abstractNumId="8" w15:restartNumberingAfterBreak="0">
<w:nsid w:val="72D8F0CA" />
<w:multiLevelType w:val="singleLevel" />
<w:tmpl w:val="72D8F0CA" />
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="chineseCounting" />
<w:suff w:val="nothing" />
<w:lvlText w:val="%1、" />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="0" w:firstLine="420" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="eastAsia" />
</w:rPr>
</w:lvl>
</w:abstractNum>
funcext/TSOffice/template/numbering/singleLevel-decimal.xml
+18
View File
@@ -0,0 +1,18 @@
<w:abstractNum w:abstractNumId="9" w15:restartNumberingAfterBreak="0">
<w:nsid w:val="72D8F0CB" />
<w:multiLevelType w:val="singleLevel" />
<w:tmpl w:val="72D8F0CB" />
<w:lvl w:ilvl="0" w:tentative="0">
<w:start w:val="1" />
<w:numFmt w:val="decimal" />
<w:suff w:val="nothing" />
<w:lvlText w:val="%1、" />
<w:lvlJc w:val="left" />
<w:pPr>
<w:ind w:left="0" w:firstLine="420" />
</w:pPr>
<w:rPr>
<w:rFonts w:hint="eastAsia" />
</w:rPr>
</w:lvl>
</w:abstractNum>
funcext/TSOffice/template/tinysoft.gif
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.5 KiB

funcext/TSOffice/template/wStyle/Heading1.xml
+23
View File
@@ -0,0 +1,23 @@
<w:style w:type="paragraph" w:styleId="Heading1">
<w:name w:val="heading 1" />
<w:basedOn w:val="Normal" />
<w:next w:val="Normal" />
<w:link w:val="Heading1Char" />
<w:uiPriority w:val="9" />
<w:qFormat />
<w:rsid w:val="00FC693F" />
<w:pPr>
<w:keepNext />
<w:keepLines />
<w:spacing w:before="480" w:after="0" />
<w:outlineLvl w:val="0" />
</w:pPr>
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:b />
<w:bCs />
<w:color w:val="365F91" w:themeColor="accent1" w:themeShade="BF" />
<w:sz w:val="28" />
<w:szCs w:val="28" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading1Char.xml
+15
View File
@@ -0,0 +1,15 @@
<w:style w:type="character" w:customStyle="1" w:styleId="Heading1Char">
<w:name w:val="Heading 1 Char" />
<w:basedOn w:val="DefaultParagraphFont" />
<w:link w:val="Heading1" />
<w:uiPriority w:val="9" />
<w:rsid w:val="00FC693F" />
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:b />
<w:bCs />
<w:color w:val="365F91" w:themeColor="accent1" w:themeShade="BF" />
<w:sz w:val="28" />
<w:szCs w:val="28" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading2.xml
+24
View File
@@ -0,0 +1,24 @@
<w:style w:type="paragraph" w:styleId="Heading2">
<w:name w:val="heading 2" />
<w:basedOn w:val="Normal" />
<w:next w:val="Normal" />
<w:link w:val="Heading2Char" />
<w:uiPriority w:val="9" />
<w:unhideWhenUsed />
<w:qFormat />
<w:rsid w:val="00FC693F" />
<w:pPr>
<w:keepNext />
<w:keepLines />
<w:spacing w:before="200" w:after="0" />
<w:outlineLvl w:val="1" />
</w:pPr>
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:b />
<w:bCs />
<w:color w:val="4F81BD" w:themeColor="accent1" />
<w:sz w:val="26" />
<w:szCs w:val="26" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading2Char.xml
+15
View File
@@ -0,0 +1,15 @@
<w:style w:type="character" w:customStyle="1" w:styleId="Heading2Char">
<w:name w:val="Heading 2 Char" />
<w:basedOn w:val="DefaultParagraphFont" />
<w:link w:val="Heading2" />
<w:uiPriority w:val="9" />
<w:rsid w:val="00FC693F" />
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:b />
<w:bCs />
<w:color w:val="4F81BD" w:themeColor="accent1" />
<w:sz w:val="26" />
<w:szCs w:val="26" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading3.xml
+22
View File
@@ -0,0 +1,22 @@
<w:style w:type="paragraph" w:styleId="Heading3">
<w:name w:val="heading 3" />
<w:basedOn w:val="Normal" />
<w:next w:val="Normal" />
<w:link w:val="Heading3Char" />
<w:uiPriority w:val="9" />
<w:unhideWhenUsed />
<w:qFormat />
<w:rsid w:val="00FC693F" />
<w:pPr>
<w:keepNext />
<w:keepLines />
<w:spacing w:before="200" w:after="0" />
<w:outlineLvl w:val="2" />
</w:pPr>
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:b />
<w:bCs />
<w:color w:val="4F81BD" w:themeColor="accent1" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading3Char.xml
+13
View File
@@ -0,0 +1,13 @@
<w:style w:type="character" w:customStyle="1" w:styleId="Heading3Char">
<w:name w:val="Heading 3 Char" />
<w:basedOn w:val="DefaultParagraphFont" />
<w:link w:val="Heading3" />
<w:uiPriority w:val="9" />
<w:rsid w:val="00FC693F" />
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:b />
<w:bCs />
<w:color w:val="4F81BD" w:themeColor="accent1" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading4.xml
+25
View File
@@ -0,0 +1,25 @@
<w:style w:type="paragraph" w:styleId="Heading4">
<w:name w:val="heading 4" />
<w:basedOn w:val="Normal" />
<w:next w:val="Normal" />
<w:link w:val="Heading4Char" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:unhideWhenUsed />
<w:qFormat />
<w:rsid w:val="00FC693F" />
<w:pPr>
<w:keepNext />
<w:keepLines />
<w:spacing w:before="200" w:after="0" />
<w:outlineLvl w:val="3" />
</w:pPr>
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:b />
<w:bCs />
<w:i />
<w:iCs />
<w:color w:val="4F81BD" w:themeColor="accent1" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading4Char.xml
+16
View File
@@ -0,0 +1,16 @@
<w:style w:type="character" w:customStyle="1" w:styleId="Heading4Char">
<w:name w:val="Heading 4 Char" />
<w:basedOn w:val="DefaultParagraphFont" />
<w:link w:val="Heading4" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:rsid w:val="00FC693F" />
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:b />
<w:bCs />
<w:i />
<w:iCs />
<w:color w:val="4F81BD" w:themeColor="accent1" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading5.xml
+21
View File
@@ -0,0 +1,21 @@
<w:style w:type="paragraph" w:styleId="Heading5">
<w:name w:val="heading 5" />
<w:basedOn w:val="Normal" />
<w:next w:val="Normal" />
<w:link w:val="Heading5Char" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:unhideWhenUsed />
<w:qFormat />
<w:rsid w:val="00FC693F" />
<w:pPr>
<w:keepNext />
<w:keepLines />
<w:spacing w:before="200" w:after="0" />
<w:outlineLvl w:val="4" />
</w:pPr>
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:color w:val="243F60" w:themeColor="accent1" w:themeShade="7F" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading5Char.xml
+12
View File
@@ -0,0 +1,12 @@
<w:style w:type="character" w:customStyle="1" w:styleId="Heading5Char">
<w:name w:val="Heading 5 Char" />
<w:basedOn w:val="DefaultParagraphFont" />
<w:link w:val="Heading5" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:rsid w:val="00FC693F" />
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:color w:val="243F60" w:themeColor="accent1" w:themeShade="7F" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading6.xml
+23
View File
@@ -0,0 +1,23 @@
<w:style w:type="paragraph" w:styleId="Heading6">
<w:name w:val="heading 6" />
<w:basedOn w:val="Normal" />
<w:next w:val="Normal" />
<w:link w:val="Heading6Char" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:unhideWhenUsed />
<w:qFormat />
<w:rsid w:val="00FC693F" />
<w:pPr>
<w:keepNext />
<w:keepLines />
<w:spacing w:before="200" w:after="0" />
<w:outlineLvl w:val="5" />
</w:pPr>
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:i />
<w:iCs />
<w:color w:val="243F60" w:themeColor="accent1" w:themeShade="7F" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading6Char.xml
+14
View File
@@ -0,0 +1,14 @@
<w:style w:type="character" w:customStyle="1" w:styleId="Heading6Char">
<w:name w:val="Heading 6 Char" />
<w:basedOn w:val="DefaultParagraphFont" />
<w:link w:val="Heading6" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:rsid w:val="00FC693F" />
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:i />
<w:iCs />
<w:color w:val="243F60" w:themeColor="accent1" w:themeShade="7F" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading7.xml
+23
View File
@@ -0,0 +1,23 @@
<w:style w:type="paragraph" w:styleId="Heading7">
<w:name w:val="heading 7" />
<w:basedOn w:val="Normal" />
<w:next w:val="Normal" />
<w:link w:val="Heading7Char" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:unhideWhenUsed />
<w:qFormat />
<w:rsid w:val="00FC693F" />
<w:pPr>
<w:keepNext />
<w:keepLines />
<w:spacing w:before="200" w:after="0" />
<w:outlineLvl w:val="6" />
</w:pPr>
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:i />
<w:iCs />
<w:color w:val="404040" w:themeColor="text1" w:themeTint="BF" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading7Char.xml
+14
View File
@@ -0,0 +1,14 @@
<w:style w:type="character" w:customStyle="1" w:styleId="Heading7Char">
<w:name w:val="Heading 7 Char" />
<w:basedOn w:val="DefaultParagraphFont" />
<w:link w:val="Heading7" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:rsid w:val="00FC693F" />
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:i />
<w:iCs />
<w:color w:val="404040" w:themeColor="text1" w:themeTint="BF" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading8.xml
+23
View File
@@ -0,0 +1,23 @@
<w:style w:type="paragraph" w:styleId="Heading8">
<w:name w:val="heading 8" />
<w:basedOn w:val="Normal" />
<w:next w:val="Normal" />
<w:link w:val="Heading8Char" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:unhideWhenUsed />
<w:qFormat />
<w:rsid w:val="00FC693F" />
<w:pPr>
<w:keepNext />
<w:keepLines />
<w:spacing w:before="200" w:after="0" />
<w:outlineLvl w:val="7" />
</w:pPr>
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:color w:val="4F81BD" w:themeColor="accent1" />
<w:sz w:val="20" />
<w:szCs w:val="20" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading8Char.xml
+14
View File
@@ -0,0 +1,14 @@
<w:style w:type="character" w:customStyle="1" w:styleId="Heading8Char">
<w:name w:val="Heading 8 Char" />
<w:basedOn w:val="DefaultParagraphFont" />
<w:link w:val="Heading8" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:rsid w:val="00FC693F" />
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:color w:val="4F81BD" w:themeColor="accent1" />
<w:sz w:val="20" />
<w:szCs w:val="20" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading9.xml
+25
View File
@@ -0,0 +1,25 @@
<w:style w:type="paragraph" w:styleId="Heading9">
<w:name w:val="heading 9" />
<w:basedOn w:val="Normal" />
<w:next w:val="Normal" />
<w:link w:val="Heading9Char" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:unhideWhenUsed />
<w:qFormat />
<w:rsid w:val="00FC693F" />
<w:pPr>
<w:keepNext />
<w:keepLines />
<w:spacing w:before="200" w:after="0" />
<w:outlineLvl w:val="8" />
</w:pPr>
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:i />
<w:iCs />
<w:color w:val="404040" w:themeColor="text1" w:themeTint="BF" />
<w:sz w:val="20" />
<w:szCs w:val="20" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Heading9Char.xml
+16
View File
@@ -0,0 +1,16 @@
<w:style w:type="character" w:customStyle="1" w:styleId="Heading9Char">
<w:name w:val="Heading 9 Char" />
<w:basedOn w:val="DefaultParagraphFont" />
<w:link w:val="Heading9" />
<w:uiPriority w:val="9" />
<w:semiHidden />
<w:rsid w:val="00FC693F" />
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:i />
<w:iCs />
<w:color w:val="404040" w:themeColor="text1" w:themeTint="BF" />
<w:sz w:val="20" />
<w:szCs w:val="20" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/Title.xml
+24
View File
@@ -0,0 +1,24 @@
<w:style w:type="paragraph" w:styleId="Title">
<w:name w:val="Title" />
<w:basedOn w:val="Normal" />
<w:next w:val="Normal" />
<w:link w:val="TitleChar" />
<w:uiPriority w:val="10" />
<w:qFormat />
<w:rsid w:val="00FC693F" />
<w:pPr>
<w:pBdr>
<w:bottom w:val="single" w:sz="8" w:space="4" w:color="4F81BD" w:themeColor="accent1" />
</w:pBdr>
<w:spacing w:after="300" w:line="240" w:lineRule="auto" />
<w:contextualSpacing />
</w:pPr>
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:color w:val="17365D" w:themeColor="text2" w:themeShade="BF" />
<w:spacing w:val="5" />
<w:kern w:val="28" />
<w:sz w:val="52" />
<w:szCs w:val="52" />
</w:rPr>
</w:style>
funcext/TSOffice/template/wStyle/TitleChar.xml
+15
View File
@@ -0,0 +1,15 @@
<w:style w:type="character" w:customStyle="1" w:styleId="TitleChar">
<w:name w:val="Title Char" />
<w:basedOn w:val="DefaultParagraphFont" />
<w:link w:val="Title" />
<w:uiPriority w:val="10" />
<w:rsid w:val="00FC693F" />
<w:rPr>
<w:rFonts w:asciiTheme="majorHAnsi" w:eastAsiaTheme="majorEastAsia" w:hAnsiTheme="majorHAnsi" w:cstheme="majorBidi" />
<w:color w:val="17365D" w:themeColor="text2" w:themeShade="BF" />
<w:spacing w:val="5" />
<w:kern w:val="28" />
<w:sz w:val="52" />
<w:szCs w:val="52" />
</w:rPr>
</w:style>
funcext/TSOffice/worksheet/xlsxAppProperty.tsf
-50
View File
@@ -1,50 +0,0 @@
Type xlsxAppProperty = Class
Function Create(file); overload;
Begin
file_ := file;
End;
Function SetAppProps(appProps);
Begin
app_xml := file_.WorkBook().GetXmlFileObj('docProps/app.xml');
node := app_xml.FirstChildElement('Properties');
if not ifObj(node) then return array(1, "node::Properties can't be found");
children_arr := appProps.Marshal()['children'];
for i:=0 to length(children_arr)-1 do
Begin
if children_arr[i]['name'] in array('ScaleCrop', 'LinksUpToDate', 'SharedDoc', 'HyperlinksChanged') then
Begin
children_arr[i]['children'][0]['value'] := children_arr[i]['children'][0]['value'] ? "true" : "false";
End
delete_node := node.FirstChildElement(children_arr[i]['name']);
node.InsertAfterChild(delete_node, children_arr[i]);
node.DeleteChild(delete_node);
End
return array(0, '');
End;
Function GetAppProps();
Begin
app_xml := file_.WorkBook().GetXmlFileObj('docProps/app.xml');
node := app_xml.FirstChildElement('Properties');
marshal := node.Marshal()[0]['children'];
reindex(marshal, marshal[:,'name']);
app_props := TOfficeObj('TAppProperty');
app_props.Application := marshal['Application']['children'][0]['value'];
app_props.DocSecurity := marshal['DocSecurity']['children'][0]['value'];
app_props.ScaleCrop := marshal['DocSecurity']['children'][0]['value'] = "false" ? 0 : 1;
app_props.Company := marshal['Company']['children'][0]['value'];
app_props.LinksUpToDate := marshal['LinksUpToDate']['children'][0]['value'] = "false" ? 0 : 1;
app_props.SharedDoc := marshal['SharedDoc']['children'][0]['value'] = "false" ? 0 : 1;
app_props.AppVersion := marshal['AppVersion']['children'][0]['value'];
return array(0, app_props);
End
class Function NewObject(file);
Begin
return new xlsxAppProperty(file);
End;
private
file_; //TSExcelFile对象
End;
funcext/TSOffice/worksheet/xlsxChart.tsf
+29 -989
View File
File diff suppressed because it is too large Load Diff
funcext/TSOffice/worksheet/xlsxComment.tsf
+6 -5
View File
@@ -12,7 +12,7 @@ Type xlsxComment = Class
commentId_ := excel_.WorkBook().GetFilesCount('xl/comments') + 1;
commentFileName_ := '../comments' + inttostr(commentId_) + '.xml';
xlCommentFileName := 'xl/comments' + inttostr(commentId_) + '.xml';
excel_.Zip().Add(xlCommentFileName, excel_.XmlObj().XmlHeader() + '<comments xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"></comments>');
excel_.Zip().Add(xlCommentFileName, class(xlsxXml).XmlHeader() + '<comments xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"></comments>');
excel_.WorkBook().AddRelationshipRid(relsfile, commentFileName_, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/comments', rId_);
rid ++;
drawingVML_ := '../drawings/vmlDrawing' + inttostr(commentId_) + '.vml';
@@ -33,8 +33,9 @@ xmlns:v="urn:schemas-microsoft-com:vml">
</v:shapetype>
</xml>');
excel_.WorkBook().AddRelationshipRid(relsfile, drawingVML_, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/vmlDrawing', 'rId' + inttostr(rid));
excel_.WorkBook().AddContentType('application/vnd.openxmlformats-officedocument.spreadsheetml.comments+xml', '/' + xlCommentFileName);
excel_.WorkBook().AddContentVml();
content_xml := excel_.WorkBook().GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
class(xlsxXml).AddOverrideContentType(content_xml, '/' + xlCommentFileName, 'application/vnd.openxmlformats-officedocument.spreadsheetml.comments+xml');
class(xlsxXml).AddDefaultContentType(content_xml, 'vml', 'application/vnd.openxmlformats-officedocument.vmlDrawing');
sheetXml := excel_.WorkBook().GetSheetXmlfile(sheetName_).FirstChildElement('worksheet');
legacy := sheetXml.FirstChildElement('legacyDrawing');
@@ -78,7 +79,7 @@ xmlns:v="urn:schemas-microsoft-com:vml">
commentXmlFile_.FirstChildElement('comments').FirstChildElement('authors').InsertEndChild('element', 'author', author);//添加作者
authors_[author] := authorId;
End;
if not ifstring(comment) then return array(1, 'comment is not a string');
if not ifstring(comment) then return 'comment is not a string';
comments := TOfficeObj('TComments');
comments.Ref := cell;
comments.AuthorId := authorId;
@@ -129,7 +130,7 @@ xmlns:v="urn:schemas-microsoft-com:vml">
//xmlObj.Print;
End;
End;
return array(0, 'ok');
return 'ok';
End;
Function getComment(cell);
funcext/TSOffice/worksheet/xlsxDocProps.tsf
+49
View File
@@ -0,0 +1,49 @@
Type xlsxDocProps = Class
Function Create(file); overload;
Begin
excel_ := file;
End;
Function SetAppProps(appProps);
Begin
app_xml := excel_.WorkBook().GetXmlFileObj('docProps/app.xml');
node := app_xml.FirstChildElement('Properties');
if not ifObj(node) then return "node::Properties can't be found";
marshal := appProps.Marshal();
class(xlsxXml).UpdateNode(node, marshal['attributes'], marshal['children']);
End;
Function GetAppProps();
Begin
app_xml := excel_.WorkBook().GetXmlFileObj('docProps/app.xml');
node := app_xml.FirstChildElement('Properties');
app_props := TOfficeObj('TAppProperty');
app_props.RootObj := node;
return app_props;
End
Function SetCoreProps(appProps);
Begin
core_xml := excel_.WorkBook().GetXmlFileObj('docProps/core.xml');
node := core_xml.FirstChildElement('cp:coreProperties');
marshal := appProps.Marshal();
class(xlsxXml).UpdateNode(node, marshal['attributes'], marshal['children']);
End
Function GetCoreProps();
Begin
core_xml := excel_.WorkBook().GetXmlFileObj('docProps/core.xml');
node := core_xml.FirstChildElement('cp:coreProperties');
core_props := TOfficeObj('TCoreProperty');
core_props.RootObj := node;
return core_props;
End
class Function NewObject(file);
Begin
return new xlsxDocProps(file);
End;
private
excel_; //TSExcelFile对象
End;
funcext/TSOffice/worksheet/xlsxHeaderFooter.tsf
+4
View File
@@ -22,6 +22,10 @@ Type xlsxHeaderFooter = Class
header_node := node.FirstChildElement('headerFooter');
if ifObj(header_node) then
node.DeleteChild(header_node);
page_node := node.FirstChildElement('pageMargins');
if ifObj(page_node) then
node.InsertAfterChild(page_node, headerFooter.Marshal());
else
node.InsertEndChild(headerFooter.Marshal());
End
funcext/TSOffice/worksheet/xlsxHyperLink.tsf
+19 -25
View File
@@ -17,8 +17,16 @@ Type xlsxHyperLink = Class
work_node := xmlFile_.FirstChildElement('worksheet');
hyperlinks := work_node.FirstChildElement('hyperlinks');
if not ifObj(hyperlinks) then begin
phone_node := work_node.FirstChildElement('phoneticPr');
hyperlinks := work_node.InsertAfterChild(phone_node, 'element', 'hyperlinks');
arr := array('phoneticPr', 'mergeCells', 'sheetData');
for i:=0 to length(arr)-1 do
begin
insert_node := work_node.FirstChildElement(arr[i]);
if ifObj(insert_node) then
begin
hyperlinks := work_node.InsertAfterChild(insert_node, 'element', 'hyperlinks');
break;
end
end
end;
node := hyperlinks.FirstChildElement('hyperlink');
while ifObj(node) do begin
@@ -48,38 +56,24 @@ Type xlsxHyperLink = Class
End
marshal['attributes'] := attrs;
hyperlinks.InsertEndChild(marshal);
return array(0,'ok');
End;
Function GetCellHyperLink(axis);
Begin
data := array();
hyperlinks := xmlFile_.FirstChildElement('worksheet').FirstChildElement('hyperlinks');
if not ifObj(hyperlinks) then return array(-1, 'Node::hyperlinks is not exist.');
if not ifObj(hyperlinks) then return "The cell has no hyperlink";
node := hyperlinks.FirstChildElement('hyperlink');
while ifObj(node) do begin
marshal := node.marshal()[0];
attrs := marshal['attributes'];
if attrs['ref'] = axis then
begin
link := TOfficeObj('THyperLink');
link.LinkType := ifnil(attrs['location']) ? "External" : "Location";
if not ifnil(attrs['location']) then
link.LinkUrl := attrs['location'];
else Begin
rid := attrs['r:id'];
file := 'xl/worksheets/_rels/' + ExtractFileName(LowerCase(sheetName_)) + '.xml.rels';
xmlfile := file_.WorkBook().GetXmlFileObj(file);
relnode := class(xlsxXml).FindRelationship(xmlfile, rid);
if ifObj(relnode) then link.LinkUrl := relnode.GetAttribute('Target');
End
link.Display := attrs['display'];
link.Tooltip := attrs['tooltip'];
return array(0, link);
end;
while ifObj(node) do begin
ref := node.GetAttribute('ref');
if ref = axis then
begin
link.RootObj := node;
break;
end
node := node.NextElement();
end;
return array(-2, "The cell has no hyperlink.");
return link;
End;
private
funcext/TSOffice/worksheet/xlsxImage.tsf
+145 -21
View File
@@ -4,7 +4,7 @@ Type xlsxImage = Class
Begin
excel_ := excel;
sheetName_ := sheet;
[rid_, imageFileName_, sheetFileName_, xmlRelsFile_] := excel_.WorkBook().GetRelationshipRid(sheet, '../media/image');
zipfile_ := excel.Zip();
End;
class Function NewObject(sheet, excel);
@@ -15,34 +15,158 @@ Type xlsxImage = Class
return new xlsxImage(sheet, excel);
End;
Function SetSheetBackground(pictrue);
Function SetSheetBackground(picture);
Begin
//if not ifBinary(picture.Image) or length(picture.Image) = 0 then
// raise "Invalid Image Data.";
if imageFileName_ = '' then
Begin
rid_++;
imageId := excel_.WorkBook().GetFilesCount('xl/media/') + 1;
imageName := "../media/image" + inttostr(imageId);
type := 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/image';
excel_.WorkBook().AddRelationshipRid(xmlRelsFile_, imageName, type, 'rId' + inttostr(rid_));
End
if not ifBinary(picture.Image) or length(picture.Image) = 0 then
return "Invalid Image Data.";
image_file := getImageFileName(picture);
rels_xmlfile := excel_.WorkBook().GetSheetRelsFile(sheetName_);
prefix := ReplaceStr(image_file, 'xl/', '../');
[rid, target] := class(xlsxXml).FindRelationshipRid(rels_xmlfile, prefix);
if target = '' then
begin
rid ++;
class(xlsxXml).AddRelationshipRid(rels_xmlfile, prefix, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/image', 'rId' $ rid);
end
content_xml := excel_.WorkBook().GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
class(xlsxXml).AddDefaultContentType(content_xml, 'jpeg', 'image/jpeg');
sheet_xml := excel_.WorkBook().GetSheetXmlfile(sheetName_);
node := sheet_xml.FirstChildElement('worksheet');
picture_node := node.FirstChildElement('picture');
if ifObj(picture_node) then
Begin
node.DeleteChild(picture_node);
if not ifObj(picture_node) then
begin
prev_node := class(xlsxXml).GetWorkSheetPrevNode(node, 'picture');
if ifObj(prev_node) then picture_node := node.InsertAfterChild(prev_node, 'element', 'picture');
else picture_node := node.InsertEndChild('element', 'picture');
end
picture_node.SetAttribute('r:id', 'rId' + inttostr(rid));
End
node := node.InsertEndChild('element', 'picture');
node.SetAttribute('r:id', 'rId' + inttostr(rId_));
Function AddPicture(topLeft, bottomRight, picture, format);
Begin
if not ifBinary(picture.Image) or length(picture.Image) = 0 then
return "Invalid Image Data.";
[err1, col1, row1] := excel_.CellNameToCoordinates(topLeft);
[err2, col2, row2] := excel_.CellNameToCoordinates(bottomRight);
if err1 or err2 then return 'Invalid params.';
image_target := ReplaceStr(getImageFileName(picture), 'xl/', '../');
drawing_id := excel_.WorkBook().GetSheetDrawing(sheetName_);
drawing_rels := excel_.WorkBook().GetDrawingRelsFile(drawing_id);
[rid, target] := class(xlsxXml).FindRelationshipRid(drawing_rels, image_target);
if target = '' then
begin
rid++;
class(xlsxXml).AddRelationshipRid(drawing_rels, image_target, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/image', 'rId' $ rid);
end
content_xml := excel_.WorkBook().GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
class(xlsxXml).AddDefaultContentType(content_xml, 'jpeg', 'image/jpeg');
sheet_xml := excel_.WorkBook().GetSheetXmlfile(sheetName_);
node := sheet_xml.FirstChildElement('worksheet');
drawing_node := node.FirstChildElement('drawing');
if not ifObj(drawing_node) then
begin
prev_node := class(xlsxXml).GetWorkSheetPrevNode(node, 'drawing');
if ifObj(prev_node) then drawing_node := node.InsertAfterChild(prev_node, 'element', 'drawing');
else drawing_node := node.InsertEndChild('element', 'drawing');
end
sheet_rels := excel_.WorkBook().GetSheetRelsFile(sheetName_);
drawing_file_name := '../drawings/drawing' + inttostr(drawing_id) + '.xml';
[id, target] := class(xlsxXml).FindRelationshipRid(sheet_rels, drawing_file_name);
drawing_node.SetAttribute('r:id', 'rId' + inttostr(id));
// drawingN.xml
drawing_xml := excel_.WorkBook().GetXmlFileObj('xl/drawings/drawing' $ drawing_id $ ".xml");
if not ifObj(format) then format := TOfficeObj('TPictureFormat');
o := TOfficeObj('TtwoCellAnchor');
o.EditAs := 'oneCell';
o.XFrom.Col := col1;
o.XFrom.ColOff := format.BegColOff;
o.XFrom.Row := row1;
o.XFrom.RowOff := format.BegRowOff;
o.XTo.Col := col2;
o.XTo.ColOff := format.EndColOff;
o.XTo.Row := row2;
o.XTo.RowOff := format.EndRowOff;
o.Pic.NodeName := 'xdr:pic';
o.Pic.NvPicPr.NodeName := 'xdr:nvPicPr';
o.Pic.NvPicPr.CNvPr.Name := picture.Name ? picture.Name : '';
o.Pic.NvPicPr.CNvPr.ID := class(xlsxXml).GetcNvPrID(drawing_xml);
o.Pic.NvPicPr.CNvPr.Descr := picture.Descr ? : '';
o.Pic.NvPicPr.CNvPr.ExtLst.Ext.Uri := '';
o.Pic.NvPicPr.CNvPr.ExtLst.Ext.Xmlns16 := 'http://schemas.microsoft.com/office/drawing/2014/main';
o.Pic.NvPicPr.CNvPr.Replace(array("pic:": "xdr:"));
o.Pic.NvPicPr.CNvPicPr.PicLocks := "1";
o.Pic.BlipFill.NodeName := 'xdr:blipFill';
o.Pic.BlipFill.Blip.Xmlns := "http://schemas.openxmlformats.org/officeDocument/2006/relationships";
o.Pic.BlipFill.Blip.Embed := 'rId' + inttostr(rid);
o.Pic.BlipFill.Stretch.FillRect := true;
o.Pic.SpPr.XFrm.Off.X := 0;
o.Pic.SpPr.XFrm.Off.Y := 0;
o.Pic.SpPr.XFrm.Ext.Cx := 0;
o.Pic.SpPr.XFrm.Ext.CY := 0;
o.Pic.SpPr.NodeName := 'xdr:spPr';
o.Pic.SpPr.PrstGeom.Prst := "rect";
o.Pic.SpPr.PrstGeom.AvLst := true;
drawing_xml.FirstChildElement('xdr:wsDr').InsertEndChild(o.Marshal());
End
Function DeletePicture(topLeft, bottomRight);
Begin
[err1, col1, row1] := excel_.CellNameToCoordinates(topLeft);
[err2, col2, row2] := excel_.CellNameToCoordinates(bottomRight);
if err1 or err2 then return 'Invalid params.';
drawing_id := excel_.WorkBook().GetSheetDrawing(sheetName_);
drawing_xml := excel_.WorkBook().GetXmlFileObj('xl/drawings/drawing' $ drawing_id $ ".xml");
if not ifObj(drawing_xml) then return 'drawing xml is not exist.';
wsDr_node := drawing_xml.FirstChildElement('xdr:wsDr');
node := wsDr_node.FirstChildElement('xdr:twoCellAnchor');
while ifObj(node) do
begin
from_node := node.FirstChildElement('xdr:from');
to_node := node.FirstChildElement('xdr:to');
from_col := strtoint(from_node.FirstChildElement('xdr:col').GetText());
from_row := strtoint(from_node.FirstChildElement('xdr:row').GetText());
to_col := strtoint(to_node.FirstChildElement('xdr:col').GetText());
to_row := strtoint(to_node.FirstChildElement('xdr:row').GetText());
if (col1 <= from_col and row1 <= from_row) and (col2 + 1 > to_col and row2 + 1 > to_row) then
prev := node;
node := node.NextElement();
if ifObj(prev) then wsDr_node.DeleteChild(prev);
end
End
private
Function getImageFileName(picture);
Begin
image_files := sselect ['FileName'] from zipfile_.Files() where AnsiStartsText('xl/media/image', ['FileName']) end;
image_file := '';
for i:=0 to length(image_files)-1 do
begin
if zipfile_.Diff(image_files[i], picture.Image) = 0 then
begin
image_file := image_files[i];
break;
end
end
if image_file = '' then
begin
image_count := length(image_files) + 1;
image_file := 'xl/media/image' $ image_count $ '.jpeg';
zipfile_.Add(image_file, picture.Image);
end
return image_file;
End
private
sheetName_:string; //sheet名称
sheetFileName_; //xl/worksheets/sheetN.xml
excel_;//TSExcelFile对象
xmlRelsFile_;
imageFileName_;
rid_;
zipfile_;
End;
funcext/TSOffice/worksheet/xlsxMargins.tsf
+5 -9
View File
@@ -11,22 +11,18 @@ Type xlsxMargins = Class
marshal := margins.Marshal();
work_node := xmlFile_.FirstChild('worksheet');
node := work_node.FirstChild('pageMargins');
work_node.DeleteChild(node);
prev_node := work_node.FirstChild('phoneticPr');
if ifObj(node) then work_node.DeleteChild(node);
sheet_node := work_node.FirstChild('sheetData');
phone_node := work_node.FirstChild('phoneticPr');
prev_node := ifObj(phone_node) ? phone_node : sheet_node;
work_node.InsertAfterChild(prev_node, marshal);
End;
Function GetPageMargins();
Begin
node := xmlFile_.FirstChild('worksheet').FirstChild('pageMargins');
marshal := node.Marshal()[0];
margins := TOfficeObj('tmargins');
margins.Bottom := marshal['attributes']['bottom'];
margins.Footer := marshal['attributes']['footer'];
margins.Header := marshal['attributes']['header'];
margins.Left := marshal['attributes']['left'];
margins.Right := marshal['attributes']['right'];
margins.Top := marshal['attributes']['top'];
margins.RootObj := node;
return margins;
End
funcext/TSOffice/worksheet/xlsxPageLayout.tsf
+13 -28
View File
@@ -8,45 +8,30 @@ Type xlsxPageLayout = Class
Function SetPageLayout(sheet, pageLayout);
Begin
if ifint(pageLayout.FirstPageNumber) then pageLayout.UseFirstPageNumber := True;
marshal := pageLayout.Marshal();
work_node := xmlFile_.FirstChild('worksheet');
node := work_node.FirstChild('pageSetUp');
if ifObj(node) then work_node.DeleteChild(node);
workbook_xml := file_.WorkBook().GetXmlFileObj('xl/workbook.xml');
workbook := workbook_xml.FirstChildElement('workbook').FirstChildElement('sheets').FirstChildElement('sheet');
if not ifObj(workbook) then return array(1, 'workbook error!');
while ifObj(workbook) do
Begin
sheet_name := workbook.GetAttribute('name');
if sheet_name = sheet then
Begin
rid := workbook.GetAttribute('r:id');
break;
End
workbook := workbook.NextElement();
End
if not ifnil(marshal['attributes']['firstPageNumber']) then marshal['attributes']['useFirstPageNumber'] := 1;
marshal['attributes']['r:id'] := rid;
arr := array('sheetData', 'mergeCells', 'phoneticPr', 'pageMargins');
for i:=length(arr)-1 to 0 do
begin
node := work_node.FirstChild(arr[i]);
if ifObj(node) then
begin
work_node.InsertAfterChild(node, marshal);
flag := 1;
end
end
if not flag then
work_node.InsertEndChild(marshal);
return array(0, '');
End;
Function GetPageLayout();
Begin
node := xmlFile_.FirstChild('worksheet').FirstChild('pageSetUp');
if not ifObj(node) then return array(1, '<node>: pageSetUp not found');
marshal := node.Marshal()[0];
page_layout := TOfficeObj('TPageLayout');
page_layout.Scale := marshal['attributes']['scale'];
page_layout.FitToWidth := marshal['attributes']['fitToWidth'];
page_layout.FitToHeight := marshal['attributes']['fitToHeight'];
page_layout.PaperSize := marshal['attributes']['paperSize'];
page_layout.Orientation := marshal['attributes']['orientation'];
page_layout.BlackAndWhite := marshal['attributes']['blackAndWhite'];
page_layout.FirstPageNumber := marshal['attributes']['firstPageNumber'];
page_layout.CellError := marshal['attributes']['errors'];
page_layout.CellComments := marshal['attributes']['cellComments'];
page_layout.Draft := marshal['attributes']['draft'];
page_layout.RootObj := node;
return page_layout;
End
funcext/TSOffice/worksheet/xlsxShape.tsf
+127
View File
@@ -0,0 +1,127 @@
Type xlsxShape = Class
///缺省构造函数
Function Create(sheet,excel); overload;
Begin
excel_ := excel;
sheetName_ := sheet;
zipfile_ := excel.Zip();
drawing_id := excel_.WorkBook().GetSheetDrawing(sheetName_);
sheet_xml := excel_.WorkBook().GetSheetXmlfile(sheetName_);
node := sheet_xml.FirstChildElement('worksheet');
drawing_node := node.FirstChildElement('drawing');
if not ifObj(drawing_node) then
drawing_node := node.InsertEndChild('element', 'drawing');
drawing_node.SetAttribute('r:id', 'rId' $ drawing_id);
// drawingN.xml
drawingXmlObj_ := excel_.WorkBook().GetXmlFileObj('xl/drawings/drawing' $ drawing_id $ ".xml");
End;
class Function NewObject(sheet, excel);
Begin
excel_ := excel;
o := excel_.WorkBook().GetSheetObj(sheet);//sheet存在
if not ifObj(o) then return 0;
return new xlsxShape(sheet, excel);
End;
Function AddShape(topLeft, bottomRight, shapeType, format);
Begin
[err1, col1, row1] := excel_.CellNameToCoordinates(topLeft);
[err2, col2, row2] := excel_.CellNameToCoordinates(bottomRight);
if err1 or err2 then return 'Invalid params.';
o := TOfficeObj('TtwoCellAnchor');
o.XFrom.Col := col1;
o.XFrom.ColOff := format.BegColOff ? format.BegColOff : 0;
o.XFrom.Row := row1;
o.XFrom.RowOff := format.BegRowOff ? format.BegRowOff : 0;
o.XTo.Col := col2;
o.XTo.ColOff := format.EndColOff ? format.EndColOff : 0;
o.XTo.Row := row2;
o.XTo.RowOff := format.EndRowOff ? format.EndRowOff : 0;
o.Pic.NodeName := 'xdr:sp';
o.Pic.Macro := '';
o.Pic.Textlink := '';
setSpNvSpPr(o.Pic.NvPicPr, shapeType);
setSpSpPr(o.Pic.SpPr, shapeType);
setSpStyle(o.Pic.Style);
setSpTxBody(o.Pic.TxBody, format);
node := drawingXmlObj_.FirstChildElement('xdr:wsDr').InsertEndChild(o.Marshal());
End;
private
Function getShapeInfo();
Begin
return array(
'rect': ('name': '矩形'),
'roundRect': ('name': '矩形: 圆角'),
'mathMinus': ('name': '减号'),
'ellipse': ('name': '椭圆'),
);
End
Function setSpNvSpPr(obj, shapeType);
Begin
obj.NodeName := 'xdr:nvSpPr';
obj.CNvPr.ID := class(xlsxXml).GetcNvPrID(drawingXmlObj_);
obj.CNvPr.Name := (getShapeInfo()[shapeType]['name'] ?: '') $ ' ' $ obj.CNvPr.ID;
obj.CNvPr.ExtLst.Ext.Uri := '';
obj.CNvPr.ExtLst.Ext.Xmlns16 := 'http://schemas.microsoft.com/office/drawing/2014/main';
obj.CNvPr.Replace(array("pic:": "xdr:"));
obj.CNvSpPr := true;
End
Function setSpSpPr(obj, shapeType);
Begin
obj.XFrm.Off.X := 0;
obj.XFrm.Off.Y := 0;
obj.XFrm.Ext.Cx := 0;
obj.XFrm.Ext.CY := 0;
obj.PrstGeom.Prst := shapeType;
obj.PrstGeom.AvLst := true;
obj.NodeName := 'xdr:spPr';
End
Function setSpStyle(obj);
Begin
obj.LnRef.Idx := 2;
obj.LnRef.SchemeClr.Val := 'accent1';
obj.LnRef.SchemeClr.Shade := '50000';
obj.FillRef.Idx := 1;
obj.FillRef.SchemeClr.Val := 'accent1';
obj.EffectRef.Idx := 0;
obj.EffectRef.SchemeClr.Val := 'accent1';
obj.FontRef.Idx := 'minor';
obj.FontRef.SchemeClr.Val := 'lt1';
End
Function setSpTxBody(obj, format);
Begin
obj.BodyPr.VertOverflow := 'clip';
obj.BodyPr.HorzOverflow := 'clip';
obj.BodyPr.RtlCol := 0;
obj.BodyPr.Anchor := 't';
if istable(format.ExtNodes) then
begin
obj.ExtNodes := format.ExtNodes ?: array();
end
else begin
obj.P.PPr.Algn := 'l';
obj.P.EndParaRPr.Lang := 'zh-CN';
obj.P.EndParaRPr.AltLang := 'en-US';
obj.P.EndParaRPr.SZ := '1100';
end
End
private
sheetName_:string; //sheet名称
excel_;//TSExcelFile对象
zipfile_;
drawingXmlObj_;
End;
funcext/TSOffice/worksheet/xlsxStyles.tsf
+14 -27
View File
@@ -17,44 +17,31 @@ Type xlsxStyles = Class
processNumFmtId(node, 'numFmts', style.NumberFormat);
numfmt_id := insertNode(node, 'numFmts', style.NumberFormat);
// 整理插入节点内容
child_arr := array();
alignment_marshal := style.Alignment.Marshal();
if istable(alignment_marshal['children']) or istable(alignment_marshal['attributes']) then
begin
alignment_flag := 1;
child_arr union= array(alignment_marshal);
end
protection_marshal := style.Protection.Marshal();
if istable(protection_marshal['children']) or istable(protection_marshal['attributes']) then
begin
protection_flag := 1;
child_arr union= array(protection_marshal);
end
attr_arr := array(
'numFmtId': style.NumberFormat.NumFmtId ? : "0",
'fontId': font_id,
'fillId': fill_id,
'borderId': border_id,
'xfId': 0,
);
if font_id <> '0' then attr_arr['applyFont'] := '1';
if border_id <> '0' then attr_arr['applyBorder'] := '1';
if numfmt_id <> '0' then attr_arr['applyNumberFormat'] := '1';
if fill_id <> '0' then attr_arr['applyFill'] := '1';
if alignment_flag then attr_arr['applyAlignment'] := '1';
if protection_flag then attr_arr['applyProtection'] := '1';
xf := TOfficeObj('TXf');
xf.NumFmtId := style.NumberFormat.NumFmtId ? : 0;
xf.FontId := font_id;
xf.FillId := fill_id;
xf.BorderId := border_id;
xf.XfId := 0;
xf.ApplyFont := font_id <> '0' ? 1 : nil;
xf.ApplyFill := fill_id <> '0' ? 1 : nil;
xf.ApplyBorder := border_id <> '0' ? 1 : nil;
xf.ApplyAlignment := alignment_flag ?: nil;
xf.ApplyProtection := protection_flag ?: nil;
xf.Alignment := style.Alignment;
xf.Protection := style.Protection;
arr := array('name': 'xf', 'type': 'element',
'attributes': attr_arr,
'children': child_arr,
);
node := node.FirstChildElement('cellXfs');
count := node.GetAttribute('count');
node.InsertEndChild(arr);
node.InsertEndChild(xf.Marshal());
node.SetAttribute('count', strtoint(count) + 1);
//node.print;
return count;
End
funcext/TSOffice/worksheet/xlsxTable.tsf
+117
View File
@@ -0,0 +1,117 @@
Type xlsxTable = Class
///缺省构造函数
Function Create(sheet, excel); overload;
Begin
excel_ := excel;
sheetName_ := sheet;
zipfile_ := excel.Zip();
End;
class Function NewObject(sheet, excel);
Begin
excel_ := excel;
o := excel_.WorkBook().GetSheetObj(sheet);//sheet存在
if not ifObj(o) then return 0;
return new xlsxTable(sheet, excel);
End;
Function AddTable(topLeft, bottomRight, format, includeHeader);
Begin
[rid, table_id, table_name] := addTableXmlFileAndRelation();
table := TOfficeObj('TExcelTable');
table.Xmlns := 'http://schemas.openxmlformats.org/spreadsheetml/2006/main';
table.Mc := 'http://schemas.openxmlformats.org/markup-compatibility/2006';
table.Ignorable := 'xr xr3';
table.Xr := 'http://schemas.microsoft.com/office/spreadsheetml/2014/revision';
table.Xr3 := 'http://schemas.microsoft.com/office/spreadsheetml/2016/revision3';
table.Id := table_id;
table.Name := '表' $ table_id;
table.DisplayName := format.TableName ? format.TableName : table.Name;
table.Ref := topLeft $ ':' $ bottomRight;
table.HeaderRowCount := format.HeaderRowCount ? '1' : nil;
table.TotalsRowShown := format.TotalsRowShown ? '1' : '0';
table.AutoFilter := table.Ref;
format.TableName := nil;
format.HeaderRowCount := nil;
format.TotalsRowShown := nil;
// <tableColumns />
[err1, col1, row1] := excel_.CellNameToCoordinates(topLeft);
[err2, col2, row2] := excel_.CellNameToCoordinates(bottomRight);
table_str := getTableColumnsXmlString(col1, col2, row1, includeHeader);
table_xml := excel_.WorkBook().GetXmlFileObj(table_name);
table_node := table_xml.FirstChild('table');
marshal := table.Marshal();
class(xlsxXml).UpdateNode(table_node, marshal['attributes'], marshal['children']);
table_node.InsertEndChild(table_str);
table_node.InsertEndChild(format.Marshal());
//sheetN.xml
sheet_xml := excel_.WorkBook().GetSheetXmlFile(sheetName_);
worksheet_node := sheet_xml.FirstChildElement('worksheet');
table_part := worksheet_node.FirstChildElement('tableParts');
if not ifObj(table_part) then
begin
table_part := worksheet_node.InsertEndChild('element', 'tableParts');
count := 1;
end
else begin
count := inttostr(table_part.GetAttribute('count')) + 1;
end
node := table_part.InsertEndChild('element', 'tablePart');
node.SetAttribute('r:id', 'rId' $ rid);
table_part.SetAttribute('count', count);
End
private
Function getTableColumnsXmlString(begCol, endCol, row, includeHeader);
Begin
table_str := '<tableColumns count="' $ (endCol - begCol + 1) $ '">';
id := 1;
col_index := 1;
if not includeHeader then
begin
excel_.InsertRow(sheetName_, row);
end
for i:=begCol to endCol do
begin
[err, cell] := excel_.CoordinatesToCellName(i, row, false);
if includeHeader then
name := excel_.GetCellValue(sheetName_, cell)[1];
else begin
name := "列" $ col_index++;
excel_.SetCellValue(sheetName_, cell, name);
end
table_str += fmt('<tableColumn id="{}" name="{}" />', id++, name);
end
table_str += "</tableColumns>";
return table_str;
End
Function addTableXmlFileAndRelation();
Begin
sheet_rels_file := excel_.WorkBook().GetSheetRelsFile(sheetName_);
[rid, target] := class(xlsxXml).FindRelationshipRid(sheet_rels_file, '');
rid ++;
table_id := excel_.WorkBook().GetFilesCount('xl/tables/') + 1;
table_name := 'xl/tables/table' + inttostr(table_id) + '.xml';
table_target := '../tables/table' + inttostr(table_id) + '.xml';
excel_.zip().Add(table_name, class(xlsxXml).XmlHeader() + "<table />");
class(xlsxXml).AddRelationshipRid(sheet_rels_file, table_target, 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/table', 'rId' $ rid);
content_xml := excel_.WorkBook().GetXmlFileObj(class(xlsxXml).GetFileName('Content_Types'));
class(xlsxXml).AddOverrideContentType(content_xml, '/' + table_name, 'application/vnd.openxmlformats-officedocument.spreadsheetml.table+xml');
return array(rid, table_id, table_name);
End
private
sheetName_:string; //sheet名称
excel_;//TSExcelFile对象
zipfile_;
tableXmlFile_;
End;
funcext/TSOffice/worksheet/xlsxWorkBook.tsf
+292 -554
View File
File diff suppressed because it is too large Load Diff