Aggregate – klauzule (Visual Basic)

Použije jednu nebo více agregačních funkcí na kolekci.

Syntaxe

Aggregate element [As type] In collection _  
  [, element2 [As type2] In collection2, [...]]  
  [ clause ]  
  Into expressionList  

Součástky

Poznámky

Klauzuli Aggregate lze použít k zahrnutí agregačních funkcí do dotazů. Agregační funkce provádějí kontroly a výpočty nad sadou hodnot a vracejí jednu hodnotu. K vypočítané hodnotě můžete přistupovat pomocí člena typu výsledku dotazu. Standardní agregační funkce, které můžete použít, jsou Allfunkce , Any, LongCountAverageCount, , Max, Mina Sum funkce. Tyto funkce jsou známé vývojářům, kteří jsou obeznámeni s agregacemi v SQL. Jsou popsány v následující části tohoto tématu.

Výsledek agregační funkce je součástí výsledku dotazu jako pole typu výsledku dotazu. Můžete zadat alias pro výsledek agregační funkce a zadat název člena typu výsledku dotazu, který bude obsahovat agregační hodnotu. Pokud není zadán žádný alias, použije se název agregační funkce.

Klauzule Aggregate může začínat dotaz nebo může být zahrnuta jako další klauzule v dotazu. Aggregate Pokud klauzule zahájí dotaz, výsledkem je jedna hodnota, která je výsledkem agregační funkce zadané v Into klauzuli. Pokud je v Into klauzuli zadáno více než jedna agregační funkce, vrátí dotaz jeden typ s samostatnou vlastností, která odkazuje na výsledek každé agregační funkce v Into klauzuli. Aggregate Pokud je klauzule zahrnuta jako další klauzule v dotazu, typ vrácený v kolekci dotazů bude mít samostatnou vlastnost odkazovat na výsledek každé agregační funkce v Into klauzuli.

Agregační funkce

Níže jsou uvedené standardní agregační funkce, které lze použít s klauzulí Aggregate .

Vše

Vrátí true , pokud všechny prvky v kolekci splňují zadanou podmínku; jinak vrátí false. Následuje příklad:

Dim customerList1 = Aggregate order In orders
                    Into AllOrdersOver100 = All(order.Total >= 100)

Všechny

Vrátí true , pokud některý prvek v kolekci splňuje zadanou podmínku; jinak vrátí false. Následuje příklad:

Dim customerList2 = From cust In customers
                    Aggregate order In cust.Orders
                    Into AnyOrderOver500 = Any(order.Total >= 500)

Průměr

Vypočítá průměr všech prvků v kolekci nebo vypočítá zadaný výraz pro všechny prvky v kolekci. Následuje příklad:

Dim customerOrderAverage = Aggregate order In orders
                           Into Average(order.Total)

Počet

Spočítá počet prvků v kolekci. Můžete zadat volitelný Boolean výraz pro počítání pouze počtu prvků v kolekci, které splňují podmínku. Následuje příklad:

