首页 / XML / VB 生成xml文件 并使用xsd验证

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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了VB 生成xml文件 并使用xsd验证，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1890字，纯文字阅读大概需要3分钟。

内容图文

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

vb 实现代码

            Private
            Function createXML_old(ByVal xmlName AsString) AsBoolean
　　　　Dim SrcPath As String = "c\project\srcXmlFiles\"        ‘产生的xml存放的目录
TryDim writer AsNew System.Xml.XmlTextWriter(SrcPath & xmlName, System.Text.Encoding.UTF8)
            Dim namespaceUrl AsString = "http://www.xxx.com" ‘验证xsd需要用到的namespaceUrl
            writer.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)
            Dim dv As DataView = cn.getData.DefaultView()
            If dv.Count > 0ThenForEach item As DataRowView In dv
                    writer.WriteStartElement("firstNode7")
                    writer.WriteElementString("secondNode1", values)
                    writer.WriteElementString("secondNode2", values)
                    writer.WriteElementString("secondNode3", values)
                
                    Dim dv2 As DataView = cn.getData2(item("firstNode6Id")).DefaultView()
                    If dv2.Count > 0ThenForEach itemRMDetails As DataRowView In dvRMDetails
                            writer.WriteStartElement("secondNode4")
                            writer.WriteStartElement("thridNode1")
                            writer.WriteElementString("thridNode2", values)
                            writer.WriteEndElement() ‘关闭secondNode4
                            writer.WriteEndElement() ‘关闭thridNode1NextElse
                        writer.WriteStartElement("secondNode4")
                        writer.WriteStartElement("thridNode1")
                        writer.WriteElementString("thridNode2", "")
                        writer.WriteEndElement() ‘关闭secondNode4
                        writer.WriteEndElement() ‘关闭thridNode1EndIf
                    writer.WriteEndElement() ‘关闭firstNode7Next
　　　　　　　Else
                   ‘WriteLog Function
            EndIf
            writer.WriteEndElement()
            writer.WriteEndDocument() ‘
            writer.Close()  ‘将XML写入文件并关闭writerReturnTrueCatch ex As Exception
            ReturnFalseEndTryEnd Function

 

原文：http://www.cnblogs.com/zzglyl/p/4760066.html

内容总结

以上是互联网集市为您收集整理的VB 生成xml文件 并使用xsd验证全部内容，希望文章能够帮你解决VB 生成xml文件 并使用xsd验证所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1077251.html

来源：【匿名】