使用VB.NET解析Google Earth XML数据

Question

下面是返回的XML的简化版本。

<?xml version="1.0" encoding="UTF-8" ?> 
    <kml xmlns="http://earth.google.com/kml/2.0"> 
     <Response> 
      <name>1321 herbert street, Warren, MI</name> 
      <Status> 
       <code>200</code> 
       <request>geocode</request> 
      </Status> 
      <Placemark id="p1"> 
       <address>Herbert St, Madison Heights, MI 48071, USA</address> 
      </Placemark>   
      <Placemark id="p2"> 
       <address>Add2</address> 
      </Placemark> 
     </Response> 
    </kml> 

在previous文章中，我接到了关于如何将这些数据解析为对象的帮助。现在。在尝试读取重复的PLACEMARK节点时，我需要一点点帮助。

这是对象的结构我想读成：

Namespace GoogleAddress 

    Public Class kml 

     Private _Response As Response 

     Public Property Response() As Response 
      Get 
       Return _Response 
      End Get 
      Set(ByVal value As Response) 
       _Response = value 
      End Set 
     End Property 

    End Class 

    Public Class Response 

     Private _name As String 
     Public Property name() As String 
      Get 
       Return _name 
      End Get 
      Set(ByVal value As String) 
       _name = value 
      End Set 
     End Property 

     Private _Status As Status 
     Public Property Status() As Status 
      Get 
       Return _Status 
      End Get 
      Set(ByVal value As Status) 
       _Status = value 
      End Set 
     End Property 

     Private _Placemark() As Placemark 
     ' 
     Public Property Placemark() As Placemark() 
      Get 
       Return _Placemark 
      End Get 
      Set(ByVal value As Placemark()) 
       _Placemark = value 
      End Set 
     End Property 

    End Class 


    Public Class Status 

     Private _Code As Integer 
     Public Property Code() As Integer 
      Get 
       Return _Code 
      End Get 
      Set(ByVal value As Integer) 
       _Code = value 
      End Set 
     End Property 

     Private _Request As String 
     Public Property Request() As String 
      Get 
       Return _Request 
      End Get 
      Set(ByVal value As String) 
       _Request = value 
      End Set 
     End Property 

    End Class 

    Public Class Placemark 

     Private _Address As String 
     Public Property Address() As String 
      Get 
       Return _Address 
      End Get 
      Set(ByVal value As String) 
       _Address = value 
      End Set 
     End Property 

    End Class 

End Namespace 

我用下面的常规反序列化上面显示的XML和填充上述目的：

Public Shared Function DeSerializeFromXMLString(ByVal TypeToDeserialize As System.Type, _ 
                ByVal xmlString As String) As Object 

     Dim bytes() As Byte = System.Text.Encoding.UTF8.GetBytes(xmlString) 
     Dim mem As MemoryStream = New MemoryStream(bytes) 
     Dim ser As System.Xml.Serialization.XmlSerializer = New System.Xml.Serialization.XmlSerializer(GetType(GoogleAddress.kml), "http://earth.google.com/kml/2.0") 
     Dim KmlResult As GoogleAddress.kml = TryCast(ser.Deserialize(mem), GoogleAddress.kml) ' 

     Return KmlResult 

    End Function 

...但是对象没有被正确填充，并且我没有得到任何地标对象（0 len数组）。

任何suggstions？

Answer 1

您需要指定一些属性。

Namespace GoogleAddress 
    Public Class kml 
     Private _Response As Response 
     Public Property Response() As Response 
      Get 
       Return _Response 
      End Get 
      Set(ByVal value As Response) 
       _Response = value 
      End Set 
     End Property 
    End Class 

    Public Class Response 
     Private _name As String 
     Public Property name() As String 
      Get 
       Return _name 
      End Get 
      Set(ByVal value As String) 
       _name = value 
      End Set 
     End Property 

     Private _Status As Status 
     Public Property Status() As Status 
      Get 
       Return _Status 
      End Get 
      Set(ByVal value As Status) 
       _Status = value 
      End Set 
     End Property 

     <Xml.Serialization.XmlElement("Placemark")> Public Placemark As Placemark() 
    End Class 
    Public Class Status 
     Private _Code As Integer 
     Public Property Code() As Integer 
      Get 
       Return _Code 
      End Get 
      Set(ByVal value As Integer) 
       _Code = value 
      End Set 
     End Property 

     Private _Request As String 

     Public Property Request() As String 
      Get 
       Return _Request 
      End Get 
      Set(ByVal value As String) 
       _Request = value 
      End Set 
     End Property 
    End Class 

    Public Class Placemark 
     Private _Address As String 
     Private _ID As String 
     <Xml.Serialization.XmlAttribute("ID")> Public Property ID() As String 
      Get 
       Return _ID 
      End Get 
      Set(ByVal value As String) 
       _ID = value 
      End Set 
     End Property 

     Public Property Address() As String 
      Get 
       Return _Address 
      End Get 
      Set(ByVal value As String) 
       _Address = value 
      End Set 
     End Property 
    End Class 
End Namespace