Visualizza wikitesto di Conoscere le impostazioni per il separatore delle migliaia

Per poter conoscere da codice le impostazioni di sistema per il separatore delle migliaia, si potranno utilizzare almeno un paio di modalità.

===Leggendo dal file di sistema ''/usr/share/i18n/locales/......''===
 Public Sub Main()
  
  Dim locales, sep, arcloc, sep As String
 
  locales = "/usr/share/i18n/locales"
   
  lingua = Scan(System.Language, "*.*")[0]
 
  arcloc = File.load(locales &/ Dir(locales, lingua, gb.File)[0])
   
  sep = Scan(Replace(arcloc, " ", Null), "*thousands_sep*\n*")[1]
   
  Print "Separatore delle migliaia:  "; sep
   
 End


===Usando alcune specifiche funzioni esterne della libreria di sistema ''/usr/include/locale.h''===
 Library "libc:6"
 
 Public Struct Lconv
   decimal_point As Pointer
   thousands_sep As Pointer
 End Struct
 
 Private Const LC_NUMERIC As Integer = 1
 
 <FONT Color=gray>' ''char *setlocale (int __category, const char *__locale)''
 ' ''Set and/or return the current locale.''</font>
 Private Extern setlocale(category As Integer, locale As String) As Pointer
 
 <FONT Color=gray>' ''struct lconv *localeconv(void)''
 ' ''Return the numeric/monetary information for the current locale.''</font>
 Private Extern localeconv() As Lconv
 
 
 Public Sub Main()
 
  Dim lc As New Lconv
 
 <FONT Color=gray>' ''Specifica la categoria e l'ambiente dell'impostazione locale per lingua:''</font>
  setlocale(LC_NUMERIC, System.Language)
 
 <FONT Color=gray>' ''Ritorna un Puntatore alla Struttura che dà informazioni sui simboli numerici secondo l'impostazione locale:''</font>
  lc = localeconv()
 
  Print "Separatore migliaia:  "; String@(lc.thousands_sep)
 
 End



=Riferimenti=
* http://pubs.opengroup.org/onlinepubs/009695399/functions/localeconv.html