|
|
|
|
|
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+,
|
|
|
|
|