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