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?
Averiguar Que Tipo De Moneda Usa El Sistema Operativo?
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
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
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.
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 ?.
Salida:
Saludos
env | grep LC
Salida:
Citar:
Saludos
Objetivo: Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo?
última edición por Shell el Domingo, 20 Diciembre 2015, 12:59; editado 2 veces
En gambas se podría ver de otra forma, pero no veo lo que nos interesa.
Como Application.Env es una colección, podemos usar varentorno como clave y luego para encontrar el valor que corresponde a la clave.
Salida:
Saludos
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:
Saludos
última edición por Shell el Domingo, 20 Diciembre 2015, 12:59; editado 2 veces
Objetivo: Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo?
Vuott:
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:
Veras que da salida. Aunque no es la que nos interesa.
Saludos
Citar:
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:
Veras que da salida. Aunque no es la que nos interesa.
Saludos
Objetivo: Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo?
última edición por vuott el Domingo, 20 Diciembre 2015, 21:57; editado 8 veces
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:
/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
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
Objetivo: Re: Averiguar Que Tipo De Moneda Usa El Sistema Operativo?
A ver. Creo que nos hemos ido al monte a buscar la respuesta..
Salida:
Ejem...cof..cof...
Saludos
Citar:
A ver. Creo que nos hemos ido al monte a buscar la respuesta..
Salida:
Citar:
Ejem...cof..cof...
Saludos
Página 1 de 3
No puede crear mensajesNo 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.4037s (PHP: -68% SQL: 168%)
Consultas SQL: 47 - Debug off - GZIP Activado