Visual Basic

<br />
<br />
<% @Import Namespace="System.Data" %><br />
<script language="vb" runat="server"><br />
  Dim searchword as String<br />
  Dim pls as New DataTable()<br />
<br />
  Sub Page_Load(sender as Object, e as EventArgs)<br />
    BuildDataStore()<br />
<br />
  	completeData.DataSource = pls<br />
	completeData.DataBind()<br />
  End Sub<br />
<br />
<br />
  Sub BuildDataStore()<br />
	Dim dr as DataRow<br />
	<br />
	pls.Columns.Add(new DataColumn("Results", GetType(String)))<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "If only God would give me some clear sign! Like making a large deposit in my name at a Swiss bank."<br />
	pls.Rows.Add(dr)<br />
	<br />
    dr = pls.NewRow()<br />
    dr(0) = "Is sex dirty? Only when it's being done right."<br />
<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "On the plus side, death is one of the few things that can be done just as easily as lying down."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "I took a speed reading course and read 'War and Peace' in twenty minutes. It involves Russia."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "To *you* I'm an atheist; to God, I'm the Loyal Opposition."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "Sex without love is an empty experience, but as empty experiences go, it's a pretty good empty experience."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "It's not that I'm afraid to die. I just don't want to be there when it happens."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "What if everything is an illusion and nothing exists? In that case, I definitely overpaid for my carpet."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "Interestingly, according to modern astronomers, space is finite. This is a very comforting thought-- particularly for people who can never remember where they have left things."<br />
	pls.Rows.Add(dr)<br />
<br />
    dr = pls.NewRow()<br />
    dr(0) = "Eighty percent of success is showing up."<br />
	pls.Rows.Add(dr)<br />
  End Sub<br />
  <br />
  <br />
  Sub BindData(strQuery as String)<br />
	searchword = strQuery<br />
	<br />
	Dim dv as DataView<br />
	dv = New DataView(pls)<br />
	dv.RowFilter = "Results LIKE '%" & Regex.Replace(searchword,"'","''") & "%'"<br />
	<br />
	SearchResults.DataSource = dv<br />
	SearchResults.DataBind()<br />
  End Sub<br />
<br />
<br />
	Function Highlight(Search_Str as String, _<br />
	                   InputTxt as String, _<br />
	                   StartTag as String, _<br />
	                   EndTag as String) As String<br />
<br />
	  Dim ResultStr As String <br />
	  Return Regex.Replace(InputTxt, "\b(" & Regex.Escape(Search_Str) & ")\b", _<br />
	           StartTag & "$1" & EndTag, RegExOptions.IgnoreCase)<br />
	End Function<br />
	<br />
	<br />
	Sub searchQuotes(sender as Object, e as EventArgs)<br />
	  BindData(SearchTerm.Text)<br />
	  SearchResults.Visible = True<br />
	End Sub<br />
</script><br />
<br />
  <style type="text/css"><br />
   .highlight {text-decoration: none;color:black;background:yellow;}<br />
  </style><br />
<br />
<form runat="server"><br />
	Text to Search: <asp:TextBox id="SearchTerm" runat="server" /><br />
	<asp:button runat="server" Text="Search Woody Allen Quotes"<br />
	      OnClick="searchQuotes" /><br />
	<p><br />
	<asp:DataGrid runat="server" id="SearchResults" AutoGenerateColumns="False"<br />
	    Visible="False" ShowHeader="False"><br />
	  <Columns><br />
	    <asp:TemplateColumn><br />
	      <ItemTemplate><br />
	        <%# Highlight(searchword, DataBinder.Eval(Container.DataItem, "results"), "", "") %><br />
	      </ItemTemplate><br />
	    </asp:TemplateColumn><br />
	  </Columns><br />
	</asp:DataGrid><br />
	<p><br />
	The Data Being Search<br />
	<asp:datagrid runat="server" id="completeData" ShowHeader="False" /><br />