Visualizza wikitesto di Conoscere le impostazioni del separatore decimale nel sistema

Per conoscere quale sia il "separatore decimale" (la parte intera da quella decimale) in uso in un sistema, è possibile adottare diverse modalità. Ne mostriamo alcune:

===1<SUP>a</sup> modalità===
Mediante l'uso della funzione stringa "Str()", la quale nell'effettuare la conversione utilizza la corrente localizzazione per convertire numeri e date.   [<FONT Size=1>[[#Note|nota 1]]</font>]
 Public Sub Main()
  
  Dim f as float
  Dim s as string
   
  f = 5/2 
  s = Str(f)
   
  Print Mid(s, 2, 1)
 
 <FONT Color=gray>' ''oppure:''</font>
  Print s[1]
 <FONT Color=gray>' ''oppure più brevemente:''</font>
  Str(f)
   
 End


===2<SUP>a</sup> modalità===
Con l'uso di una variabile di tipo ''Puntatore'':
 Public Sub Main()
  
  Dim f As Float  
  Dim s As String
  Dim p As Pointer
   
  f = 5 / 7
  s = Str(f)   
  p = Alloc(s)
  
 <FONT Color=gray>' ''Dereferenzia il Puntatore leggendo - come valore Byte - solo il 2° valore della originaria stringa.''
 ' ''Quindi converte quel valore di tipo Byte nel corrispettivo carattere ASCII:''</font>
  Print Chr(Byte@(p + 1))
 
  Free(p)
   
 End


===3<SUP>a</sup> modalità===
Mediante un vettore di tipo Byte[] e la funzione "Str()":
 Public Sub Main()
  
  Dim f As Float
  Dim bb As Byte[]
 
  f = 5 / 7
  bb = Byte[].FromString(Str(f))
  
  Print Chr(bb[1])
  
 End


===4<SUP>a</sup> modalità===
Estrapolando l'informazione dal file di sistema ''/usr/share/i18n/locales/......'':
 Public Sub Main()
  
  Dim locales, lingua, 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), "*decimal_point*\n*")[1]
 
  Print "Separatore decimale:  "; sep
 
 End


===5<SUP>a</sup> modalità===
Utilizzando un paio di specifiche funzioni esterne della libreria ''/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>' ''Specifichiamo 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()
    
  With lc
    Print "- Impostazioni locali numeriche -\n\nSeparatore decimale:  "; String@(.decimal_point)
    Print "Separatore migliaia:  "; String@(.thousands_sep)
  End With
   
 End



=Note=
[1] Codice proposto dal membro [http://www.gambas-it.org/smf/index.php?action=profile;u=207 Akrobaticone] del forum ''gambas-it.org .