CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to make Sentence Case

Public Function MakeSentenceCase(ByVal strString As String) As String
    Dim strText() As String
    Dim strTemp As String
    Dim I As Integer
    strText = Split(strString)
    For I = 0 To UBound(strText)
        If I = 0 Then
            strTemp = strTemp & StrConv(strText(0), vbProperCase)
        ElseIf Right$(strText(I - 1), 1) Like "[.!?]" Then
            strTemp = strTemp & StrConv(strText(I), vbProperCase)
        Else
            strTemp = strTemp & StrConv(strText(I), vbLowerCase)
        End If
        strTemp = strTemp & Space$(1)
    Next I
    MakeSentenceCase = strTemp
End Function
'How to call this function:
'MSgBox MakeSentenceCase("thIs is A TesT. JUSt a tESt.")
'You will get: This is a test. Just a test.

'Another way:

Private Function SentenceCase(ByVal sText As String)
    Dim b() As Byte, N As Long, bChange As Boolean
    b = sText
    bChange = True
    For N = 0 To UBound(b) Step 2
        Select Case b(N)
            Case 33, 46, 58, 63  ' !.:?
                bChange = True
            Case 97 To 122 ' a-z
                If bChange Then b(N) = b(N) - 32: bChange = False
            Case 32
            Case Else
                bChange = False
        End Select
    Next N
    SentenceCase = b
End Function
 
'How to call this function:
'MSgBox SentenceCase("thIs is A TesT. JUSt a tESt.")
'You will get: ThIs is A TesT. JUSt a tESt.