Spanish [Solucionado] ¿ Como formateo un EDITEXT numerico ?

[Sergio Castellari]

Situación:
1) Necesito formatear un EDITEXT con una mascara numerica tipo "999999.99"
Es decir necesito validar un ingreso numerico con dos decimales.
2) Poder cambiar el color del numero si es positivo o negativo mientras se escribe
Saludos

 

[Gabino A. de la Gala]

Situación:
1) Necesito formatear un EDITEXT con una mascara numerica tipo "999999.99"
Es decir necesito validar un ingreso numerico con dos decimales.
2) Poder cambiar el color del numero si es positivo o negativo mientras se escribe
Saludos

Quizás te sirva de punto de partida esto:

[B4X] B4XFormatter - Advanced number formatter

B4XFormatter is an alternative to NumberFormat / NumberFormat2 keywords. It is implemented in B4X and it is cross platform. There are two types in the library: B4XFormatter - The main class. B4XFormatData - A type with various configurable fields. The formatter holds a list of format data...

www.b4x.com

Los edit tienen un evento que creo que es lo que necesitas para poder cambiar el color sobre la marcha:

Private Sub EditText1_TextChanged (Old As String, New As String)
	
End Sub

 

[Sergio Castellari]

Hola @Gabino A. de la Gala !!!

Voy a tener que estudiar B4XFormatter porque NI IDEA!!
Tampoco sabia del Evento "TextChanged"

Un colega del foro en ingles me paso la solucion
Aqui la comparto:

'*** Se ejecunta durante los cambios de "edtImporte" ***
Private Sub edtImporte_TextChanged (Old As String, New As String)
    'Nota: En el diseñador, configuro EditText1 para esperar una entrada DECIMAL.
        'En los teclados numéricos, el signo menos requiere dos clics en mi dispositivo Samsung
    If New = "-" Then edtImporte.TextColor = xui.Color_Red
    Dim k As  Int = New.IndexOf(".")
    If k > -1 Then
        If New.Length - k > 3 Then
            edtImporte.Text = Old
            edtImporte.SelectionStart = Old.length
        End If
    End If
End Sub

Y luego de presionar un boton de "aceptar" la carga, coloco el siguiente codigo para "restablecer" el color de origen:

edtImporte.Text = ""
edtImporte.TextColor = xui.Color_White

Quedó funcionando joya!...(aunque todavia nosé que carajo hace New.IndexOf("."), ni de donde comparar -1 y 3 luego...

NOTA: Estoy en el subsuelo de conocer B4X...pero seguiré intentando!
Saludos,

 

[Gabino A. de la Gala]

Hola @Gabino A. de la Gala !!!

Voy a tener que estudiar B4XFormatter porque NI IDEA!!
Tampoco sabia del Evento "TextChanged"

Un colega del foro en ingles me paso la solucion
Aqui la comparto:

'*** Se ejecunta durante los cambios de "edtImporte" ***
Private Sub edtImporte_TextChanged (Old As String, New As String)
    'Nota: En el diseñador, configuro EditText1 para esperar una entrada DECIMAL.
        'En los teclados numéricos, el signo menos requiere dos clics en mi dispositivo Samsung
    If New = "-" Then edtImporte.TextColor = xui.Color_Red
    Dim k As  Int = New.IndexOf(".")
    If k > -1 Then
        If New.Length - k > 3 Then
            edtImporte.Text = Old
            edtImporte.SelectionStart = Old.length
        End If
    End If
End Sub

Y luego de presionar un boton de "aceptar" la carga, coloco el siguiente codigo para "restablecer" el color de origen:

edtImporte.Text = ""
edtImporte.TextColor = xui.Color_White

Quedó funcionando joya!...(aunque todavia nosé que carajo hace New.IndexOf("."), ni de donde comparar -1 y 3 luego...

NOTA: Estoy en el subsuelo de conocer B4X...pero seguiré intentando!
Saludos,

El también está utilizando el evento TextChanged.
Con indexof pregunta por la posición del ".". si es -1 es que no encontró un "." en la cadena.
Por lo de preguntar por New="-", creo que sólo se pondrá en rojo si lo primero que se mete es el "-", sino, no se si funcionará realmente.

 

[Sergio Castellari]

ahah...entonces lo de "-1" indicaría NO encontrado, y en caso de encontrarlo, toma su posicion para luego mostrar solo 2 decimales, restando a la longitud total de la cadena, la posicion del punto, y si es mas de 3 (incluido el punto), simplemente dejo lo anterior escrito!
Si deseara mostrar 3 decimales, deberia ser un 4 (por que debe incluir el punto) [FUNCIONA!]

Wow! imposible que me diera cuenta de esto! ja
Abrazos!!

 

[josejad]

Quizás puedas combinarlo con este código

Thousands separator while typing

Hello, Is it possible to insert the "." as number format while typing in an Input text? Thanks, Diego

www.b4x.com

 

[Sergio Castellari]

Interesante José, en este caso utiliza el codigo para "agregar" el punto separador de millares.
Esta muy bueno...pero con lo que pasé ya resuelvo el tema!