Использование Linq для выбора нескольких значений с отражением VB.NET
Я экспериментирую с некоторым LINQ, в котором мне бы хотелось, чтобы мои фильтры динамически загружались во время выполнения и чтобы набор результатов возвращался в виде двумерного списка:
На данный момент я могу вернуть значение Link, но не могу сопоставить его с типом.
Мой JSON выглядит так
{
"Name": "Steve Jobs",
"Email": [
{
"Type": "Google",
"Link": "[email protected]",
"altLink": "[email protected]"
},
{
"Type": "Google",
"Link": "[email protected]",
"altLink": "[email protected]"
},
{
"Type": "iCloud",
"Link": "[email protected]"
},
{
"Type": "iCloud",
"Link": "[email protected]"
},
{
"Type": "AO",
"Link": "[email protected]"
}
]
}
и это переводится в такую же структуру классов VB.Net.
LINQ, который у меня есть до сих пор, просто возвращает значение Link:
Dim addressType As List(Of String) = Nothing
addressType.Add("Google")
addressType.Add("iCloud")
dim columnName as string = "Link"
Dim ResultDataSet = Person.Email _
.Where(Function(emailType) addressType.Contains(emailType.Type)) _
.Select(Function(LinkData) LinkData.GetType().GetProperty(columnName).GetValue(LinkData)) _
.ToList()
Приведенный выше код выглядит довольно плохо, но функции и данные передаются в программе, и я просто написал все с переменными, чтобы это выглядело проще.
@GertArnold - этот код не работает
@GertArnold Мне кажется, проблема в том, что текущий код возвращает только «Ссылку», тогда как он должен возвращать пару «Тип» и «Ссылка».
Написанный код только пытается получить «Ссылку». Что еще вы пытались получить также «Тип»? Кажется, это должна быть простая модификация вашего Select.
И Where, и Select передаются предикаты с одной и той же сигнатурой, поэтому использование emailType и LinkData сбивает с толку — аргументы одного типа.
@Craig - Кажется, я не могу выбрать, чтобы вернуть оба? Это та часть, над которой я борюсь.
Если вы хотите вернуть его как объединенную строку, у вас есть LinkData в качестве аргумента лямбды в Select, поэтому просто добавьте LinkData.Type. Вы можете использовать ToString при возврате из вызова свойства, он всегда определен в Object и должен быть идентификационной функцией, если тип String.
Или просто верните их обоих в кортеж.
Ответы 1
Вы можете получить как тип, так и ссылку, используя кортеж:
Dim ResultDataSet = Person.Email.
Where(Function(e) addressType.Contains(e.Type)).
Select(Function(e) (e.Type, e.Link)).
ToList()
For Each result In ResultDataSet
Console.WriteLine($"Type: {result.Type}, Link: {result.Link}")
Next
Альтернативно вы можете сериализовать свой json в классы .NET:
Imports System.Text.Json ' (NuGet Package)
' model
Public Class Person
Public Property Name As String
Public Property Email() As Email
End Class
Public Class Email
Public Property Type As String
Public Property Link As String
Public Property altLink As String
End Class
Using s As New FileStream("filename.json", FileMode.Open)
Dim person = JsonSerializer.Deserialize(Of Person)(s)
Dim addressTypes As New List(Of String) From {"Google", "iCloud"}
Dim results = person.Email.Where(Function(e) addressTypes.Contains(e.Type)).ToList()
For Each result In results
Debug.WriteLine($"Type: {result.Type}, Link: {result.Link}")
Next
End Using
В любом случае вывод один и тот же:
Введите: Google, Ссылка: [email protected].
Тип: Google, ссылка: [email protected].
Тип: iCloud, ссылка: [email protected]
Тип: iCloud, ссылка: [email protected]
Кстати, этот код не будет работать, поскольку вы пытаетесь добавить его в список, который имеет значение NULL. Составьте список...
Dim addressType As List(Of String) = Nothing
addressType.Add("Google")
addressType.Add("iCloud")
Я голосую за закрытие этого вопроса, поскольку запросы на проверку существующего рабочего кода относятся к разделу Проверка кода.