-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
Android Question Thousands separator while typing
- Thread starter Dianzoa
- Start date
- Similar Threads Similar Threads
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.
Upvote
0
Example:
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.
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 SubModifying 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.
Upvote
0
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:
Upvote
0
Thankyou Erel, really helpful. But, igot problem when typing char ".". Because, it count char "."
Upvote
0
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
Upvote
0
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.
Last edited:
Upvote
0
You misunderstood what this code does. The keyboard input type should be number or decimal. This code adds thousands separators automatically.
Upvote
0
Tried - italian - comma as decimal separator: you cannot insert decimals.
because "," is replaced by "".
Upvote
0
ok, finally I understand: it works well and does not take into account the different signs of separation.
Upvote
0
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
Upvote
0
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 SubI will try both (and maybe... I'll try to create... something).
Upvote
0
