Hallo Michael,
du machst es dir leichter, wenn du in deinem XSL-T Script ein paar Änderungen machst:
Dein CSS-Skript kannst du extern speichern:
XML-Code:
...
<head>
<link rel="stylesheet" type="text/css" href="logfile.css"/>
<title>...
Das Filter-Template würde ich so schreiben:
XML-Code:
<xsl:template name="luckie">
Jetzt kannst du über den Namen darauf zugreifen und die Filter vor der Verwendung einspeisen:
Delphi-Quellcode:
procedure TDemoForm.DemoButtonClick(Sender: TObject);
var
s: TStrings;
dir, fnDocument, fnStyle: TFileName;
begin
dir := '
c:\daten\dp\luckie\';
fnDocument := dir + '
logfile.xml';
fnStyle := ChangeFileExt(fnDocument, '
.xsl');
s := TStringList.Create;
xmlDoc.load(fnDocument);
xmlStyle.load(fnStyle);
s.Add('
Start');
s.Add('
Ende');
s.Delimiter := '
|';
with xmlStyle.selectSingleNode('
//*[@name="luckie"]')
as IXMLDOMElement
do
setAttribute('
match', s.DelimitedText);
s.Text := xmlDoc.transformNode(xmlStyle);
s.SaveToFile('
c:\daten\dp\luckie\logtest.html');
s.Free;
end;
Grüße vom marabu