[R语言] 使用XML及XSL生成简单HTML

<ROOT> 
<ASPNETX Username="dudu" City="Shanghai" Cool="70" /> 
<ASPNETX Username="Bill" City="Meiguo" Cool="100" /> 
<ASPNETX Username="Gates" City="Meiguo" Cool="100" /> 
<ASPNETX Username="Aobama" City="Meiguo" Cool="80" /> 
<ASPNETX Username="aspnetx" City="Beijing" Cool="60" /> 
<ASPNETX Username="Geo" City="USA.East" Cool="20" /> 
<ASPNETX Username="Mike" City="USA.West" Cool="30" /> 
<ASPNETX Username="Jim" City="Jilin" Cool="90" /> 
<ASPNETX Username="Tim" City="Hebei" Cool="10" /> 
<ASPNETX Username="Ada" City="Big Apple" Cool="10" /> 
<ASPNETX Username="Jill" City="unknown" Cool="50" /> 
</ROOT>

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt" exclude-result-prefixes="msxsl"> 
<xsl:output method="html" indent="yes"/> 
<xsl:template match="/"> 
<table align="left" cellpadding="2" cellspacing="5"> 
<tr> 
<td style="font-family: Verdana; font-size: 15px; font-weight: bold;">User in cnblogs:</td> 
</tr> 
<tr> 
<td style="font-family: Verdana; font-size: 10px;"> 
<table width="500px" align="left" cellpadding="2" cellspacing="0" style="font-family: Verdana; font-size: 10px;"> 
<tr> 
<td bgcolor="#808080"> 
<font color="#FFFFFF"> 
<b>User name</b> 
</font> 
</td> 
<td bgcolor="#808080"> 
<font color="#FFFFFF"> 
<b>City</b> 
</font> 
</td> 
<td bgcolor="#808080"> 
<font color="#FFFFFF"> 
<b>Cool</b> 
</font> 
</td> 
</tr> 
<xsl:for-each select="ROOT/ASPNETX"> 
<tr> 
<td style="border: 1px solid #808080"> 
<xsl:value-of select="@Username"/> 
</td> 
<td style="border: 1px solid #808080"> 
<xsl:value-of select="@City"/> 
</td> 
<td style="border: 1px solid #808080"> 
<xsl:value-of select="@Cool"/> 
</td> 
</tr> 
</xsl:for-each> 
</table> 
</td> 
</tr> 
</table> 
</xsl:template> 
</xsl:stylesheet>

static void TestXls() 
{ 
//数据文件 
XmlReader _xmlxml = XmlReader.Create("xmldata.xml"); 
//模板文件 
XmlReader _xmlxsl = XmlReader.Create("xsldata.xml"); 
//实例化转换对象 
XslCompiledTransform xslct = new XslCompiledTransform(); 
xslct.Load(_xmlxsl); 
MemoryStream ms = new MemoryStream(); 
XmlTextWriter xmltxtWr = new XmlTextWriter(ms, null); 
//开始转换，并且将结果保存到writer中。 
xslct.Transform(_xmlxml, xmltxtWr); 
//读取结果 
StreamReader st = new StreamReader(ms); 
ms.Seek(0, SeekOrigin.Begin); 
string TransformedHTML = st.ReadToEnd(); 
Console.WriteLine(TransformedHTML); 
}