CapitalizeAllWords

Capitalize first letter in all words In a String

Function CapitalizeAllWords(strString)
 Dim arrTemp, strTemp, i
 arrTemp = split(strString, " ")
 For i = 0 To Ubound(arrTemp)
  strTemp = strTemp & " " & ucase(left(arrTemp(i),1)) & lcase(mid(arrTemp(i),2))
 Next
 capAllWords = strTemp
End Function

strString

Write CapitalizeAllWords("we actually Do listen To our users once In a while")

Views 966 Downloads 345

'String', 'Capital', 'Small', 'UCase', 'LCase', 'Upper', 'lower'

DevinGarlit
4
Texts + Strings Classic ASP
Revisions

v1.0