Viewing source for Recipe1514vb.aspx

<%@ Page %>
<script Language="vb" runat="server">
Private Sub Page_Load(sender As Object, e As System.EventArgs)
   Dim inputString As String = "Try not. Do. Or do not. There is no try."
   Response.Write(("Input: " + inputString))
   Response.Write("<hr>")
   Response.Write(("Sentence Count: " + SentenceCount(inputString).ToString()))
End Sub 'Page_Load


Private Function SentenceCount(input As String) As Integer
   ' note that "  " will appear as a word using this method.
   Dim separators As Char() = {"."c}
   Dim sentences As String() = input.Split(separators)
   
   ' remove this loop for production code
   Dim i As Integer
   For i = 0 To sentences.Length - 1
      Response.Write(("[" + sentences(i) + "]<br>"))
   Next i
   
   Return sentences.Length - 1 ' subtract one to get 1 sentence per instance of a period
End Function 'SentenceCount
</script>