VB生成xml文件并使用xsd验证

最近客户的一个需要，要求将数据以xml的形式发送。

vb 实现代码

PRivateFunctioncreateXML_old(ByValxmlNameAsString)AsBoolean

Dim SrcPath As String = "c\project\srcXmlFiles\" '产生的xml存放的目录

TryDimwriterAsNewSystem.Xml.XmlTextWriter(SrcPath &xmlName, System.Text.Encoding.UTF8)DimnamespaceUrlAsString="http://www.xxx.com" '验证xsd需要用到的namespaceUrlwriter.Formatting=Formatting.Indented

writer.WriteStartDocument()

writer.WriteStartElement("root","test", namespaceUrl)

writer.WriteElementString("firstNode1","values")

writer.WriteElementString("firstNode2","values")

writer.WriteElementString("firstNode3","values")

writer.WriteElementString("firstNode4","values)writer.WriteElementString("firstNode5", values)

writer.WriteElementString("firstNode6Id", values)DimdvAsDataView =cn.getData.DefaultView()Ifdv.Count >0ThenForEachitemAsDataRowViewIndv

writer.WriteStartElement("firstNode7")

writer.WriteElementString("secondNode1", values)

writer.WriteElementString("secondNode2", values)

writer.WriteElementString("secondNode3", values)Dimdv2AsDataView = cn.getData2(item("firstNode6Id")).DefaultView()Ifdv2.Count >0ThenForEachitemRMDetailsAsDataRowViewIndvRMDetails

writer.WriteStartElement("secondNode4")

writer.WriteStartElement("thridNode1")

writer.WriteElementString("thridNode2", values)writer.WriteEndElement()'关闭secondNode4writer.WriteEndElement()'关闭thridNode1NextElsewriter.WriteStartElement("secondNode4")

writer.WriteStartElement("thridNode1")

writer.WriteElementString("thridNode2","")

writer.WriteEndElement()'关闭secondNode4writer.WriteEndElement()'关闭thridNode1EndIfwriter.WriteEndElement()'关闭firstNode7Next

Else

'WriteLog FunctionEndIfwriter.WriteEndElement()

writer.WriteEndDocument()'writer.Close()'将XML写入文件并关闭writerReturnTrueCatchexAsExceptionReturnFalseEndTryEnd Function