' 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