使用XMLDocument类向HTML文档添加元和样式

酒也

我用XMLDocument类和VB.NET创建HTML文档非常成功。
代码如下：

Dim xmlDoc As XmlDocument = New XmlDocument
Dim xmlRoot As XmlElement = xmlDoc.CreateElement("html")
xmlDoc.AppendChild(xmlRoot)

Dim xmlHead As XmlElement = xmlDoc.CreateElement("head")
xmlRoot.AppendChild(xmlHead)

Dim xmlTitle As XmlElement = xmlDoc.CreateElement("title")
xmlTitle.AppendChild(xmlDoc.CreateTextNode("myDocument"))
xmlHead.AppendChild(xmlTitle)
etc...

现在，我找不到用XmlDocument类和VB.NET（或C＃）在文档的开头部分编写元和样式（以及一般脚本）的方法来在创建的html文档中获取此类代码：

<meta http-equiv="Content-Language" content="en">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<style type='text/css'>
<!--
td{font-family: Arial Narrow; font-size: 10pt;}
.adress {font-family:Arial Narrow; font-size: 10pt;}
tr.borders td {border-top:1pt solid black; border-bottom:1pt solid black;}
--->
</style>

请帮助正确编写。

丹尼尔·安德森（Daniel Andersson）

您可以按照开始时的相同方式继续

Dim xmlMeta As XmlElement = xmlDoc.CreateElement("meta")

Dim xmlAttrHttpEquiv As XmlNode = xmlDoc.CreateAttribute("http-equiv")
xmlAttrHttpEquiv.Value = "Content-Language"

Dim xmlAttrContent As XmlNode = xmlDoc.CreateAttribute("content")
xmlAttrContent.Value = "en"

xmlMeta.Attributes.Append(xmlAttrHttpEquiv)
xmlMeta.Attributes.Append(xmlAttrContent)
xmlHead.AppendChild(xmlMeta)

等等...

如果要在样式元素内设置文本，则可以使用elemets InnerText属性。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。