Avaliação do código

[AprendendoAsp 0]

Sou novo em programação e gostaria de saber se existe ou melhor o que esta errado nesta function.

basicamente esta função estaria limpando a formatação e testando se possui números de 1 ate 9 em seguida atribuindo a variável TiraMascara. Se alguém puder colabora agradeço.

 

 

Public Function TiraMascara(fctValor)

Dim i

For i = 1 To Len(Trim(fctValor))

If Mid(fctValor, i, 1 = [0..9]) Then

TiraMascara = TiraMascara & Mid(fctValor, i, 1)

End If

Next

[Gustavo Emygdio Barboza 24]

Troque essa linha

If Mid(fctValor, i, 1 = [0..9]) Then

Por

If isnumeric(mid(fctValor,i,1) then

 

Sucesso

[xanburzum 169]

se tiver usando ASP.Net pode usar os controles de validação, fica mais fácil e rápido

[AprendendoAsp 0]

Troque essa linha

If Mid(fctValor, i, 1 = [0..9]) Then

Por

If isnumeric(mid(fctValor,i,1) then

 

Sucesso

Infelizmente não resolveu, simplesmente me retornou verdadeiro. tentei com replace deste jeitp: format="Fctvalor"

response.write(Replace(format,".","-")) mas também não certo!

Algum exemplo pratico de como retirar pontos e traços de um determinado valor que esta atribuído a uma variável?

Isso resolveu !!

format=Fctvalor

formatado=(Replace(format,".",""))

formatado=(Replace(formatado,"-","" ))

response.write(formatado)

[Gustavo Emygdio Barboza 24]

 

Infelizmente não resolveu, simplesmente me retornou verdadeiro. tentei com replace deste jeitp: format="Fctvalor"

response.write(Replace(format,".","-")) mas também não certo!

Algum exemplo pratico de como retirar pontos e traços de um determinado valor que esta atribuído a uma variável?

Isso resolveu !!

format=Fctvalor

formatado=(Replace(format,".",""))

formatado=(Replace(formatado,"-","" ))

response.write(formatado)

 

Mas realmente tinha que voltar verdadeiro com isso vc juntaria para voltar somente números vai que até faltou fechar um parênteses mas que bom que resolver com um simples replace... ou melhor 2 replaces rsrs. Um para o ponto e outro para a vírgula...

Sucesso