Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Enterprise
Expertise: All
Sep 19, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Converting Input String to Proper Case

This is a simple string manipulation functionality that is often required. It converts the input string into a proper string (eg., "how are you doing?" will return "How Are You Doing?").

Below is the function ProperCase that you can add to your bas module:

 Public Function ProperCase(ByVal prmText 
As String) As String Dim strText As String Dim lngPos As Long Dim lngLen As Long lngLen = Len(prmText) lngPos = 1 strText = prmText Select Case lngLen Case 1 ProperCase = UCase(strText) Case Is > 1 strText = UCase(Left(strText, 1)) &
Right(strText, lngLen - 1) lngPos = 2 While lngPos > 0 lngPos = InStr(lngPos, strText, " ",
vbTextCompare) If lngPos > 0 Then lngPos = lngPos + 1 If lngPos < lngLen Then strText = Left(strText, lngPos - 1)
& UCase(Mid(strText, lngPos, 1)) & Right(strText, lngLen - lngPos) Else strText = Left(strText, lngPos - 1)
& UCase(Mid(strText, lngPos, 1)) End If End If Wend ProperCase = strText Case Else ProperCase = "" End Select End Function
Jatin Shah
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date