|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Usando functions e minimizando esforço
|
 |
|
|
|
Postada em 13/10/2003 por ^HEAVY-METAL^
Nesta semana vamos continuar falando de funções. No artigo anterior, apresentei um caso para uso, em que certo cálculo constante era simplificando, quando foi criada uma função que faria o cálculo, bastando passar o valor para tal.
Mostrarei agora, que não apenas para cálculos é de grande utilidade, mas também para outros casos.
Necessidades:
. não aceitar numéricos;
. texto sem quaisquer espaços;
. texto sem ponto e/ou virgula;
. deixar texto em maiúscula.
Function formatar(texto)if isnumeric(texto) then response.write "sem numeros!" : exit function ' se for numérico, sai explicitamente avisando
texto = replace(texto," ","") ' verifica se consta espaço, e troca por nada
texto = replace(texto,".","") ' verifica se consta pontos, e retira
texto = replace(texto,",","") ' verifica virgula e tira
texto = UCASE(texto) ' pega o resultado, e poe todo texto em maiúscula
formatar=texto
end function
Então, se eu indicasse Formatar("abc.def"), retornaria ABCDEFpois a função deve retirar pontos/vírgulas, verificar se não é número, e por fim deixar tudo maiúsculo.
Se fosse usado Formatar(123), seria retornado apenas o aviso "sem números!" e sairia da função sem fazer mais nada.
Note, que se indicasse Formatar("F16"), ele não iria parar a função, em questão do valor numérico 16, que não manda um valor que é tido como absolutamente numérico.
T+,
|
|
|
|
|
