VB.Net Сериализация анонимного типа в XML - PullRequest
Новая
       27

VB.Net Сериализация анонимного типа в XML

2 голосов
/ 08 октября 2010

В MVC я могу сделать что-то вроде следующего для сериализации объекта с анонимным типом в JSON ... 

    Public Function GetStateList() As JsonResult
        Dim MyObject = New With {.Id = 1, .Property = "SomeValue"}
        Return Me.Json(MyObject)
    End Function

, который будет возвращать что-то вроде: 

{
    "Id": 1,
    "Property"SomeValue",
}

IЯ хотел бы сделать то же самое, но вывести xml.Я не смог найти эквивалентный метод.Кто-нибудь, пожалуйста, укажите мне правильное направление?

Большое спасибо

Ответы [ 2 ]

1 голос
/ 08 октября 2010

Согласно ответу Джеймса, нет никакого естественного способа сделать это.Используя Reflector, я изучил System.Web.MVC.dll и выяснил, как это делает MVC.Суть кода ниже.

Private Sub SerializeCustomObject(ByVal o As Object, ByVal sb As StringBuilder, ByVal depth As Integer, ByVal objectsInUse As Hashtable, ByVal serializationFormat As SerializationFormat)
    Dim flag As Boolean = True
    Dim type As Type = o.GetType
    sb.Append("{"c)
    If (Not Me.TypeResolver Is Nothing) Then
        Dim str As String = Me.TypeResolver.ResolveTypeId(type)
        If (Not str Is Nothing) Then
            JavaScriptSerializer.SerializeString("__type", sb)
            sb.Append(":"c)
            Me.SerializeValue(str, sb, depth, objectsInUse, serializationFormat)
            flag = False
        End If
    End If
    Dim info As FieldInfo
    For Each info In type.GetFields((BindingFlags.Public Or BindingFlags.Instance))
        If Not info.IsDefined(GetType(ScriptIgnoreAttribute), True) Then
            If Not flag Then
                sb.Append(","c)
            End If
            JavaScriptSerializer.SerializeString(info.Name, sb)
            sb.Append(":"c)
            Me.SerializeValue(info.GetValue(o), sb, depth, objectsInUse, serializationFormat)
            flag = False
        End If
    Next
    Dim info2 As PropertyInfo
    For Each info2 In type.GetProperties((BindingFlags.GetProperty Or (BindingFlags.Public Or BindingFlags.Instance)))
        If Not info2.IsDefined(GetType(ScriptIgnoreAttribute), True) Then
            Dim getMethod As MethodInfo = info2.GetGetMethod
            If ((Not getMethod Is Nothing) AndAlso (getMethod.GetParameters.Length <= 0)) Then
                If Not flag Then
                    sb.Append(","c)
                End If
                JavaScriptSerializer.SerializeString(info2.Name, sb)
                sb.Append(":"c)
                Me.SerializeValue(getMethod.Invoke(o, Nothing), sb, depth, objectsInUse, serializationFormat)
                flag = False
            End If
        End If
    Next
    sb.Append("}"c)
End Sub

Это довольно очевидно и было достаточно легко конвертировать.

1 голос
/ 08 октября 2010

Короткий ответ: вы не можете, смотрите этот пост .Я рекомендую вам создать конкретный тип для представления структуры вашего анонимного вывода, а затем использовать обычную технику сериализации XML, как в примере, который я привел ниже.

Вот базовый пример того, как использовать это (извинитеэто в синтаксисе C #): 

using (MemoryStream memStream = new MemoryStream())
{
    System.Text.UTF8Encoding utf8 = new System.Text.UTF8Encoding(); 
    // read and convert to byte array
    XmlSerializer serializer = new XmlSerializer( <<yourObject>>.GetType() ); 
    serializer.Serialize( memStream, <<yourObject>>)); 
    string output = utf8.GetString( memStream.ToArray() );
}
...