Pesoal to com um monte de pagina q ta td o texto em maiscula...e precisava passa pra minuscula e ta muito trampo escreve td novamente..estao queria sabe se alguemc onhece algum script q faça isso...sei q usa as funcoes LCASE e UCASE neh...so q tenho q entrega isso ate o dia 3...e nao to consiguindo para pra pensa pra faze um codigo q dize etnta faze neh..se alguem pude me ajuda agradeco..
e feliz ano novo pra td mundo...
Passar De Maiscula Pra Minuscula..
Started By OFaro!, 31/12/2004, 14:52
8 replies to this topic
#1
Posted 31/12/2004, 14:52
#2
Posted 31/12/2004, 15:02
LCASE passa tudo para minuscula
entendeu como funfa?
texto = "O OTÁVIO É O MAIS LINDO DO FÓRUM" response.write (LCASE(texto))
entendeu como funfa?
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#3
Posted 31/12/2004, 15:35
haaa entendi uhahuauha valeu brigadao...
#4
Posted 01/01/2005, 19:34
e tipo, suponhamos que eu tenha uma string assim:
without a nick
Como eu posso fazer para apenas colocar em maiúsculo a primeira letra? em js/php eu sei, mas queria saber em ASP
without a nick
Como eu posso fazer para apenas colocar em maiúsculo a primeira letra? em js/php eu sei, mas queria saber em ASP
#5
Posted 01/01/2005, 20:00
<% Dim Nome Dim sI Nome = "without a nick" 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 %>
seria isso que vc queria?
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#6
Posted 01/01/2005, 20:12
UIA! É isso mesmu...
vlw
vlw
#7
Posted 01/01/2005, 20:26
eu tava olhando na net... tem uma função mais completo do que esta que postei antes..
a outra pegava so o primeiro e colocava em maiuscula, acho que este é melhor para nomes... por que formata a primeira de cada palavra, para maiuscula...
fica ai mais uma sugestão...
<% Function FormataNome(Nome) aNome = Split(Nome) For i = LBound(aNome) To UBound(aNome) If Len(aNome(i)) > 0 Then nNome = nNome & " " & UCase(Mid(aNome(i),1,1)) & _ LCase(Mid(aNome(i),2)) End If Next FormataNome = Trim(nNome) End Function %> <%= FormataNome(" otavio nogueira da silva ")%>
a outra pegava so o primeiro e colocava em maiuscula, acho que este é melhor para nomes... por que formata a primeira de cada palavra, para maiuscula...
fica ai mais uma sugestão...
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#8
Posted 02/01/2005, 02:06
Da pra fazer isso com CSS.
text-transform: capitalize;
Abraços !
text-transform: capitalize;
Abraços !
#9
Posted 02/01/2005, 09:56
Bom, ele quer saber em asp, já q o fórum aqui é de ASp hehehDa pra fazer isso com CSS.
text-transform: capitalize;
Abraços !
Bom, eu costumo fazer assim, pro primeiro caracter eu pego e ponho em ucase, agora para os demais eu rodo um loop e localizo um espaço e jogo uma flag true, na proxima requisição se flag = true ele altera pra UCase. Vc pode tbm fazer por Regular Expression tbm , q deve ser fácil.
<% strBuf = "Teste123 sad ds asdasas sadasdsa" strBuf = Left(UCase(strBuf), 1) & Right(LCase(strBuf), Len(LCase(strBuf)) - 1) For i = 1 to Len(strBuf) If flag Then strFinal = strFinal & UCase(Mid(strBuf, i, 1)) Else strFinal = strFinal & Mid(strBuf, i, 1) End if If Mid(strBuf, i, 1) = " " Then flag = True Else flag = False Next Response.Write strFinal %>
MCAD, MCP
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)