Android Question Thousands separator while typing

Dianzoa · Feb 5, 2020

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

Thanks, Diego

Peter Simpson · Feb 5, 2020

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

Thanks, Diego

Have you looked at NumberFormat

Dianzoa · Feb 5, 2020

Peter Simpson said:
Have you looked at NumberFormat

Yes, I used to use that, but never used for dynamic typing. Probably I have to write the code in text_changed event or something, but I asked in case there is already a library that do this automatically.

Erel · Feb 6, 2020

Example:

B4X:

Sub EditText1_TextChanged (Old As String, New As String)
    Dim sb As StringBuilder
    sb.Initialize
    Dim Clean As String = New.Replace(",", "")
    For i = 0 To Clean.Length - 1
        If i Mod 3 = 0 And i > 0 Then
            sb.Insert(0, ",")        
        End If
        sb.Insert(0, Clean.CharAt(Clean.Length - 1 - i))
    Next
    If sb.ToString <> New Then
        EditText1.Text = sb.ToString
        EditText1.SelectionStart = EditText1.Text.Length
    End If
End Sub

Modifying the text while the user types it can be annoying. In this case for example the selection is handled in a simple way where it is always set to the end of the text.

Peter Simpson · Feb 6, 2020

Erel said:
Example:

B4X:

Sub EditText1_TextChanged (Old As String, New As String) Dim sb As StringBuilder sb.Initialize Dim Clean As String = New.Replace(",", "") For i = 0 To Clean.Length - 1 If i Mod 3 = 0 And i > 0 Then sb.Insert(0, ",") End If sb.Insert(0, Clean.CharAt(Clean.Length - 1 - i)) Next If sb.ToString <> New Then EditText1.Text = sb.ToString EditText1.SelectionStart = EditText1.Text.Length End If End Sub

Modifying the text while the user types it can be annoying. In this case for example the selection is handled in a simple way where it is always set to the end of the text.

This is excellent stuff Erel, I'll save this sub in my code base...

Sandman · Feb 6, 2020

Considering that this thread doesn't specify that we're talking about a single region of the world, I'd humbly like to remind all that not all regions use the same thousand separator. (And some don't at all.) Lots to find on the net about this, but here are two links I found that might show the complexity of this simple question:

Dianzoa · Feb 11, 2020

Erel said:
Example:

B4X:

Sub EditText1_TextChanged (Old As String, New As String) Dim sb As StringBuilder sb.Initialize Dim Clean As String = New.Replace(",", "") For i = 0 To Clean.Length - 1 If i Mod 3 = 0 And i > 0 Then sb.Insert(0, ",") End If sb.Insert(0, Clean.CharAt(Clean.Length - 1 - i)) Next If sb.ToString <> New Then EditText1.Text = sb.ToString EditText1.SelectionStart = EditText1.Text.Length End If End Sub

Modifying the text while the user types it can be annoying. In this case for example the selection is handled in a simple way where it is always set to the end of the text.

Thanks bro, I will try

Dianzoa · Feb 11, 2020

Sandman said:
Considering that this thread doesn't specify that we're talking about a single region of the world, I'd humbly like to remind all that not all regions use the same thousand separator. (And some don't at all.) Lots to find on the net about this, but here are two links I found that might show the complexity of this simple question:

https://en.wikipedia.org/wiki/Decimal_separator#Digit_grouping

https://docs.oracle.com/cd/E19455-01/806-0169/overview-9/index.html

Yeah, totally. In my case the app will be used only in my country. We use "."

sonistp · Mar 2, 2020

Erel said:
Example:

B4X:

Sub EditText1_TextChanged (Old As String, New As String) Dim sb As StringBuilder sb.Initialize Dim Clean As String = New.Replace(",", "") For i = 0 To Clean.Length - 1 If i Mod 3 = 0 And i > 0 Then sb.Insert(0, ",") End If sb.Insert(0, Clean.CharAt(Clean.Length - 1 - i)) Next If sb.ToString <> New Then EditText1.Text = sb.ToString EditText1.SelectionStart = EditText1.Text.Length End If End Sub

Modifying the text while the user types it can be annoying. In this case for example the selection is handled in a simple way where it is always set to the end of the text.

Thankyou Erel, really helpful. But, igot problem when typing char ".". Because, it count char "."

Erel · Mar 2, 2020

Code that also handles the decimal separator:

B4X:

