1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
program reducexml;
{$mode objfpc}
{$h+}
uses cwstring,SysUtils,classes,DOM,xmlutils,xmlread,xmlwrite;
Var
D : TXMLDocument;
S : TFileStream;
W : TDOMWriter;
FN : String;
begin
if paramCount=0 then
begin
Writeln('Usage : reducexml infile [outfile]');
halt(1);
end;
ReadXMLFile(D,ParamStr(1));
FN:=ParamStr(2);
if FN='' then
FN:=ChangeFileExt(ParamStr(1),'-new.xml');
W:=nil;
S:=TFileStream.Create(FN,fmCreate);
try
W:=TDOMWriter.Create(S,D);
W.IndentSize:=1;
// W.Canonical:=True;
W.UseTab:=True;
W.WriteNode(D);
Finally
W.Free;
S.Free;
end;
end.
|
