Mimic PHP’s uc_words() function with ASP

If you are trying to convert a PHP application to ASP, it's good to have equal functionality with text formatting. This function capitalizes (converts to uppercase) the first character/letter of each word in a string, and converts the remaining characters to lowercase. This is referred to as Title casing.

'====
Function ucWords( strWords )
'====
    strWords = trim( strWords & "" )
    if len( strWords ) > 0 then
        dim arWords, i, strFormatted
        arWords = split( strWords, " " )
        for i = 0 to uBound( arWords )
            strFormatted = strFormatted & " " & ucFirst( arWords( i ) )
        next
       
        ucWords = strFormatted
    end if
End Function

'====
Function ucFirst( strWord )
'====
        strWord = trim( strWord & "" )
        if len( strWord ) > 0 then
                ucFirst = uCase( left( strWord, 1 ) ) & _
                                  lcase( right( strWord, len( strWord ) – 1 ) )
        end if
End Function

Tagged as: ASP, function, Mimic, PHP's, uc_words(), with