Sub EditText1_TextChanged (Old As String, New As String)
    Dim sb As StringBuilder
    sb.Initialize
    Dim Clean As String = New.Replace(",", "")
    Dim DecimalSeparatorIndex As Int = Clean.IndexOf(".")
    If DecimalSeparatorIndex > -1 Then
        sb.Append(Clean.SubString(DecimalSeparatorIndex))
        Clean = Clean.SubString2(0, DecimalSeparatorIndex)
    End If
    For i = 0 To Clean.Length - 1
        If i Mod 3 = 0 And i > 0 Then
            sb.Insert(0, ",")        
        End If
        sb.Insert(0, Clean.CharAt(Clean.Length - 1 - i))
    Next
    If sb.ToString <> New Then
        EditText1.Text = sb.ToString
        EditText1.SelectionStart = EditText1.Text.Length
    End If
End Sub

LucaMs · Mar 2, 2020

Erel said:

Code that also handles the decimal separator:

B4X:

Sub EditText1_TextChanged (Old As String, New As String)
    Dim sb As StringBuilder
    sb.Initialize
    Dim Clean As String = New.Replace(",", "")
    Dim DecimalSeparatorIndex As Int = Clean.IndexOf(".")
    If DecimalSeparatorIndex > -1 Then
        sb.Append(Clean.SubString(DecimalSeparatorIndex))
        Clean = Clean.SubString2(0, DecimalSeparatorIndex)
    End If
    For i = 0 To Clean.Length - 1
        If i Mod 3 = 0 And i > 0 Then
            sb.Insert(0, ",")      
        End If
        sb.Insert(0, Clean.CharAt(Clean.Length - 1 - i))
    Next
    If sb.ToString <> New Then
        EditText1.Text = sb.ToString
        EditText1.SelectionStart = EditText1.Text.Length
    End If
End Sub

It does not work.

I tried it setting Italian as language (default, of course, decimal separator is comma) and English U.S.A. (decimal is dot);
in both cases it only accepts the thousands separator - always dot and not immedately visible - and never comma (as thousands or decimals separator).

BTW:
1 - first time I tried with B4J and SelectionStart is read only on it;
2 - I think it is better to have two global variables (process globals) in which to set which are the valid signs as a separator of thousands and decimals.

Erel · Mar 2, 2020

LucaMs said:
It does not work.

You misunderstood what this code does. The keyboard input type should be number or decimal. This code adds thousands separators automatically.

LucaMs · Mar 2, 2020

Erel said:
You misunderstood

This is true very often

Erel · Mar 2, 2020

Write 1234567 and you will see what is supposed to do.

LucaMs · Mar 2, 2020

Erel said:
Write 1234567 and you will see what is supposed to do.

Tried - italian - comma as decimal separator: you cannot insert decimals.

because "," is replaced by "".

LucaMs · Mar 2, 2020

LucaMs said:
Tried - italian - comma as decimal separator: you cannot insert decimals.
View attachment 89429
because "," is replaced by "".

English - USA - decimals = Dot = OK

LucaMs · Mar 2, 2020

Erel said:
You misunderstood what this code does

ok, finally I understand: it works well and does not take into account the different signs of separation.

Erel · Mar 2, 2020

BTW, if you want to get the locale specific grouping separator then use this code:

B4X:

Sub GetGroupingSeparator As String
    Dim nm As JavaObject
    Return nm.InitializeStatic("java.text.DecimalFormatSymbols").RunMethodJO("getInstance", Null).RunMethod("getGroupingSeparator", Null)
End Sub

LucaMs · Mar 2, 2020

Erel said:
BTW, if you want to get the locale specific grouping separator then use this code:

B4X:

Sub GetGroupingSeparator As String Dim nm As JavaObject Return nm.InitializeStatic("java.text.DecimalFormatSymbols").RunMethodJO("getInstance", Null).RunMethod("getGroupingSeparator", Null) End Sub

I suppose (not tested) that this code should work to get the decimal separator symbol, then:

B4X:

Sub GetDecimalSeparator As String
    Dim nm As JavaObject
    Return nm.InitializeStatic("java.text.DecimalFormatSymbols").RunMethodJO("getInstance", Null).RunMethod("getDecimalSeparator", Null)
End Sub

I will try both (and maybe... I'll try to create... something).

LucaMs · Mar 2, 2020

LucaMs said:
I suppose (not tested) that this code should work to get the decimal separator symbol, then:

B4X:

Sub GetDecimalSeparator As String Dim nm As JavaObject Return nm.InitializeStatic("java.text.DecimalFormatSymbols").RunMethodJO("getInstance", Null).RunMethod("getDecimalSeparator", Null) End Sub

I will try both (and maybe... I'll try to create... something).

Yes, it works.

Android Question Thousands separator while typing

Active Member

Expert

Active Member

B4X founder

Expert

Expert

Active Member

Active Member

Member

B4X founder

Expert

B4X founder

Expert

B4X founder

Expert

Expert

Expert

B4X founder

Expert

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency