Как перевести `VB.NET` код c лямбда-выражениями в код с циклами

Проект под .NET 3.5 в Visual Studio 2008, это продолжение этого вопроса про сериализацию/десериализацию и динамически меняющиеся свойства JSON.
В этом ответе имеется решение вопроса несовместимости форматов сериализаторов, которое состоит в том что по умолчанию Newtonsoft.Json сохраняет публичные свойства в JSON, а DataContractJsonSerializer сохраняет приватные свойства. Соответственно сериализация одного и того же объекта дает разный результат.
Для DataContractJsonSerializer
{ "ExProperty": { "_disabled": false, "_el_class": null, "_enum_values": [], "_id": "124", "_inline_script": null, "_inline_style": null, "_innerHTML": null, "_input_max": 0, "_input_min": 0, "_input_min_zero": false, "_input_subtype": null, "_nolabel": true, "_onclick": null, "_order": 0, "_parent_wrapp_class": "rrrrrrr", "_placeholder": null, "_value": null, "_width": 0, "_wrapp_class": null, "_wrapp_col_md": 55, "_wrapp_label_class": "eeee", "_dt_append": null, "_dt_append_name": null, "_dt_name": null, "_fieldSet": [ "qqqqqqqqqqqqq", "aaaaaaaaaaa", "ssssssssssssss", "dddddddddddddd", "fgfffffffffffffffffff" ], "_fieldset_name": "aaaaaaaaaaa", "_isfiltr": false, "_lbl": null, "_lbl_short": null, "_lkp_filter": null, "_lkp_idas": null, "_lkp_nameas": null, "_lkp_table": null, "_req": false, "_sh_in_add": false, "_sh_in_edit": false, "_sh_in_list": false, "_type": null }, "PropertyOne": "значение 1", "PropertyThree": null, "PropertyTwo": "значение 2" }
Для Newtonsoft.Json
{ "PropertyOne": "значение 1", "PropertyTwo": "значение 2", "PropertyThree": null, "ExProperty": { "fieldSets": [ "qqqqqqqqqqqqq", "aaaaaaaaaaa", "ssssssssssssss", "dddddddddddddd", "fgfffffffffffffffffff" ], "fieldset_name": "aaaaaaaaaaa", "lbl": null, "lbl_short": null, "type": 0, "req": false, "lkp_table": null, "lkp_nameas": null, "lkp_idas": null, "lkp_filter": null, "dt_name": null, "dt_append_name": null, "dt_append": null, "sh_in_edit": false, "sh_in_add": false, "sh_in_list": false, "isfiltr": false, "order": 0, "wrapp_col_md": 55, "parent_wrapp_class": "rrrrrrr", "wrapp_class": null, "wrapp_label_class": "eeee", "el_class": null, "value": null, "innerHTML": null, "placeholder": null, "nolabel": true, "width": 0, "onClick": null, "inlineStyle": null, "Disabled": false, "Id": "124", "inlineScript": null, "inputSubtype": null, "InputMinZero": false, "inputMin": 0, "inputMax": 0, "EnumValues": [] } }
Требуется переписать класс из ответа, так чтобы он компилировался в 2008 студии.
Imports System.Reflection Imports Newtonsoft.Json Imports Newtonsoft.Json.Serialization
Public Class MyContractResolver Inherits DefaultContractResolver Protected Overrides Function CreateProperties(type As Type, memberSerialization As MemberSerialization) As IList(Of JsonProperty) Dim props = type.GetProperties(BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance). Select(Function(p) MyBase.CreateProperty(p, memberSerialization)). Union(type.GetFields(BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance). Select(Function(f) MyBase.CreateProperty(f, memberSerialization))).ToList()
props.ForEach(Sub(p) p.Writable = True p.Readable = True End Sub) Return props End Function End Class
Сейчас код не воспринимается, ибо нет таких конструкций в 2008 версии.

Ответ

Попробуйте такой вариант, должно сработать:
Imports System.Reflection Imports Newtonsoft.Json Imports Newtonsoft.Json.Serialization
Public Class MyContractResolver Inherits DefaultContractResolver Protected Overrides Function CreateProperties(ByVal type As Type, ByVal memberSerialization As MemberSerialization) As IList(Of JsonProperty) Dim props As New List(Of JsonProperty)()
Dim propsInfo As PropertyInfo() = type.GetProperties(BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance)
For Each pi As PropertyInfo In propsInfo Dim jp = MyBase.CreateProperty(pi, memberSerialization) If Not props.Contains(jp) Then props.Add(jp) End If Next
Dim fieldsInfo As FieldInfo() = type.GetFields(BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance)
For Each pi As FieldInfo In fieldsInfo Dim jp = MyBase.CreateProperty(pi, memberSerialization) If Not props.Contains(jp) Then props.Add(jp) End If Next
For Each p As JsonProperty In props p.Writable = True p.Readable = True Next
Return props End Function End Class