如何生成XML 用XmlWriter

ssihc0 2010-05-24 11:29:13
如何生成如下xml



<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
- <epp xmlns="urn:iana:xml:ns:epp-1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:iana:xml:ns:epp-1.0 epp-1.0.xsd">
- <command>
- <create>
- <domain:create xmlns:domain="urn:iana:xml:ns:domain-1.0" xsi:schemaLocation="urn:iana:xml:ns:domain-1.0 domain-1.0.xsd">
<domain:name>test-test.cn</domain:name>
<domain:period unit="y">1</domain:period>
<domain:registrant>1229682222788-en</domain:registrant>
<domain:contact type="tech">1229682222788-en</domain:contact>
<domain:contact type="admin">1229682222788-en</domain:contact>
<domain:contact type="billing">1229682222788-en</domain:contact>
<domain:authInfo type="pw">1229682222788-en</domain:authInfo>
</domain:create>
</create>
- <unspec>
- <cnDomain:create xmlns:cnDomain="urn:iana:xml:ns:cntld:domain-1.0" xsi:schemaLocation="urn:iana:xml:ns:cntld:domain-1.0 cntld-domain-1.0.xsd">
<cnDomain:type>E</cnDomain:type>
<cnDomain:purveyor>p091231153828558</cnDomain:purveyor>
</cnDomain:create>
</unspec>
<clTRID>FP783504655393</clTRID>
</command>
</epp>


你写的代码,,,如下,,但写不下去了
ivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim stream As New MemoryStream
Dim xmlseting As New XmlWriterSettings
xmlseting.Encoding = Encoding.UTF8
xmlseting.ConformanceLevel = ConformanceLevel.Document
xmlseting.Indent = True
Dim Xmldoc As XmlWriter = XmlWriter.Create(stream, xmlseting)

Xmldoc.WriteStartDocument(False)
Xmldoc.WriteStartElement("epp", "urn:iana:xml:ns:epp-1.0")
Xmldoc.WriteAttributeString("xmlns", "xsi", "", "http://www.w3.org/2001/XMLSchema-instance")
Xmldoc.WriteAttributeString("xmlns", "schemaLocation", "", "urn:iana:xml:ns:epp-1.0 epp-1.0.xsd")

Xmldoc.WriteStartElement("command")
Xmldoc.WriteStartElement("create")
Xmldoc.WriteAttributeString("xmlns", "domain", "", "1")
Xmldoc.WriteStartElement("create", "1")
' Xmldoc.WriteAttributeString("xmlns", "domain", "", "urn:iana:xml:ns:domain-1.0")
Xmldoc.WriteAttributeString("xsi", "schemaLocation", "", "urn:iana:xml:ns:domain-1.0 domain-1.0.xsd")


Xmldoc.WriteEndElement()
Xmldoc.WriteEndElement()
Xmldoc.WriteEndElement()
Xmldoc.WriteEndElement()

Xmldoc.Flush()
MsgBox(Encoding.UTF8.GetString(stream.ToArray()))




...全文
179 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ssihc0 2010-05-26
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 upc_xiaowei 的回复:]
XmlDocument doc = new XmlDocument();
doc.LoadXml(str);
XmlTextWriter writer = new XmlTextWriter("baojingshezhi.xml", null);
writer.Formatting = Formatting.Indented;
doc.Save(writer);
[/Quote]

这个办法不行,,,,一定要在内存中直接生成
Forrest23 2010-05-25
  • 打赏
  • 举报
回复
还真不怎么会写 这个
upc_xiaowei 2010-05-25
  • 打赏
  • 举报
回复
XmlDocument doc = new XmlDocument();
doc.LoadXml(str);
XmlTextWriter writer = new XmlTextWriter("baojingshezhi.xml", null);
writer.Formatting = Formatting.Indented;
doc.Save(writer);

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