ore than a year has now passed since I wrote my book (.NET Enterprise Design with Visual Basic .NET and SQL Server 2000[1]. The book discusses solutions to common design problems for large-scale applications, so several pages are spent discussing an architecture that can be used as a starting point
‘ Returns True if a string contains only uppercase charactersFunction IsStringUpper(ByVal sText As String) As Boolean Dim c As Char For Each c In sText If Not Char.IsUpper(c) Then Return False Next Return TrueEnd Function
‘ Returns a Hashtable whose keys are the unique words in a source string’ and whose elements are the number of occurrences of each word” Example:’ ‘ Dim de As DictionaryEntry’ For Each de In GetWordOccurrences(sourceText)’ Console.WriteLine(“‘{0}’ = {1} time(s), de.Key, de.Value)’ Next” Requires the following Imports’ Imports System.Collections.SpecializedFunction GetWordOccurrences(ByVal
You can easily add a link in your ASP and ASP.NET pages that, when clicked, runs the default mail program (e.g. Outlook) and allows the user to send a message to the email address you provide:Click here to send a message Interestingly, you can preload other fields in the email
‘ split a string, dealing correctly with quoted items” TEXT is the string to be split’ SEPARATOR is the separator char (default is comma)’ QUOTES is the character used to quote strings (default is “”””,’ the double quote)’ you can also use a character pair (eg “{}”) if the opening’
‘ Returns True if a string contains only lowercase charactersFunction IsStringLower(ByVal sText As String) As Boolean Dim c As Char For Each c In sText If Not Char.IsLower(c) Then Return False Next Return TrueEnd Function