XSLT - XML bewerken
Gegevens die zijn opgeslagen in XML-bestanden kunnen worden bewerkt vanuit een internetbrowser.
XML openen, bewerken en opslaan
Nu laten we zien hoe u een XML-bestand opent, bewerkt en opslaat dat op de server is opgeslagen.
We zullen XSL gebruiken om het XML-document om te zetten in een HTML-formulier. De waarden van de XML-elementen worden in HTML-vorm naar HTML-invoervelden geschreven. Het HTML-formulier kan worden bewerkt. Nadat de gegevens zijn bewerkt, worden de gegevens teruggestuurd naar de server en wordt het XML-bestand bijgewerkt (we tonen code voor zowel PHP als ASP).
Het XML-bestand en het XSL-bestand
Bekijk eerst het XML-document ("tool.xml"):
<?xml version="1.0" encoding="UTF-8"?>
<tool>
<field id="prodName">
<value>HAMMER HG2606</value>
</field>
<field id="prodNo">
<value>32456240</value>
</field>
<field id="price">
<value>$30.00</value>
</field>
</tool>
Bekijk dan het volgende stijlblad ("tool.xsl"):
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<html>
<body>
<form method="post" action="edittool.asp">
<h2>Tool Information (edit):</h2>
<table border="0">
<xsl:for-each select="tool/field">
<tr>
<td><xsl:value-of select="@id"/></td>
<td>
<input type="text">
<xsl:attribute name="id">
<xsl:value-of select="@id" />
</xsl:attribute>
<xsl:attribute name="name">
<xsl:value-of select="@id" />
</xsl:attribute>
<xsl:attribute name="value">
<xsl:value-of select="value" />
</xsl:attribute>
</input>
</td>
</tr>
</xsl:for-each>
</table>
<br />
<input type="submit" id="btn_sub" name="btn_sub" value="Submit" />
<input type="reset" id="btn_res" name="btn_res" value="Reset" />
</form>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
Het bovenstaande XSL-bestand doorloopt de elementen in het XML-bestand en maakt één invoerveld aan voor elk XML-"veld"-element. De waarde van het "id"-attribuut van het XML-element "field" wordt toegevoegd aan zowel de attributen "id" als "name" van elk HTML-invoerveld. De waarde van elk XML-element "waarde" wordt toegevoegd aan het kenmerk "waarde" van elk HTML-invoerveld. Het resultaat is een bewerkbaar HTML-formulier dat de waarden uit het XML-bestand bevat.
Dan hebben we een tweede stylesheet: "tool_updated.xsl". Dit is het XSL-bestand dat zal worden gebruikt om de bijgewerkte XML-gegevens weer te geven. Deze stylesheet resulteert niet in een bewerkbaar HTML-formulier, maar in een statische HTML-tabel:
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<html>
<body>
<h2>Updated Tool Information:</h2>
<table border="1">
<xsl:for-each select="tool/field">
<tr>
<td><xsl:value-of select="@id" /></td>
<td><xsl:value-of select="value" /></td>
</tr>
</xsl:for-each>
</table>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
Het PHP-bestand
Wijzig in het bestand "tool.xsl" hierboven het actiekenmerk van het HTML-formulier in "edittool.php".
De pagina "edittool.php" bevat twee functies: De functie loadFile() laadt en transformeert het XML-bestand voor weergave en de functie updateFile() past de wijzigingen toe op het XML-bestand:
<?php
function loadFile($xml, $xsl)
{
$xmlDoc = new DOMDocument();
$xmlDoc->load($xml);
$xslDoc = new DOMDocument();
$xslDoc->load($xsl);
$proc = new XSLTProcessor();
$proc->importStyleSheet($xslDoc);
echo $proc->transformToXML($xmlDoc);
}
function updateFile($xml)
{
$xmlLoad = simplexml_load_file($xml);
$postKeys = array_keys($_POST);
foreach($xmlLoad->children() as $x)
{
foreach($_POST as
$key=>$value)
{
if($key ==
$x->attributes())
{
$x->value = $value;
}
}
}
$xmlLoad->asXML($xml);
loadFile($xml,"tool_updated.xsl");
}
if($_POST["btn_sub"] == "")
{
loadFile("tool.xml", "tool.xsl");
}
else
{
updateFile("tool.xml");
}
?>
Tip: Als je niet weet hoe je PHP moet schrijven, lees dan onze PHP-tutorial .
Opmerking: we doen de transformatie en passen de wijzigingen toe op het XML-bestand op de server. Dit is een oplossing voor meerdere browsers. De client krijgt alleen HTML terug van de server - die in elke browser werkt.
Het ASP-bestand
Het HTML-formulier in het bestand "tool.xsl" hierboven heeft een actiekenmerk met de waarde "edittool.asp".
De pagina "edittool.asp" bevat twee functies: De functie loadFile() laadt en transformeert het XML-bestand voor weergave en de functie updateFile() past de wijzigingen toe op het XML-bestand:
<%
function loadFile(xmlfile,xslfile)
Dim xmlDoc,xslDoc
'Load XML and XSL file
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)
set xslDoc = Server.CreateObject("Microsoft.XMLDOM")
xslDoc.async = false
xslDoc.load(xslfile)
'Transform file
Response.Write(xmlDoc.transformNode(xslDoc))
end function
function updateFile(xmlfile)
Dim xmlDoc,rootEl,f
Dim i
'Load XML file
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = false
xmlDoc.load(xmlfile)
'Set the rootEl variable equal to the root element
Set rootEl = xmlDoc.documentElement
'Loop through the form collection
for i = 1 To Request.Form.Count
'Eliminate button elements in the form
if instr(1,Request.Form.Key(i),"btn_")=0 then
'The selectSingleNode method queries the XML file for a single node
'that matches a query. This query requests the value element that is
'the child of a field element that has an id attribute which matches
'the current key value in the Form Collection. When there is a match -
'set the text property equal to the value of the current field in the
'Form Collection.
set f = rootEl.selectSingleNode("field[@id='" & _
Request.Form.Key(i) & "']/value")
f.Text = Request.Form(i)
end if
next
'Save the modified XML file
xmlDoc.save xmlfile
'Release all object references
set xmlDoc=nothing
set rootEl=nothing
set f=nothing
'Load the modified XML file with a style sheet that
'allows the client to see the edited information
loadFile xmlfile,server.MapPath("tool_updated.xsl")
end function
'If form is submitted, update the XML file and display result
' - if not, transform the XML file for editing
if Request.Form("btn_sub")="" then
loadFile server.MapPath("tool.xml"),server.MapPath("tool.xsl")
else
updateFile server.MapPath("tool.xml")
end if
%>