Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

Averiguar Que Tipo De Moneda Usa El Sistema Operativo?

Responder al tema

Ir a la página 1, 2, 3  Siguiente

v3ctor
Citar
Mensajes: 1786 Ubicación: Uruguay
Domingo, 20 Diciembre 2015, 02:20
Objetivo: 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?

Perfil MP   Sitio web
vuott
Citar
Mensajes: 2086
Domingo, 20 Diciembre 2015, 03:31
Objetivo: 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

Perfil MP  
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Domingo, 20 Diciembre 2015, 10:30
Objetivo: Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo?
Pues si que es raro que la clase System no tenga esa opción.

Perfil MP   Sitio web
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Domingo, 20 Diciembre 2015, 12:32
Objetivo: 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

Perfil MP   Sitio web
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Domingo, 20 Diciembre 2015, 12:57
Objetivo: 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
Perfil MP   Sitio web
vuott
Citar
Mensajes: 2086
Domingo, 20 Diciembre 2015, 17:15
Objetivo: Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo?
Shell,

tu codigo no me da ningún resultado ! dunno

Perfil MP  
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Domingo, 20 Diciembre 2015, 18:38
Objetivo: 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

Perfil MP   Sitio web
vuott
Citar
Mensajes: 2086
Domingo, 20 Diciembre 2015, 18:50
Objetivo: 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
Perfil MP  
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Lunes, 21 Diciembre 2015, 10:10
Objetivo: 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

Perfil MP   Sitio web
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Lunes, 21 Diciembre 2015, 11:50
Objetivo: 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

Perfil MP   Sitio web
Responder al tema
Ir a la página 1, 2, 3  Siguiente

Página 1 de 3


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.4534s (PHP: -74% SQL: 174%)
Consultas SQL: 46 - Debug off - GZIP Activado