Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Averiguar Que Tipo De Moneda Usa El Sistema Operativo?

Averiguar Que Tipo De Moneda Usa El Sistema Operativo?
Artículo
Responder citando    Descargar mensaje  
Mensaje Averiguar Que Tipo De Moneda Usa El Sistema Operativo? 
 
buenas,

La idea de esto es averiguar que tipo de moneda usa el sistema operativo y en base a eso usar el signo de moneda en nuestro programa

alguna idea?



 
v3ctor - Ver perfil del usuario Enviar mensaje privado  
v3ctor [ Domingo, 20 Diciembre 2015, 02:20 ]
 


Averiguar Que Tipo De Moneda Usa El Sistema Operativo?
Comentarios
Responder citando    Descargar mensaje  
Mensaje Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo? 
 
Actualmente sólo puedo sugerir este código, utilizando unas funciones externas de Libc.so.6:

Library "libc:6"

Public Struct Lconv
  decimal_point As Pointer
  thousands_sep As Pointer
  grouping As Pointer
  int_curr_symbol As Pointer
  currency_symbol As Pointer
End Struct

Private Const LC_MONETARY As Integer = 4

' char *setlocale (int __category, const char *__locale)
' Set and/or return the current locale.
Private Extern setlocale(category As Integer, locale As String) As Pointer

' struct lconv *localeconv(void)
' Return the numeric/monetary information for the current locale.
Private Extern localeconv() As Lconv


Public Sub Main()

  Dim lc As New Lconv
  
' Precisamos la categoría y el entorno de la impostación local por lengua
    setlocale(LC_MONETARY, System.Language)
    
' Devuelve un Puntero a la Estructura que da informaciones sobre los símbolos numéricos según la impostación local:
    lc = localeconv()
    
    With lc
      Print "Moneda:  "; String@(.int_curr_symbol)
      Print "símbolo monetario:  "; String@(.currency_symbol)
    End With

End




 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Domingo, 20 Diciembre 2015, 03:31 ]
Responder citando    Descargar mensaje  
Mensaje Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo? 
 
Pues si que es raro que la clase System no tenga esa opción.



 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Domingo, 20 Diciembre 2015, 10:30 ]
Responder citando    Descargar mensaje  
Mensaje Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo? 
 
¿ No debería el sistema decirnos todos estos datos y no solo mostrar el mismo resultado que vemos ?.

env | grep LC
 


Salida:

Citar:

LC_PAPER=es_ES.UTF-8
LC_ADDRESS=es_ES.UTF-8
LC_MONETARY=es_ES.UTF-8
LC_NUMERIC=es_ES.UTF-8
LC_TELEPHONE=es_ES.UTF-8
LC_IDENTIFICATION=es_ES.UTF-8
LC_MEASUREMENT=es_ES.UTF-8
LC_TIME=es_ES.UTF-8
LC_NAME=es_ES.UTF-8


Saludos



 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Domingo, 20 Diciembre 2015, 12:32 ]
Responder citando    Descargar mensaje  
Mensaje Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo? 
 
En gambas se podría ver de otra forma, pero no veo lo que nos interesa.

Public Sub Main()
  Dim varentorno As String
  
  For Each varentorno In Application.Env
    If InStr(varentorno, "LC_") Then Print varentorno & " | " & Application.Env[varentorno]
  Next
 
End
 


Como Application.Env es una colección, podemos usar  varentorno como clave y luego para encontrar el valor que corresponde a la clave.

Salida:

Citar:

LC_TIME | es_ES.UTF-8
LC_MONETARY | es_ES.UTF-8
LC_ADDRESS | es_ES.UTF-8
LC_TELEPHONE | es_ES.UTF-8
LC_NAME | es_ES.UTF-8
LC_MEASUREMENT | es_ES.UTF-8
LC_IDENTIFICATION | es_ES.UTF-8
LC_NUMERIC | es_ES.UTF-8
LC_PAPER | es_ES.UTF-8


 

