해외 사이트에서 퍼왔습니다.

문자열중 단어가 시작되는 첫문자를 대문자로 변환(Converting) 해줍니다.


<%
 Function Str2ProperCase(sValue)


  iPos = 1

   Do While InStr(iPos, sValue, " ", 1) <> 0
   iSpace = InStr(iPos, sValue, " ", 1)
   sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
   sTemp = sTemp & LCase(Mid(sValue, iPos + 1, _
                      iSpace - iPos))
   iPos = iSpace + 1
   Loop


   sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
   sTemp = sTemp & LCase(Mid(sValue, iPos + 1))

   Str2ProperCase = sTemp


End Function


'EXAMPLE:


sValue = Str2ProperCase("THIS IS A TEST")
response.write sValue 'Displays This Is A Test

%>

2008/02/21 15:50 2008/02/21 15:50

Trackback Address :: 이 글에는 트랙백을 보낼 수 없습니다