首页 > 代码库 > VB.NET 从XML文件中读取内容到JSON

VB.NET 从XML文件中读取内容到JSON

一、关于本文

本文承接了上一篇博客的内容。在上篇博客中,通过函数WriteJsonToXml将一个JSON格式的文件写入了一个对应的XML文件中。本文中则给出了函数RecoverJsonFromXml的代码,可以将XML恢复成JSON格式的文本。

运行本文中代码的环境与上篇博客相同。

待读取的XML文档内容如下:

<?xml version="1.0" encoding="gb2312"?>
<!--这个XML文档中存储了一个JSON格式的信息-->
<Root>
  <Name Type="String" Value=http://www.mamicode.com/"Tsybius" />> 

二、函数RecoverJsonFromXml

这两个函数被声明在类JsonXmlHelper中

‘‘‘ <summary>
‘‘‘ 将XML格式的内容存储到JSON格式的字符串中
‘‘‘ </summary>
‘‘‘ <param name="address">要读取的XML文件地址</param>
‘‘‘ <remarks></remarks>
Public Shared Function RecoverJsonFromXml(address As String) As String

    Dim xmlDoc = New XmlDocument
    xmlDoc.Load(address)
    Dim xmlRoot As XmlNode = xmlDoc.SelectSingleNode("Root")
    Dim jtemp As JObject = WriteToJson(xmlRoot)
    Return JsonConvert.SerializeObject(jtemp, Newtonsoft.Json.Formatting.Indented)

End Function

‘‘‘ <summary>
‘‘‘ 中XmlNode类型中读取一个JObject类型数据的信息
‘‘‘ </summary>
‘‘‘ <param name="xNode">XML结点类型数据</param>
‘‘‘ <returns>JObject类型数据</returns>
‘‘‘ <remarks></remarks>
Private Shared Function WriteToJson(xNode As XmlNode) As JObject

    Dim jobj As New JObject
    For Each obj As Object In xNode.ChildNodes

        If obj.GetType.ToString = "System.Xml.XmlElement" Then

            ‘读取到XML结点
            Dim xElmt As XmlElement = obj
            Select Case xElmt.GetAttribute("Type")
                Case "String"  ‘字符串型变量
                    jobj.Add(xElmt.Name, xElmt.GetAttribute("Value"))
                Case "Integer" ‘整型变量
                    jobj.Add(xElmt.Name, Integer.Parse(xElmt.GetAttribute("Value")))
                Case "Float"   ‘浮点型变量
                    jobj.Add(xElmt.Name, Double.Parse(xElmt.GetAttribute("Value")))
                Case "Boolean" ‘布尔型变量
                    jobj.Add(xElmt.Name, IIf(xElmt.GetAttribute("Value") = "True",
                        New JValue(True), New JValue(False)))
                Case "Array"   ‘JSON数组
                    Dim jarr As JArray = New JArray()
                    For i As Integer = 0 To xElmt.Attributes.Count - 2
                        jarr.Add(New JValue(xElmt.GetAttribute("Value" & i.ToString)))
                    Next
                    jobj.Add(xElmt.Name, jarr)
                Case "Object"  ‘JSON对象
                    jobj.Add(xElmt.Name, WriteToJson(obj))
            End Select

        ElseIf obj.GetType.ToString = "System.Xml.XmlComment" Then
            ‘读取到注释
            Continue For
        Else
            ‘其他情况
            Continue For
        End If

    Next
    Return jobj

End Function

三、调用示例

Main代码

Sub Main()

    Dim sJson As String = JsonXmlHelper.RecoverJsonFromXml("x.xml")
    Console.WriteLine(sJson)

    Console.ReadLine()

End Sub

四、运行结果


END