Hola a tod@s,
En el dia de hoy, hoy voy a traer un pequeño codigo para serializar una clase en una cadena con formato JSON, para poder usarla en servicios web o donde lo necesitemos, como vereis es muy sencillo.
Lo primero de todo, tenemos instalar un paquete llamado Newtonsoft, sino sabes como hacerlo puedes verlo aqui, tras instalar el paquete NuGet hay que importar los espacios de nombre:
|
1 2 |
Imports Newtonsoft.Json Imports Newtonsoft.Json.Converters |
Despues necesitamos tener los valores en una clase, para poder serializarla:
|
1 2 3 4 |
Public Class Persona Public Nombre As String Public Apellidos As String End Class |
Vamos a rellenar un array con nuestra clase de Personas, en este caso vamos a crear 2 elementos:
|
1 2 3 4 5 6 7 8 9 |
Dim arrayPersonas(1) As Persona arrayPersonas(0) = New Persona arrayPersonas(0).Nombre = "Cesar" arrayPersonas(0).Apellidos = "Perez" arrayPersonas(1) = New Persona arrayPersonas(1).Nombre = "Manolo" arrayPersonas(1).Apellidos = "Garcia" |
Por ultimo vamos a llamar al siguiente metodo para que nos serialize:
|
1 |
Dim json As String = JsonConvert.SerializeObject(arrayPersonas, New Newtonsoft.Json.Converters.IsoDateTimeConverter()) |
El resultado de la variable json seria el siguiente:
|
1 2 3 4 5 6 7 8 9 10 |
[ { "Nombre": "Cesar", "Apellidos": "Perez" }, { "Nombre": "Manolo", "Apellidos": "Garcia" } ] |
Si quieres mas informacion acerca de Newtonsoft, visita este enlace.
Saludos
