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
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 4,733
Downloads 1,597
CodeID
DB ID
DevinGarlit
4
Revisions
v1.0
Sunday
July
15
2018