Saludos



 
última edición por Shell el Domingo, 20 Diciembre 2015, 12:59; editado 2 veces 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Domingo, 20 Diciembre 2015, 12:57 ]
Responder citando    Descargar mensaje  
Mensaje Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo? 
 
Shell,

tu codigo no me da ningún resultado !   dunno



 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Domingo, 20 Diciembre 2015, 17:15 ]
Responder citando    Descargar mensaje  
Mensaje Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo? 
 
Vuott:

Citar:

tu codigo no me da ningún resultado !


Cierto. En el trabajo se ve y en casa no.  
Y es la misma distro!. Linux Mint 17.2

Como has visto he usado Instr, para buscar las palabras que contengan o comiencen por LC.
Parece que no hay palabras en las variables de entorno que coincidan con ese patrón...

Si usas:

Public Sub Main()
  Dim varentorno As String
    
  For Each varentorno In Application.Env
    Print varentorno & " | " & Application.Env[varentorno]
    'If InStr(varentorno, "LC_") Then Print varentorno & " | " & Application.Env[varentorno]
  Next
  

End
 


Veras que da salida. Aunque no es la que nos interesa.  

Saludos



 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Domingo, 20 Diciembre 2015, 18:38 ]
Responder citando    Descargar mensaje  
Mensaje Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo? 
 
En Ubuntu muy interesantes son los archivos que están en la directory:
/usr/share/i18n/locales

En cada archivo, distinguido por LANG, hay tambien la moneda y su símbolo.

Propongo un codigo (esta vez sólo gambas !) como lo que sigue:    
Public Sub Main()
  
  Dim lengua, locales, arcloc, unicode, moneda As String
  Dim b As Byte
  
    locales = "/usr/share/i18n/locales"
  
    lengua = Scan(System.Language, "*.*")[0]
  
    arcloc = File.load(locales &/ Dir(locales, lengua, gb.File)[0])
    
    unicode = Scan(Replace(arcloc, " ", Null), "*int_curr_symbol\"<U*<U0020>*")[1]

    For b = 1 To 18 Step 7
      moneda &= Chr(Val("&" & Mid(unicode, b, 4)))
    Next
    
    Print "Moneda:            "; moneda
    
    
    unicode = Scan(Replace(arcloc, " ", Null), "*currency_symbol\"<U*>*")[1]
    
    Print "Símbolo monetario: "; String.Chr(Val("&" & unicode))

End




 
última edición por vuott el Domingo, 20 Diciembre 2015, 21:57; editado 8 veces 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Domingo, 20 Diciembre 2015, 18:50 ]
Responder citando    Descargar mensaje  
Mensaje Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo? 
 
Vuott:

Citar:

Propongo un codigo (esta vez sólo gambas !) como lo que sigue


 6aplaudir

Tengo que examinar mejor el código.

Saludos



 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Lunes, 21 Diciembre 2015, 10:10 ]
Responder citando    Descargar mensaje  
Mensaje Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo? 
 
Citar:

La idea de esto es averiguar que tipo de moneda usa el sistema operativo y en base a eso usar el signo de moneda en nuestro programa


A ver. Creo que nos hemos ido al monte a buscar la respuesta..

Public Sub Main()
 Dim cantidad As Float
 
 cantidad = 12.56
  
 Print "Símbolo monetario: " & Split(Format(cantidad, "$#.##"), " ")[1]
 Print "Moneda: " & Split(Format(cantidad, "$$#.##"), " ")[1]
 
End
 


Salida:

Citar:

Símbolo monetario: €
Moneda: EUR


Ejem...cof..cof...

Saludos



 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Lunes, 21 Diciembre 2015, 11:50 ]
Mostrar mensajes anteriores:    
 
Publicar nuevo tema  Responder al tema  Página 1 de 3
Ir a la página 1, 2, 3  Siguiente
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 



 

cron