Capitalize beginning of sentences(single and double spaced)

[BrendanDavis]

Here is a function I just wrote that will capitalize the first letter of each new sentence. It looks for the ending punctuation followed by a space(or two, if you specify it to do so via "spaceNum" integer = 2 instead of 1), and then finds the character afterwards and makes it UCase$. It also has the option of(if you have a huge string to work with) do it with DoEvents, letting you do other tasks, or without it(default is without it):

Public Function strSentenceCapitals(strString As String, Optional spaceNum As Integer = 1, Optional withDoEvents As Boolean = False) As String
 
    If strString = "" Then Exit Function
    
    'Check for all end-of-sentence punctuation
    If Not InStrB(strString, ". ") > 0 Then
        If Not InStrB(strString, "? ") > 0 Then
            If Not InStrB(strString, "! ") > 0 Then
                Exit Function
            End If
        End If
    End If
    
    
    If spaceNum < 1 Then spaceNum = 1
    If spaceNum > 1 Then spaceNum = 2
    
    
        Dim searchStrTxt As Integer
        Dim strCmpare As String
        Dim strRplc As String
        Dim strModified As String
        Dim strFirstChr As String
    
    
        If withDoEvents = True Then
            GoTo doFreeProc
        Else
            GoTo doHoldProc
        End If
        
    Exit Function
 
 
 
'Do with DoEvents
doFreeProc:
    
    strModified = strString
    strFirstChr = UCase(Mid$(strModified, 1, 1))
    strModified = strFirstChr & Mid$(strModified, 2)
    
    If spaceNum = 1 Then
        'Search for single-spaced punctuation
        For searchStrTxt = 1 To Len(strString) - 1
            DoEvents
            strCmpare = Mid$(strModified, searchStrTxt, 2)
                If strCmpare = ". " Then
                    strRplc = Mid$(strString, searchStrTxt, 3)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
                
                If strCmpare = "? " Then
                    strRplc = Mid$(strString, searchStrTxt, 3)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
                
                If strCmpare = "! " Then
                    strRplc = Mid$(strString, searchStrTxt, 3)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
        Next searchStrTxt
    Else
        'Search for double-spaced punctuation
        For searchStrTxt = 1 To Len(strString) - 1
            DoEvents
            strCmpare = Mid$(strModified, searchStrTxt, 2)
                If strCmpare = ". " Then
                    strRplc = Mid$(strString, searchStrTxt, 3)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
                
                If strCmpare = "? " Then
                    strRplc = Mid$(strString, searchStrTxt, 3)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
                
                If strCmpare = "! " Then
                    strRplc = Mid$(strString, searchStrTxt, 3)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
        Next searchStrTxt
    End If
        
        'Assign new string
        strSentenceCapitals = strModified
    
    Exit Function
 
 
 
'Do without DoEvents
doHoldProc:
    
    strModified = strString
    strFirstChr = UCase(Mid$(strModified, 1, 1))
    strModified = strFirstChr & Mid$(strModified, 2)
    
        If spaceNum = 1 Then
        'Search for single-spaced punctuation
        For searchStrTxt = 1 To Len(strString) - 1
            'DoEvents
            strCmpare = Mid$(strModified, searchStrTxt, 3)
                If strCmpare = ".  " Then
                    strRplc = Mid$(strString, searchStrTxt, 4)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
                
                If strCmpare = "?  " Then
                    strRplc = Mid$(strString, searchStrTxt, 4)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
                
                If strCmpare = "!  " Then
                    strRplc = Mid$(strString, searchStrTxt, 4)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
        Next searchStrTxt
    Else
        'Search for double-spaced punctuation
        For searchStrTxt = 1 To Len(strString) - 1
            'DoEvents
            strCmpare = Mid$(strModified, searchStrTxt, 3)
                If strCmpare = ".  " Then
                    strRplc = Mid$(strString, searchStrTxt, 4)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
                
                If strCmpare = "?  " Then
                    strRplc = Mid$(strString, searchStrTxt, 4)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
                
                If strCmpare = "!  " Then
                    strRplc = Mid$(strString, searchStrTxt, 4)
                    strModified = Replace$(strModified, strRplc, UCase$(strRplc))
                End If
        Next searchStrTxt
    End If
        
        'Assign new string
        strSentenceCapitals = strModified
 
End Function

You would call it like this, for single-spaced sentences(ie. "Hi. My name is Joe"):

Text1.Text = strSentenceCapitals(Text1.Text)
'Or...
Text1.Text = strSentenceCapitals(Text1.Text, 1)

The "1" specifies the number of spaces between sentences. It defaults at "1" so you don't really have to specify it if you're looking for single-spaced sentences. To look for double-space sentences, replace the "1" with "2" or any number higher than 1. The function will auto set the value to "2" if you specify an integer higher than 2, that way it's not looking for a 5-spaced sentence if you mis-type it.

Also, to do it with DoEvents(to allow activity while the function is running), you would call it like so:

Text1.Text = strSentenceCapitals(Text1.Text, 1, True)

The default is "False"(ie. Do without "DoEvents") so you'd have to specify it as "True" if you want to use DoEvents. If not, you don't have to specify and you can call the function either of the 2 above ways specified.


Just thought this simple function might help some folks out ;D

Enjoy!