From aa8e2b879bbcdb59f6e968088bcee189edc4e2b5 Mon Sep 17 00:00:00 2001
From: xieguigang <xie.guigang@gcmodeller.org>
Date: Wed, 17 Apr 2019 23:12:04 +0800
Subject: [PATCH] varient type sequence filter by types

---
 Extensions/Collection/Enumerable.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Extensions/Collection/Enumerable.vb b/Extensions/Collection/Enumerable.vb
index 516835be..a2dfd8d3 100644
--- 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>