xml的简单任务

jxzhang615 2007-05-21 01:19:34
我想得到的xml如下:
<Race concathash="0">
<Unhashed>4</Unhashed>
</Race>

请问如何做?
...全文
365 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
jxzhang615 2007-05-21
  • 打赏
  • 举报
回复
来人看看啊
jxzhang615 2007-05-21
  • 打赏
  • 举报
回复
我明白你们的意思,
Dim doc As New XmlDocument
doc.LoadXml("<dataroot></dataroot>")
Dim root As XmlNode = doc.SelectSingleNode("dataroot")
Dim xe1 As XmlElement = doc.CreateElement("SourceDatabase")
Dim xe2 As XmlElement = doc.CreateElement("DatabaseID")
Dim xe3 As XmlElement = doc.CreateElement("DatabaseName")
Dim xe4 As XmlElement = doc.CreateElement("DatabaseIDNum")

xe3.InnerText = "111"
xe1.AppendChild(xe2)
xe1.AppendChild(xe3)
xe4.InnerText = "1"
xe2.AppendChild(xe4)

xe2 = doc.CreateElement("DatabaseContactFirst")
xe2.InnerText = "Barney"
xe1.AppendChild(xe2)

xe2 = doc.CreateElement("DatabaseContactLast")
xe2.InnerText = "Feif"
xe1.AppendChild(xe2)

xe2 = doc.CreateElement("DatabaseContactPhone")
xe2.InnerText = "6179234567"
xe1.AppendChild(xe2)

xe2 = doc.CreateElement("DatabaseContactExtension")
xe2.InnerText = "75511"
xe1.AppendChild(xe2)

xe2 = doc.CreateElement("DatabaseContactEmail")
xe2.InnerText = "test@test.com"
xe1.AppendChild(xe2)
root.AppendChild(xe1)

doc.Save("d:\2.xml")
我这样的得到的xml都是这样子的;
<Race>
<Unhashed>4</Unhashed>
</Race>
而不是
<Race concathash="0">
<Unhashed>4</Unhashed>
</Race>
请问<Race concathash="0"> 中的concathash="0" 是怎么生成的?
北京的雾霾天 2007-05-21
  • 打赏
  • 举报
回复
你可以使用XmlReader来读,也可以使用XmlDocument来操作,不都可以吗?
jxzhang615 2007-05-21
  • 打赏
  • 举报
回复
环境vs2005,语言vb.net
zhqs1000 2007-05-21
  • 打赏
  • 举报
回复
晕,你想用什么得到

16,554

社区成员

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

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