Imports System
Imports System.IO
Imports System.Data
 
 
' This example is from http://idealprogrammer.com
' It shows how you can use Filter syntax in VB.NET ASP.NET
'****************************************************************************************
' Purpose: Returns a zero-based array containing a subset of a String array based on
' specified filter criteria.
'
' Syntax: 	Filter (Source As String(), Match As String, Include As Boolean, _
' Compare As CompareMethod) As String()
'
' Parameter1: Source - Required - one-dimensional string array to be searched 
'
' Parameter2: Match - required - string to search for
'
' Parameter3: Include - optional - Boolean value indicating whether to return substrings that 
' include or exclude Match.
'
' Parameter4: Compare - optional - numeric value indicating compare method - CompareMethod.Binary
' or CompareMethod.Text
'
' Result: array - Returns a zero-based array containing a subset of a String array based on
' specified filter criteria.
'
' Quick Example:  Dim myStrings(3) As String
'        myStrings(0) = "This"
'        myStrings(1) = "is"
'        myStrings(2) = "my"
'        myStrings(3) = "string"
 
'        Dim FilteredStrings() As String
'        FilteredStrings = Microsoft.VisualBasic.Filter(myStrings, "is", True, CompareMethod.Text)
'        Dim sb As New StringBuilder
'        For Each myItem As String In FilteredStrings
'            sb.Append(myItem + "<br />") ' Returns ["This", "Is"].
'        Next
'        TextBox1.Text = sb.ToString()
'
' *********************************************************
Partial Class _Filter
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.Text = "Example #1: 	Filter(Source, Match, Include,Compare) As String"
        Dim myStrings(3) As String
        myStrings(0) = "This"
        myStrings(1) = "is"
        myStrings(2) = "my"
        myStrings(3) = "string"
 
        Dim FilteredStrings() As String
        FilteredStrings = Microsoft.VisualBasic.Filter(myStrings, "is", True, CompareMethod.Text)
        Dim sb As New StringBuilder
        For Each myItem As String In FilteredStrings
            sb.Append(myItem + "<br />") ' Returns ["This", "Is"].
        Next
        TextBox1.Text = sb.ToString()
    End Sub
 
End Class

Imports System Imports System.IO Imports System.Data ' This example is from http://idealprogrammer.com ' It shows how you can use Filter syntax in VB.NET ASP.NET '**************************************************************************************** ' Purpose: Returns a zero-based array containing a subset of a String array based on ' specified filter criteria. ' ' Syntax: Filter (Source As String(), Match As String, Include As Boolean, _ ' Compare As CompareMethod) As String() ' ' Parameter1: Source - Required - one-dimensional string array to be searched ' ' Parameter2: Match - required - string to search for ' ' Parameter3: Include - optional - Boolean value indicating whether to return substrings that ' include or exclude Match. ' ' Parameter4: Compare - optional - numeric value indicating compare method - CompareMethod.Binary ' or CompareMethod.Text ' ' Result: array - Returns a zero-based array containing a subset of a String array based on ' specified filter criteria. ' ' Quick Example: Dim myStrings(3) As String ' myStrings(0) = "This" ' myStrings(1) = "is" ' myStrings(2) = "my" ' myStrings(3) = "string" ' Dim FilteredStrings() As String ' FilteredStrings = Microsoft.VisualBasic.Filter(myStrings, "is", True, CompareMethod.Text) ' Dim sb As New StringBuilder ' For Each myItem As String In FilteredStrings ' sb.Append(myItem + "<br />") ' Returns ["This", "Is"]. ' Next ' TextBox1.Text = sb.ToString() ' ' ********************************************************* Partial Class _Filter Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label1.Text = "Example #1: Filter(Source, Match, Include,Compare) As String" Dim myStrings(3) As String myStrings(0) = "This" myStrings(1) = "is" myStrings(2) = "my" myStrings(3) = "string" Dim FilteredStrings() As String FilteredStrings = Microsoft.VisualBasic.Filter(myStrings, "is", True, CompareMethod.Text) Dim sb As New StringBuilder For Each myItem As String In FilteredStrings sb.Append(myItem + "<br />") ' Returns ["This", "Is"]. Next TextBox1.Text = sb.ToString() End Sub End Class

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="Filter.aspx.vb" Inherits="_Filter" %>
 
< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <h1><asp:label ID="Label1" runat="server" Text="Label"></asp:label> </h1>
         <asp:textbox ID="TextBox1" runat="server"></asp:textbox><br />
          <h1><asp:label ID="Label2" runat="server" Text="Label"></asp:label> </h1>
         <asp:textbox ID="TextBox2" runat="server"></asp:textbox><br />
          <h1><asp:label ID="Label3" runat="server" Text="Label"></asp:label> </h1>
         <asp:textbox ID="TextBox3" runat="server"></asp:textbox><br />
 
 
 
    </div>
    </form>
</body>
</html>

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="Filter.aspx.vb" Inherits="_Filter" %> < !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> </head> <body> <form id="form1" runat="server"> <div> <h1><asp:label ID="Label1" runat="server" Text="Label"></asp:label> </h1> <asp:textbox ID="TextBox1" runat="server"></asp:textbox><br /> <h1><asp:label ID="Label2" runat="server" Text="Label"></asp:label> </h1> <asp:textbox ID="TextBox2" runat="server"></asp:textbox><br /> <h1><asp:label ID="Label3" runat="server" Text="Label"></asp:label> </h1> <asp:textbox ID="TextBox3" runat="server"></asp:textbox><br /> </div> </form> </body> </html>