|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Como deixar apenas as 1º Letras Maiusculas
|
 |
|
|
|
Postada em 2/10/2003 por ^HEAVY-METAL^
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<Form name='Dudu' action='I.asp' method='post'>
<INPUT Type='text' name='ProperCase'>
<INPUT Type='Submit' name='Seila' Value='OK'>
</Form>
<%
Dim Nome
Dim sI
Nome = Request.Form("propercase")
X = Len(Nome)
For sI = 1 to X
If sI = 1 then
Response.Write Ucase(mid(Nome,sI,1))
ElseIf mid(Nome,sI,1) = " " then
Response.Write LCase(mid(Nome,sI,1))
Response.Write Ucase(mid(Nome,sI + 1,1))
else
Response.Write LCase(mid(Nome,sI,1))
end if
next
%>
</BODY>
</HTML>
T+,
|
|
|
|
|
