Community discussion forum

Proper Case Function

• • Reply

  10 years ago

  by Developer Fusion Bot

  Developer Fusion Bot

  , United Kingdom

  Joined 3 years ago

  This thread is for discussions of Proper Case Function.

  Report abuse
• • Reply

  8 years ago

  by lywyn

  lywyn

  , United States

  Joined 8 years ago
  StrConv(string, vbProperCase) does this in VB 6.  Otherwise it's handy for versions 4/5.
  
  D
  Report abuse
• • Reply

  6 years ago

  by warazen

  Ken Palmer

  , United States

  Joined 6 years ago
  The code worked well on an ASP 3.0 project after some modifications.  One enhancement I added was checks for apostrophes within names (like O'Neal), and for apostrophe 's' at the end of a sentence.  Thanks!
  Report abuse
• • Reply

  2 years ago

  by chandra219

  chandra219

  , United States

  Joined 2 years ago

  Private Function FirstLetterCaps(str As String) As String
  Dim ExtractWord, NewStr As String
  Dim position As Integer
  position = InStr(str, " ")
  While position
      ExtractWord = LCase$(Left$(str, position))
      NewStr = NewStr & UCase$(Left$(ExtractWord, 1)) & Mid$(ExtractWord, 2)
      str = Right$(str, Len(str) - position)
      position = InStr(str, " ")
  Wend
      ExtractWord = LCase$(str)
      NewStr = NewStr & UCase$(Left$(ExtractWord, 1)) & Mid$(ExtractWord, 2)
      FirstLetterCaps = NewStr
  End Function
  
  
  
  
  
  
  
  
  
  
  
  
  

  Above function is called wth str argument passed to it. First word of the str is extracted by using Left$ function and changed to LCase for sure. Then First char of the extracted word is converted to UCase while remaining are retained as Lcase, and this word is added to Newstr. The str is then deducted of the first word using Right$ function. Position is moved to next space location. As the loop so performed, the Newstr continuously accumulates words while str looses them until str is left with last word whose first char is finally converted to UCase and added to Newstr. The Newstr thus is formed with  First Chars UCase which is then returned to calling procedure.

  Note: With VB6, StrConv(string, vbProperCase)  function performs the same task in a single line of code with effortless ease.

  Report abuse
• • Reply

  2 years ago

  by ravininave

  Ravikant Y. Ninave

  , India

  Joined 2 years ago

  Simplest One.

  Text1.Text = StrConv(Text1.Text, vbProperCase)

  Report abuse
• • Reply

  2 years ago

  by fejjarific

  J Dizz

  , United Kingdom

  Joined 2 years ago
  A bit simpler... INITCAP
  Report abuse
• • Reply

  5 months ago

  by lord_edd

  Edward Watts

  London, United Kingdom

  Joined 5 months ago

  .net equivalent:

  System.Threading.Thread.CurrentThread.CurrentCulture.TextInfo.ToTitleCase()

  Report abuse