[Ex] Retourne le code Pays

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
ani
Niveau 11
Niveau 11
Messages : 1826
Enregistré le : lun. 23 juil. 2007 12:31
Localisation : Bureau
Status : Hors ligne

[Ex] Retourne le code Pays

#1

Message par ani »

Ces exemples retourne la langue du système d'exploitation,
n'a était testé que sur XP.

Date de diffusion : 05/06/2007

Utilisisation de Tableau

Méthode StringSplit
proposé par Ani
Version = 0.0.0.0a
► Afficher le texte
Méthode sans split
Proposé par papami
Version = 0.0.0.0a

Code : Tout sélectionner

$CodePays="0436 Afrikaans,...etc"

$a=@OSLang
$i=StringInstr($CodePays,$a)
$b=StringMid($CodePays,$i,30)
$i=StringInstr($b,",")
$langue=StringLeft($b,$i-1)
msgbox(0,"",$langue)

Méthode Regex
proposé par Sylvanie
Version = 0.0.0.0a

Code : Tout sélectionner

$liste_pays="0436 Afrikaans,041c Albanian,0401 Arabic_Saudi_Arabia,080..."

$code_pays=StringLower(@OSLang)
$pays=StringRegExp($liste_pays,$code_pays&" (\w+)",1,1)
if IsArray($pays)=0 Then Exit 1
MsgBox(0,"Pays",$pays[0])
Exit 0
Avatar du membre
arrkhan
Niveau 8
Niveau 8
Messages : 528
Enregistré le : sam. 17 nov. 2007 03:30
Status : Hors ligne

Re: Retourne le code Pays

#2

Message par arrkhan »

Allez hop, je déterre un peu ^^

sinon plus simple, pour xp et vista, la recherche dans les WMIs:

Code : Tout sélectionner

$ObjWMIService = ObjGet ( "winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2" )
$ColSettings = $ObjWMIService.ExecQuery ( "Select * from Win32_TimeZone" )
For $ObjItem In $ColSettings
MsgBox ( 0 , "Langue" , $ObjItem.StandardName )
Next
et ca prend moins de place
Avatar du membre
Vins83
Membre émérite
Membre émérite
Messages : 220
Enregistré le : mer. 25 juil. 2007 17:43
Status : Hors ligne

Re: [Ex] Retourne le code Pays

#3

Message par Vins83 »

Un petit tour des clefs qui peuvent nous être utile:

Code : Tout sélectionner

[HKEY_CURRENT_USER\Control Panel\International]
"iCountry"="33"
"Locale"="0000040C"
"sCountry"="France"
"sLanguage"="FRA"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language]
"InstallLanguage"="040C"
"Default"="040c"
@+ Vins
Répondre