String Normalization – Convert a string to Proper Case

Converts a string to proper case (title case), capitalizing the first letter of each word.

This function uses the current thread’s culture to apply title casing rules. It first converts the entire string to lowercase, then capitalizes each word.

    Public Function ToProperCase(InputString As String) As String

        If InputString Is Nothing Then Return String.Empty

        Dim CultureInfo As CultureInfo = Thread.CurrentThread.CurrentCulture
        Dim TextInfo As TextInfo = CultureInfo.TextInfo

        Return TextInfo.ToTitleCase(InputString.ToLower)

    End Function

    Public Function ToProperCase(InputString As String) As String

        If InputString Is Nothing Then Return String.Empty

        Dim CultureInfo As CultureInfo = Thread.CurrentThread.CurrentCulture
        Dim TextInfo As TextInfo = CultureInfo.TextInfo

        Return TextInfo.ToTitleCase(InputString.ToLower)

    End Function

Posted by ipercube