Revision: 19749
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at October 29, 2009 23:08 by Shurik76
Initial Code
Function PCase(ByVal strInput)' As String Dim I 'As Integer Dim CurrentChar, PrevChar 'As Char Dim strOutput 'As String PrevChar = "" strOutput = "" For I = 1 To Len(strInput) CurrentChar = Mid(strInput, I, 1) Select Case PrevChar Case "", " ", ".", "-", ",", """", "'" strOutput = strOutput & UCase(CurrentChar) Case Else strOutput = strOutput & LCase(CurrentChar) End Select PrevChar = CurrentChar Next 'I PCase = strOutput End Function
Initial URL
http://www.asp101.com/samples/pcase.asp
Initial Description
Initial Title
Proper Case String Conversion
Initial Tags
Initial Language
ASP