COMO: Serializar e anular a serialização de XML no Visual Basic .NET

Voltar ao topo

Requisitos

• Microsoft Visual Studio .NET

• Microsoft Visual Basic .NET
• XML

Voltar ao topo

Descrição da serialização de XML

Voltar ao topo

Criar a aplicação da consola no Visual Basic .NET

• Deserializes um objecto para XML.
• Guarda a serialização de XML num ficheiro de texto.
• Lê o XML no ficheiro de texto para criar um novo objecto (anulação da serialização).

1. Siga estes passos para criar uma nova aplicação de consola no Visual Basic. NET:
   1. Inicie o Visual Studio NET..
   2. No menu ficheiro , aponte para Novo e, em seguida, clique em projecto .
   3. Na caixa de diálogo Novo projecto , clique em Projectos do Visual Basic em Project Types e, em seguida, clique em Aplicação de consola em modelos .
2. Siga estes passos para adicionar uma nova classe ao projecto:
   1. No menu projecto , clique em Adicionar classe .
   2. Na caixa de diálogo Adicionar novo item , escreva clsProduct.vb na caixa de texto nome e, em seguida, clique em Abrir .
3. Substitua o código na janela de código clsProduct.vb com o seguinte código:

   Public Class clsProduct
   
     Private mstrName As String
     Private mstrDescription As String
     Private mintQty As Integer
   
     Public Property Name() As String
       Get
         Name = mstrName
       End Get
       Set(ByVal Value As String)
         mstrName = Value
       End Set
     End Property
   
     Public Property Description() As String
       Get
         Description = mstrDescription
       End Get
       Set(ByVal Value As String)
         mstrDescription = Value
       End Set
     End Property
   
     Public Property Qty() As Integer
       Get
         Qty = mintQty
       End Get
       Set(ByVal Value As Integer)
         mintQty = Value
       End Set
     End Property
   
   End Class
   						

   este código cria uma classe de produtos com três propriedades: nome , Descrição e Qtd. (quantidade).
4. Mude para a janela de código para Module1.vb e, em seguida, adicione o código seguinte à parte superior da janela de código:

   Imports System.IO
   Imports System.Xml.Serialization
   					

5. No procedimento Sub Main , adicione o seguinte código para criar e preencher uma instância da classe clsProduct :

       'Set up product object.
       Dim p As New clsProduct()
       p.Name = "Widget"
       p.Description = "Faster, better, cheaper"
       p.Qty = 5
   					

6. Utilize o objecto de XmlSerializer serializar o objecto para XML e guardar o estado do objecto para um ficheiro de texto. Para efectuar este procedimento, adicione o seguinte código imediatamente antes a instrução ' End Sub procedimento Sub Main :

       'Serialize object to a text file.
       Dim objStreamWriter As New StreamWriter("C:\Product.xml")
       Dim x As New XmlSerializer(p.GetType)
       x.Serialize(objStreamWriter, p)
       objStreamWriter.Close()
   					

7. No menu Debug , clique em Iniciar para executar a aplicação.
8. Abra o ficheiro Product.xml no bloco de notas ou no Microsoft Internet Explorer. O conteúdo deste ficheiro deverá apresentado da seguinte forma:

   <?xml version="1.0" encoding="utf-8"?>
   <clsProduct xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
     <Name>Widget</Name>
     <Description>Faster, better, cheaper</Description>
     <Qty>5</Qty>
   </clsProduct>
   						

9. O espaço de nomes Xml.Serialization permite-lhe personalizar o resultado que gera a classe de XmlSerializer . Por exemplo, classe clsProduct , o campo ' Quantidade ' é abreviado como Qtd. Pode utilizar o atributo XmlElementAttribute para alterar o campo a quantidade ao serializar a classe.
   
   Mude para a janela código clsProduct.vb e, em seguida, adicione o código seguinte à parte superior da janela de código:

   Imports System.Xml.Serialization
   					

10. Localize o procedimento de propriedade para Qtd. e, em seguida, insira o seguinte código imediatamente antes a instrução Pública propriedades qty() As Integer :

    <XmlElementAttribute(ElementName:="Quantity")> _
    					

11. No menu Debug , clique em Iniciar para executar a aplicação.
12. Abra o ficheiro Product.xml no bloco de notas ou no Internet Explorer. O conteúdo deste ficheiro deve aparece da seguinte forma:

    <?xml version="1.0" encoding="utf-8"?>
    <clsProduct xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
      <Name>Widget</Name>
      <Description>Faster, better, cheaper</Description>
      <Quantity>5</Quantity>
    </clsProduct>
    							

    Repare que o elemento de Qtd. alterado a quantidade .
13. Mude para a janela de código para Module1.vb e, em seguida, adicione o seguinte código ao procedimento Sub Main imediatamente antes a instrução ' End Sub :

        'Deserialize text file to a new object.
        Dim objStreamReader As New StreamReader("C:\Product.xml")
        Dim p2 As New clsProduct()
        p2 = x.Deserialize(objStreamReader)
        objStreamReader.Close()
    
        'Display property values of the new product object.
        Console.WriteLine(p2.Name)
        Console.WriteLine(p2.Description)
        Console.WriteLine(CStr(p2.Qty))
        Console.ReadLine()
    						

    este código deserializes o ficheiro de texto Product.xml para criar um novo objecto clsProduct denominado p2. Além disso, este código apresenta os valores de propriedade de p2 na janela de consola.

Voltar ao topo

Verificar se funciona

Widget
Faster, better, cheaper
5
					

Voltar ao topo

Concluir lista de código

'Module1.vb
Imports System.Xml.Serialization
Imports System.IO

Module Module1

  Sub Main()
    
    'Set up product object.
    Dim p As New clsProduct()
    p.Name = "Widget"
    p.Description = "Faster, better, cheaper"
    p.Qty = 5

    'Serialize object to a text file.
    Dim objStreamWriter As New StreamWriter("C:\Product.xml")
    Dim x As New XmlSerializer(p.GetType)
    x.Serialize(objStreamWriter, p)
    objStreamWriter.Close()

    'Deserialize text file to a new object.
    Dim objStreamReader As New StreamReader("C:\Product.xml")
    Dim p2 As New clsProduct()
    p2 = x.Deserialize(objStreamReader)
    objStreamReader.Close()

    'Display property values of the new product object.
    Console.WriteLine(p2.Name)
    Console.WriteLine(p2.Description)
    Console.WriteLine(CStr(p2.Qty))
    Console.ReadLine()

  End Sub

End Module

'clsProduct.vb
Imports System.Xml.Serialization

Public Class clsProduct

  Private mstrName As String
  Private mstrDescription As String
  Private mintQty As Integer

  Public Property Name() As String
    Get
      Name = mstrName
    End Get
    Set(ByVal Value As String)
      mstrName = Value
    End Set
  End Property

  Public Property Description() As String
    Get
      Description = mstrDescription
    End Get
    Set(ByVal Value As String)
      mstrDescription = Value
    End Set
  End Property

  <XmlElementAttribute(ElementName:="Quantity")> _
  Public Property Qty() As Integer
    Get
      Qty = mintQty
    End Get
    Set(ByVal Value As Integer)
      mintQty = Value
    End Set
  End Property

End Class
				

Voltar ao topo