Convert String to Mixed Case
1: Convert String to Upper/Lower Case:
2: <%
3: Function PCase(strInput)
4:
5: Dim iPosition
6: Dim iSpace
7: Dim strOutput
8:
9: iPosition = 1
10:
11: Do While InStr(iPosition, strInput, " ", 1) <> 0
12: iSpace = InStr(iPosition, strInput, " ", 1)
13: strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
14: strOutput = strOutput &
15: LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
16: iPosition = iSpace + 1
17: Loop
18: strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
19: strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))
20: PCase = strOutput
21: End Function
22: %>
Posted by sachauncey at October 3, 2003 09:59 PM