ASP - Usando functions e minimizando esforço 


Oscar Pires é desenvolvedor ASP e Visual Basic, atualmente voltado para o e-commerce, e trabalha com sistemas para controle dos dados de lojas.

10/12/2001 - Coluna nº 14

ASP - Usando functions e minimizando esforço

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.

Abraços e até semana que vem!

Oscar Pires
blade@imasters.com.br

Todos os direitos autorais dos artigos pertencem ao seu autor.