How to Format a String in Proper Case or Title Case in VB.NET

James Mouchett

The text of this article is not in this database — only its details are. The old site it was published on is gone, but the Internet Archive kept a copy: How to Format a String in Proper Case or Title Case in VB.NET

VB.NETTitle CaseProper CaseHow to Format a String in Proper CaseHow to Format a String in Title Case

4 Comments

Join the conversation! Your thoughts help the community grow.

Jim Stevens15y ago
Dim propercase as string = StrConv(SomeText, VbStrConv.ProperCase)
Adam Downs16y ago
To simplify Public Function ToProper(ByVal str As String) As String Dim newString As New StringBuilder For Each s As String In str.Split(" ") newString.Append(s.Substring(0, 1).ToUpper & s.Substring(1).ToLower + " ") Next Return newString.ToString.Trim End Function
Renato17y ago
I wonder why you didn't use the StringBuilder. As you know, in .NET strings are immutable and when you write something like Dim a As String = "hello" a += " world" you created two distinct strings in your heap memory. One containing "hello" and another one containing "hello world" (plus the \0 char, of course). So, you're going to create N+1 distinct strings where N is the number of the characters in the starting one. :)
- James Mouchett17y ago
  You are correct, and that is my fault for overlooking this. I have gone back through the above code and have modified it accordingly. The corrected code snippet is below: Public Shared Function ToProper2(ByVal Str As String) As String Dim builder As StringBuilder = New StringBuilder ' Used For Holding Each Word Separated By A Space Dim Words() As String = Split(Str, " ") ' Loop Through All The Words In The String For A = 0 To Words.GetUpperBound(0) ' Loop Through All The Characters In The String For B = 0 To Words(A).Length - 1 If B = 0 AndAlso Words(A)(B) <> " " Then ' Make The First Character Uppercase builder.Append(Char.ToUpper(Words(A)(B))) Else ' Make The Other Characters Lowercase builder.Append(Char.ToLower(Words(A)(B))) End If ' Add Spaces If Any Are Necessary If A <> Words.GetUpperBound(0) And B = Words(A).Length - 1 Then builder.Append(" ") End If Next Next Return builder.ToString End Function This code snippet above not only helps with saving memory space, but is also slightly faster. Thank you for your input and help.