Array
(
)

Dúvida com objeto.value.replace

Falarod
   - 02 dez 2008

Olá.

Estou usando

objeto.value.replace(/\D/g, ´´)

no evento KeyUp de um TextBox para eliminar caracteres não numéricos de um TextBox.

Alguém pode me indicar uma máscara que elimine os caracteres não numéricos com excessão do caracter vírgula ( , ) ?

Facc
   - 03 dez 2008


Citação:
Olá.

Estou usando

objeto.value.replace(/\D/g, ´´)

no evento KeyUp de um TextBox para eliminar caracteres não numéricos de um TextBox.

Alguém pode me indicar uma máscara que elimine os caracteres não numéricos com excessão do caracter vírgula ( , ) ?


Não sei se é o seu caso, mas aí vai uma função que substitui caracteres.

#Código Private Function Subst(ByVal Texto As String, ByVal Isto As String, ByVal PorIsto As String) As String
Dim i As Long
If Len(Isto) < 1 Then
Subst = Texto
Exit Function
End If

For i = 1 To Len(Texto)
If Mid(Texto, i, Len(Isto)) = Isto Then
Subst = Subst & PorIsto
i = i + (Len(Isto) - 1)
Else
Subst = Subst & Mid(Texto, i, 1)
End If
Next i
End Function