release 1.0
This commit is contained in:
parent
83b8ff6d09
commit
0597f9b2a4
|
|
@ -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
|
||||
|
|
@ -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;
|
||||
|
|
@ -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;
|
||||
|
|
@ -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
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
24
README.md
24
README.md
|
|
@ -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
|
||||
|
|
|
|||
144
TOfficeObj.md
144
TOfficeObj.md
|
|
@ -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` 是否隐藏
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
|
@ -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;
|
||||
|
|
@ -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,21 +94,22 @@ 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);
|
||||
return workbook_.SetSheetName(sourceName, destName);
|
||||
End;
|
||||
|
||||
///获取工作表名
|
||||
///index: int，工作表索引
|
||||
///返回: string
|
||||
Function GetSheetName(index);
|
||||
Begin
|
||||
name := workbook_.GetSheets()[index];
|
||||
return ifString(name) ? name : '';
|
||||
End;
|
||||
|
||||
///创建新sheet
|
||||
|
|
@ -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
|
||||
[err, cell] := CoordinatesToCellName(col + i, row);
|
||||
//println('{}->{}',cell,slice[i]);
|
||||
SetCellValue(sheet, cell, slice[i]);
|
||||
End;
|
||||
return array(0, 'ok');
|
||||
if not err then
|
||||
begin
|
||||
for i:=0 to length(slice)-1 do
|
||||
begin
|
||||
[err, cell] := CoordinatesToCellName(col + i, row);
|
||||
SetCellValue(sheet, cell, slice[i]);
|
||||
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;
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
@ -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
|
||||
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'];
|
||||
End
|
||||
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();
|
||||
for i:=0 to length(r)-1 do Begin
|
||||
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) ] := children_[i];
|
||||
end;
|
||||
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
|
||||
a[ length(a) ] := r[i];
|
||||
end;
|
||||
return a;
|
||||
name := ReplaceStr(name, k, v);
|
||||
End;
|
||||
return name;
|
||||
End;
|
||||
public
|
||||
NodeName;
|
||||
ExtAttr;
|
||||
ExtNodes;
|
||||
|
||||
Parent;
|
||||
ReplaceArr;
|
||||
RootObj;
|
||||
children_;
|
||||
End
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
@ -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;
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -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;
|
||||
|
|
@ -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;
|
||||
|
|
@ -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;
|
||||
|
|
@ -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;
|
||||
|
|
@ -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;
|
||||
Binary file not shown.
|
|
@ -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对象）。
|
||||
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 3.5 KiB |
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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>
|
||||
|
|
@ -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;
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
@ -22,11 +22,15 @@ Type xlsxHeaderFooter = Class
|
|||
header_node := node.FirstChildElement('headerFooter');
|
||||
if ifObj(header_node) then
|
||||
node.DeleteChild(header_node);
|
||||
node.InsertEndChild(headerFooter.Marshal());
|
||||
page_node := node.FirstChildElement('pageMargins');
|
||||
if ifObj(page_node) then
|
||||
node.InsertAfterChild(page_node, headerFooter.Marshal());
|
||||
else
|
||||
node.InsertEndChild(headerFooter.Marshal());
|
||||
End
|
||||
|
||||
private
|
||||
sheet_; //XmlSheet对象
|
||||
file_; //TSExcelFile对象
|
||||
xmlFile_; //sheet对应的xml对象
|
||||
End;
|
||||
End;
|
||||
|
|
|
|||
|
|
@ -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');
|
||||
link := TOfficeObj('THyperLink');
|
||||
while ifObj(node) do begin
|
||||
marshal := node.marshal()[0];
|
||||
attrs := marshal['attributes'];
|
||||
if attrs['ref'] = axis then
|
||||
ref := node.GetAttribute('ref');
|
||||
if 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;
|
||||
link.RootObj := node;
|
||||
break;
|
||||
end
|
||||
node := node.NextElement();
|
||||
end;
|
||||
return array(-2, "The cell has no hyperlink.");
|
||||
return link;
|
||||
End;
|
||||
|
||||
private
|
||||
|
|
|
|||
|
|
@ -4,9 +4,9 @@ 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);
|
||||
Begin
|
||||
excel_ := 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);
|
||||
End
|
||||
node := node.InsertEndChild('element', 'picture');
|
||||
node.SetAttribute('r:id', 'rId' + inttostr(rId_));
|
||||
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
|
||||
|
||||
private
|
||||
|
||||
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;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
work_node.InsertEndChild(marshal);
|
||||
return array(0, '');
|
||||
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);
|
||||
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
|
||||
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
@ -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
|
||||
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue