varient type sequence filter by types

2019-04-17 23:12:04 +08:00 · 2019-04-17 23:12:04 +08:00 · aa8e2b879b
parent 41be5bc2fd
commit aa8e2b879b
1 changed files with 5 additions and 0 deletions
--- a/Extensions/Collection/Enumerable.vb
+++ b/Extensions/Collection/Enumerable.vb
@ -53,6 +53,11 @@ Imports Microsoft.VisualBasic.Text.Xml.Models.KeyValuePair
 <Extension>
 Public Module IEnumerations

+    <Extension>
+    Public Function OfType(Of A, B, T)(source As IEnumerable(Of [Variant](Of A, B))) As IEnumerable(Of T)
+        Return source.Where(Function(element) element Like GetType(T))
+    End Function
+
    ''' <summary>
    ''' Get a random element
    ''' </summary>