AutoIt Français

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

Code : Tout sélectionner

_TMPcodePays()

Func _TMPcodePays()
Local $CodePays = StringSplit("0436 Afrikaans,041c Albanian,0401 Arabic_Saudi_Arabia" & _
",0801 Arabic_Iraq,0c01 Arabic_Egypt,1001 Arabic_Libya,1401 Arabic_Algeria" & _
",1801 Arabic_Morocco,1c01 Arabic_Tunisia,2001 Arabic_Oman,2401 Arabic_Yemen" & _
",2801 Arabic_Syria,2c01 Arabic_Jordan,3001 Arabic_Lebanon,3401 Arabic_Kuwait" & _
",3801 Arabic_UAE,3c01 Arabic_Bahrain,4001 Arabic_Qatar,042b Armenian" & _
",042c Azeri_Latin,082c Azeri_Cyrillic,042d Basque,0423 Belarusian" & _
",0402 Bulgarian,0403 Catalan,0404 Chinese_Taiwan,0804 Chinese_PRC" & _
",0c04 Chinese_Hong_Kong,1004 Chinese_Singapore,1404 Chinese_Macau" & _
",041a Croatian,0405 Czech,0406 Danish,0413 Dutch_Standard" & _
",0813 Dutch_Belgian,0409 English_United_States,0809 English_United_Kingdom" & _
",0c09 English_Australian,1009 English_Canadian,1409 English_New_Zealand" & _
",1809 English_Irish,1c09 English_South_Africa,2009 English_Jamaica" & _
",2409 English_Caribbean,2809 English_Belize,2c09 English_Trinidad" & _
",3009 English_Zimbabwe,3409 English_Philippines,0425 Estonian,0438 Faeroese" & _
",0429 Farsi,040b Finnish,040c French_Standard,080c French_Belgian" & _
",0c0c French_Canadian,100c French_Swiss,140c French_Luxembourg" & _
",180c French_Monaco,0437 Georgian,0407 German_Standard,0807 German_Swiss" & _
",0c07 German_Austrian,1007 German_Luxembourg,1407 German_Liechtenstei" & _
",408 Greek,040d Hebrew,0439 Hindi,040e Hungarian,040f Icelandic" & _
",0421 Indonesian,0410 Italian_Standard,0810 Italian_Swiss,0411 Japanese" & _
",043f Kazakh,0457 Konkani,0412 Korean,0426 Latvian,0427 Lithuanian" & _
",042f Macedonian,043e Malay_Malaysia,083e Malay_Brunei_Darussalam" & _
",044e Marathi,0414 Norwegian_Bokmal,0814 Norwegian_Nynorsk,0415 Polish" & _
",0416 Portuguese_Brazilian,0816 Portuguese_Standard,0418 Romanian" & _
",0419 Russian,044f Sanskrit,081a Serbian_Latin,0c1a Serbian_Cyrillic" & _
",041b Slovak,0424 Slovenian,040a Spanish_Traditional_Sort" & _
",080a Spanish_Mexican,0c0a Spanish_Modern_Sort,100a Spanish_Guatemala" & _
",140a Spanish_Costa_Rica,180a Spanish_Panama,1c0a Spanish_Dominican_Republic" & _
",200a Spanish_Venezuela,240a Spanish_Colombia,280a Spanish_Peru" & _
",2c0a Spanish_Argentina,300a Spanish_Ecuador,340a Spanish_Chile" & _
",380a Spanish_Uruguay,3c0a Spanish_Paraguay,400a Spanish_Bolivia" & _
",440a Spanish_El_Salvador,480a Spanish_Honduras,4c0a Spanish_Nicaragua" & _
",500a Spanish_Puerto_Rico,0441 Swahili,041d Swedish,081d Swedish_Finland" & _
",0449 Tamil,0444 Tatar,041e Thai,041f Turkish,0422 Ukrainian,0420 Urdu" & _
",0443 Uzbek_Latin,0843 Uzbek_Cyrillic,042a Vietnamese", ",")

For $x = 0 To $CodePays[0] - 1
$T = StringSplit($CodePays[$x + 1], " ")
If StringInStr($T[1], @OSLang) Then
Return MsgBox(0, "Tableau composé de : " & $CodePays[0] & " code", "Langue système : " & $T[2])
EndIf
Next

EndFunc ;==>_TMPcodePays

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

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

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

AutoIt Français

[Ex] Retourne le code Pays

[Ex] Retourne le code Pays

Re: Retourne le code Pays

Re: [Ex] Retourne le code Pays