2

Есть такой код:

  • Как используя LINQ объединить эти списки?
  • Или возможно как то это без LINQ можно просто сделать?
Dim a As New List(Of Integer)
Dim b As New List(Of Integer)
Dim c As New List(Of Integer)

a.Add(1)
b.Add(2)
c.Add(3)
5
  • И за что минус? 2 дек 2019 в 12:30
  • 2
    Наверное, на неясную формулировку. Под объединением имеется в виду join или concatenation? Join здесь не получится, значения ключей различны, соединить списки не получится. Concatenate получится, но для него LINQ вообще не нужен. В целом, про что вопрос, не ясно. 2 дек 2019 в 12:48
  • Имелось ввиду UNION 2 дек 2019 в 13:21
  • @MarkShevchenko обычно если в вопросе есть неясность то ее уточняют в комментах а не лепят минус как бы. 2 дек 2019 в 13:24
  • Если что, минус ставил не я. Я посмотрел на вопрос и предположил, за что заминусовали. Вы,возможно, и правы, но у вас большой рейтинг, вы не новичок на сайте. Поэтому, видимо, и ожидания к качеству вопроса высокие. 2 дек 2019 в 13:50

3 ответа 3

2

тут выбор из двух вариантов

добавлять в уже существующий массив:

Dim d As New List(Of Integer)
d.AddRange(a)
d.AddRange(b)
d.AddRange(c)

либо соединить в новый объект (функция Concat в отличии от AddRange не меняет объект, на котором вызывается):

Dim d = a.Concat(b).Concat(c).ToList()
5
  • Второй вариант выдает. Дополнительные сведения: Не удалось привести тип объекта "<ConcatIterator>d__59 1[System.Int32]" к типу "System.Collections.Generic.List 1[System.Int32]". 2 дек 2019 в 13:26
  • Первый вариант выдает, выражение не порождает значение. 2 дек 2019 в 13:28
  • прошу прощения, не силен в бейсике. исправил ошибки. 2 дек 2019 в 13:59
  • спасибо вам за правильный ответ. Я поменял отметку что именно ваш ответ правильный. Хотел бы обратить внимание на одну деталь, немного неприятную. Например сказать, я не силен в шарпе, это в 99% случаев будет означать что говорят о C# а не например о F# или J# но говорить о VB.NET что это бейсик, совершенно неверно, ибо под этим словом можно подразумевать очень многое. :) 2 дек 2019 в 19:22
  • Особенно учитывая тот факт что компилятор в Visual Studio 2015 был полностью переписан на языке VB.NET :) 2 дек 2019 в 19:24
2

Воспользуйтесь функцией Union()

Dim result As List(Of Integer) = a.Union(b).Union(c).ToList()
4
  • 1
    И с чего бы union? В вопросе ничего нет про удаление дубликатов.
    – Qwertiy
    2 дек 2019 в 13:49
  • @Qwertiy кстати резонное замечание, если сравнивать с питоном то там простые операции объединения списков дают другой результат... 2 дек 2019 в 14:13
  • @Qwertiy а причем здесь удаление дубликатов. Посмотрите описание функции на MSDN:" Enumerable.Union Метод Пространство имен: System.Linq Сборки: System.Linq.dll, System.Core.dll, netstandard.dll Находит объединение множеств, представленных двумя последовательностями."
    – WinnerIT
    2 дек 2019 в 15:23
  • @WinnerIT, посмотри внимательно на фразу "объединение множеств" - дубликаты удаляются.
    – Qwertiy
    2 дек 2019 в 15:41
0

На выбор:

  • A.Concat(B).Concat(C)
  • { A, B, C }.SelectMany(Function(Y) Y)
Imports System
Imports System.Collections.Generic
Imports System.Linq

Public Module Module1
    Public Sub Main()
        Dim A As New List(Of Integer) From { 1, 2, 3 }
        Dim B As New List(Of Integer) From { 4, 5, 6 }
        Dim C As New List(Of Integer) From { 7, 8, 9 }

        For Each X In A.Concat(B).Concat(C)
            Console.Write("{0} ", X)
        Next X

        Console.WriteLine()

        For Each X In { A, B, C }.SelectMany(Function(Y) Y)
            Console.Write("{0} ", X)
        Next X
    End Sub
End Module

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.