Android Question [Solved +/-] How to get DecimalSeparator

[LucaMs]

I laboriously got a routine to get the DecimalFormatSymbols:

Public Sub getDecimalSeparator As Char
    Dim rfl As Reflector
    Dim nf As Object = rfl.RunStaticMethod("java.text.NumberFormat", "getInstance", Null, Null)
    rfl.Target = nf
    Dim sym As Object = rfl.RunMethod("getDecimalFormatSymbols")
    rfl.Target = sym
    Dim Separator As Char = rfl.RunMethod("getDecimalSeparator")
    Return Separator
End Sub

(why I have not named it DecimalFormatoSymbol? ).

This routine, however, returns the symbol of the default Locale.

How to adapt it to get a given Locale? (public static DecimalFormatSymbols getInstance (Locale locale))


I bet that there is a "fast member" who will solve this


Thank you


[P.S. "(why I have not named it DecimalFormatoSymbol? )"
because I confused DecimalFormatoSymbol with DecimalSeparator
I need to get the DecimalSeparator, thank you]

 

[LucaMs]

I tried so in a code module:

' Process_Globals
Private nativeMe As JavaObject

' Sub Init
nativeMe.InitializeStatic(Application.PackageName & ".modSomeUtils")

Public Sub getDecimalSeparator(Language As String, Country As String) As Char
    Dim rfl As Reflector
    Dim nf As Object = rfl.RunStaticMethod("java.text.NumberFormat", "getInstance", Null, Null)
    rfl.Target = nf
    Dim sym As Object = rfl.RunPublicmethod("getDecimalFormatSymbols", _
      Array As Object(nativeMe.RunMethod("getNewLocale", Array As Object(Language, Country))), _
      Array As String("java.util.Locale"))
    rfl.Target = sym
    Dim Separator As Char = rfl.RunMethod("getDecimalSeparator")
    Return Separator
End Sub


#If JAVA
import java.util.Locale;

public Locale getNewLocale(String Language, String Country) {
return new Locale(language, country);
}
#End If

getting this error msg:

cannot find symbol
return new Locale(language, country);
                        ^
  symbol:   variable language
  location: class modsomeutils

It is the second time I get "cannot find symbol" error: is it a my mistake or there is a problem with inline Java?

 

[Picena Informatica]

Try:

dim S as string=numberformat2(1,1,1,false)
return s.substring2(1,1)

Looking for second caracter in "1.0" or in "1,0"

 

[LucaMs]

Try:

dim S as string=numberformat2(1,1,1,false)
return s.substring2(1,1)

Looking for second caracter in "1.0" or in "1,0"

Thank you but numberformat2 uses the device locale, I would change it at runtime

 

[LucaMs]

I solved this way (but I would prefer to understand more about inline Java, Reflector, JavaObject and if inline java works well):

Dim Local As AHLocale
Local.Initialize3(Language, Country)

Dim Dummy As String = AHNumeric1.Format(1.1)
If Dummy.Contains(".") Then
     DecSeparator = "."
End If
If Dummy.Contains(",") Then
    DecSeparator = ","
End If

 

[inakigarm]

Maybe you've to change language and country to the values you're searching for when calling

rfl.RunPublicmethod("getDecimalFormatSymbols", _
      Array As Object(nativeMe.RunMethod("getNewLocale", Array As Object(Language, Country))), _
      Array As String("java.util.Locale"))

The language codes are two-letter lowercase ISO language codes (such as "en") as defined by ISO 639-1. The country codes are two-letter uppercase ISO country codes (such as "US") as defined by ISO 3166-1.

 

[LucaMs]

Maybe you've to change language and country to the values you're searching for when calling

rfl.RunPublicmethod("getDecimalFormatSymbols", _
      Array As Object(nativeMe.RunMethod("getNewLocale", Array As Object(Language, Country))), _
      Array As String("java.util.Locale"))

Thanks @inakigarm, but they are right, I'm sure.

 

[RandomCoder]

I have a simpler way, why not just iterate through the string starting at position 1 (not zero so as to avoid any sign if present) and return the first non-numeric character?

 

[LucaMs]

I have a simpler way, why not just iterate through the string starting at position 1 (not zero so as to avoid any sign if present) and return the first non-numeric character?

Thank you for you answer, @RandomCoder.

The question was how to get "the string". I solved this way #5, thank you.

 

[b4auser1]

More universal:

Dim Locale As AHLocale
Locale.Initialize3(Language, Country)

    Dim Numeric As AHNumeric : Numeric.Initialize2(Locale)

    Dim Dummy As String = Numeric.Format(1.1)
    Return Dummy.SubString2(1, 2)

 

[LucaMs]

More universal:

Dim Locale As AHLocale
Locale.Initialize3(Language, Country)

    Dim Numeric As AHNumeric : Numeric.Initialize2(Locale)

    Dim Dummy As String = Numeric.Format(1.1)
    Return Dummy.SubString2(1, 2)

Yes, I used .Contains thinking to values like "1.234,56" or "1,234.56" but given I used "1.1"...

I'm tired