Enumerable.All<TSource> 方法

定義

判斷序列的所有項目是否全都符合條件。

public:
generic <typename TSource>
[System::Runtime::CompilerServices::Extension]
 static bool All(System::Collections::Generic::IEnumerable<TSource> ^ source, Func<TSource, bool> ^ predicate);
public static bool All<TSource> (this System.Collections.Generic.IEnumerable<TSource> source, Func<TSource,bool> predicate);
static member All : seq<'Source> * Func<'Source, bool> -> bool
<Extension()>
Public Function All(Of TSource) (source As IEnumerable(Of TSource), predicate As Func(Of TSource, Boolean)) As Boolean

類型參數

TSource

source 項目的類型。

參數

source
IEnumerable<TSource>

IEnumerable<T>,其中包含要套用述詞 (Predicate) 的項目。

predicate
Func<TSource,Boolean>

用來測試每個項目是否符合條件的函式。

傳回

如果來源序列的每個項目都通過以指定之述詞 (Predicate) 進行的測試,或序列是空的,則為 true,否則為 false

例外狀況

sourcepredicatenull

範例

下列程式碼範例示範如何使用 All 來判斷序列中的所有專案是否符合條件。 如果所有寵物名稱都是以 「B」 開頭,或陣列是空的, pets 則變數 allStartWithB 為 true。

class Pet
{
    public string Name { get; set; }
    public int Age { get; set; }
}

public static void AllEx()
{
    // Create an array of Pets.
    Pet[] pets = { new Pet { Name="Barley", Age=10 },
                   new Pet { Name="Boots", Age=4 },
                   new Pet { Name="Whiskers", Age=6 } };

    // Determine whether all pet names
    // in the array start with 'B'.
    bool allStartWithB = pets.All(pet =>
                                      pet.Name.StartsWith("B"));

    Console.WriteLine(
        "{0} pet names start with 'B'.",
        allStartWithB ? "All" : "Not all");
}

// This code produces the following output:
//
//  Not all pet names start with 'B'.
Structure Pet
    Public Name As String
    Public Age As Integer
End Structure

Sub AllEx()
    ' Create an array of Pets.
    Dim pets() As Pet =
{New Pet With {.Name = "Barley", .Age = 2},
 New Pet With {.Name = "Boots", .Age = 4},
 New Pet With {.Name = "Whiskers", .Age = 7}}

    ' Determine whether all pet names in the array start with "B".
    Dim allNames As Boolean =
pets.All(Function(ByVal pet) pet.Name.StartsWith("B"))

    ' Display the output.
    Dim text As String = IIf(allNames, "All", "Not all")
    Console.WriteLine($"{text} pet names start with 'B'.")
End Sub

' This code produces the following output:
'
' Not all pet names start with 'B'.

方法傳回的布林值 All 通常用於 Visual Basic 中子句的述詞 (子句) Where 或直接呼叫 Wherewhere 方法。 下列範例示範這個 方法的使用 All 方式。

class Pet
{
    public string Name { get; set; }
    public int Age { get; set; }
}
class Person
{
    public string LastName { get; set; }
    public Pet[] Pets { get; set; }
}

public static void AllEx2()
{
    List<Person> people = new List<Person>
        { new Person { LastName = "Haas",
                       Pets = new Pet[] { new Pet { Name="Barley", Age=10 },
                                          new Pet { Name="Boots", Age=14 },
                                          new Pet { Name="Whiskers", Age=6 }}},
          new Person { LastName = "Fakhouri",
                       Pets = new Pet[] { new Pet { Name = "Snowball", Age = 1}}},
          new Person { LastName = "Antebi",
                       Pets = new Pet[] { new Pet { Name = "Belle", Age = 8} }},
          new Person { LastName = "Philips",
                       Pets = new Pet[] { new Pet { Name = "Sweetie", Age = 2},
                                          new Pet { Name = "Rover", Age = 13}} }
        };

    // Determine which people have pets that are all older than 5.
    IEnumerable<string> names = from person in people
                                where person.Pets.All(pet => pet.Age > 5)
                                select person.LastName;

    foreach (string name in names)
    {
        Console.WriteLine(name);
    }

    /* This code produces the following output:
     *
     * Haas
     * Antebi
     */
}
Structure Pet
    Public Name As String
    Public Age As Integer
End Structure

Structure Person
    Public LastName As String
    Public Pets() As Pet
End Structure

Sub AllEx2()
    Dim people As New List(Of Person)(New Person() _
{New Person With {.LastName = "Haas",
                  .Pets = New Pet() {New Pet With {.Name = "Barley", .Age = 10},
                                     New Pet With {.Name = "Boots", .Age = 14},
                                     New Pet With {.Name = "Whiskers", .Age = 6}}},
  New Person With {.LastName = "Fakhouri",
                   .Pets = New Pet() {New Pet With {.Name = "Snowball", .Age = 1}}},
  New Person With {.LastName = "Antebi",
                   .Pets = New Pet() {New Pet With {.Name = "Belle", .Age = 8}}},
  New Person With {.LastName = "Philips",
                   .Pets = New Pet() {New Pet With {.Name = "Sweetie", .Age = 2},
                                      New Pet With {.Name = "Rover", .Age = 13}}}})

    ' Determine which people have pets that are all older than 5.
    Dim names = From person In people
                Where person.Pets.All(Function(pet) pet.Age > 5)
                Select person.LastName

    For Each name As String In names
        Console.WriteLine(name)
    Next

    ' This code produces the following output:
    '
    ' Haas
    ' Antebi

End Sub

備註

注意

這個方法不會傳回集合的所有專案。 相反地,它會判斷集合的所有專案是否符合條件。

只要判斷結果,就會停止 列舉 source

在 Visual Basic 查詢運算式語法中, Aggregate Into All() 子句會轉譯為 的 All 調用。

適用於

另請參閱