Dim customerOrderAfter1996 = From cust In customers
                             Aggregate order In cust.Orders
                             Into Count(order.OrderDate > #12/31/1996#)

Seskupit

Odkazuje na výsledky dotazu seskupené jako výsledek Group By klauzule nebo Group Join klauzule. Funkce Group je platná pouze v klauzuli IntoGroup By nebo Group Join klauzuli. Další informace a příklady naleznete v tématu Klauzule Group By a Group Join Klauzule.

LongCount

Spočítá počet prvků v kolekci. Můžete zadat volitelný Boolean výraz pro počítání pouze počtu prvků v kolekci, které splňují podmínku. Vrátí výsledek jako Long. Příklad najdete v Count agregační funkci.

Maximum

Vypočítá maximální hodnotu z kolekce nebo vypočítá zadaný výraz pro všechny prvky v kolekci. Následuje příklad:

Dim customerMaxOrder = Aggregate order In orders
                       Into MaxOrder = Max(order.Total)

Min.

Vypočítá minimální hodnotu z kolekce nebo vypočítá zadaný výraz pro všechny prvky v kolekci. Následuje příklad:

Dim customerMinOrder = From cust In customers
                       Aggregate order In cust.Orders
                       Into MinOrder = Min(order.Total)

Sum

Vypočítá součet všech prvků v kolekci nebo vypočítá zadaný výraz pro všechny prvky v kolekci. Následuje příklad:

Dim customerTotals = From cust In customers
                     Aggregate order In cust.Orders
                     Into Sum(order.Total)

Příklad

Následující příklad ukazuje, jak použít Aggregate klauzuli k použití agregačních funkcí na výsledek dotazu.

Public Sub AggregateSample()
    Dim customers = GetCustomerList()

    Dim customerOrderTotal =
        From cust In customers
        Aggregate order In cust.Orders
        Into Sum(order.Total), MaxOrder = Max(order.Total),
        MinOrder = Min(order.Total), Avg = Average(order.Total)

    For Each customer In customerOrderTotal
        Console.WriteLine(customer.cust.CompanyName & vbCrLf &
                         vbTab & "Sum = " & customer.Sum & vbCrLf &
                         vbTab & "Min = " & customer.MinOrder & vbCrLf &
                         vbTab & "Max = " & customer.MaxOrder & vbCrLf &
                         vbTab & "Avg = " & customer.Avg.ToString("#.##"))
    Next
End Sub

Vytváření uživatelem definovaných agregačních funkcí

Do výrazu dotazu můžete zahrnout vlastní agregační funkce přidáním rozšiřujících metod do IEnumerable<T> typu. Vlastní metoda pak může provést výpočet nebo operaci s výčtovou kolekcí, která odkazovala na agregační funkci. Další informace o metodách rozšíření naleznete v tématu Metody rozšíření.

Následující příklad například ukazuje vlastní agregační funkci, která vypočítá medián hodnoty kolekce čísel. Existují dvě přetížení Median metody rozšíření. První přetížení přijímá jako vstup kolekci typu IEnumerable(Of Double). Median Pokud je agregační funkce volána pro pole dotazu typu Double, bude volána tato metoda. Druhé přetížení Median metody lze předat libovolný obecný typ. Obecná přetížení Median metody přebírá druhý parametr, který odkazuje na Func(Of T, Double) výraz lambda na projektování hodnoty pro typ (z kolekce) jako odpovídající hodnotu typu Double. Pak deleguje výpočet mediánu na druhé přetížení Median metody. Další informace o výrazech lambda najdete v tématu Výrazy lambda.

Imports System.Runtime.CompilerServices

Module UserDefinedAggregates

    ' Calculate the median value for a collection of type Double.
    <Extension()>
    Function Median(ByVal values As IEnumerable(Of Double)) As Double
        If values.Count = 0 Then
            Throw New InvalidOperationException("Cannot compute median for an empty set.")
        End If

        Dim sortedList = From number In values
                         Order By number

        Dim medianValue As Double

        Dim itemIndex = CInt(Int(sortedList.Count / 2))

        If sortedList.Count Mod 2 = 0 Then
            ' Even number of items in list.
            medianValue = ((sortedList(itemIndex) + sortedList(itemIndex - 1)) / 2)
        Else
            ' Odd number of items in list.
            medianValue = sortedList(itemIndex)
        End If

        Return medianValue
    End Function

    ' "Cast" the collection of generic items as type Double and call the 
    ' Median() method to calculate the median value.
    <Extension()>
    Function Median(Of T)(ByVal values As IEnumerable(Of T),
                          ByVal selector As Func(Of T, Double)) As Double
        Return (From element In values Select selector(element)).Median()
    End Function

End Module

Následující příklad ukazuje ukázkové dotazy, které volají Median agregační funkci pro kolekci typu Integera kolekci typu Double. Dotaz, který volá Median agregační funkci pro kolekci typů Double volá přetížení Median metody, která přijímá jako vstup kolekci typu Double. Dotaz, který volá Median agregační funkci v kolekci typu Integer volá obecné přetížení Median metody.

Module Module1

    Sub Main()
        Dim numbers1 = {1, 2, 3, 4, 5}

        Dim query1 = Aggregate num In numbers1 Into Median(num)

        Console.WriteLine("Median = " & query1)

        Dim numbers2 = {1.9, 2, 8, 4, 5.7, 6, 7.2, 0}

        Dim query2 = Aggregate num In numbers2 Into Median()

        Console.WriteLine("Median = " & query2)
    End Sub

End Module

Viz také

• Úvod do LINQ v jazyce Visual Basic
• Dotazy
• Klauzule Select
• Klauzule From
• Klauzule Where
• Klauzule Group By