August 18, 2003

‘ Concatenate an array of strings with commas and a final “and”,’ or other separators” Example:’ Debug.WriteLine(“Choose one from ” & CreateStringList(New String() {“item1”,’ “item2”, “item3”}))’ ‘ => Choose one

‘ Return a boolean indicating whether the input connection string is for the ‘ ADO.NET’s Oracle managed provider” Examples:’ Debug.WriteLine(IsOracleProviderConnString’ (“Server=myserver;Uid=myid;Pwd=mypwd;”)) ‘ => TrueFunction IsOracleProviderConnString(ByVal connString As String) As Boolean

‘ Convert the input word from singular to pluralFunction SingularToPlural(ByVal singular As String) As String ‘ convert to lowercase for easier comparison Dim lower As String = singular.ToLower() Dim res

‘ Convert the input word from plural to singularFunction PluralToSingular(ByVal plural As String) As String ‘ convert to lowercase for easier comparison Dim lower As String = plural.ToLower() Dim res

‘ Replace all accented characters in the input string’ Note: this function was written according to Italian rules. Rules for your ‘ language may vary, for example È may not

‘ Invert the case of all characters of the input string” Examples:’ Debug.WriteLine(FlipCase(“Hello World”)) ‘ => hELLO wORLD’ Debug.WriteLine(FlipCase(“hELLO wORLD”)) ‘ => Hello World’ Debug.WriteLine(FlipCase(“3) this is message n. 3”))