@OSLang 代码

这里列出的是 @OSLang 可能获得的返回值(字符串)

此表的数据从此页面获得: Windows 2000 - List of Locale IDs and Language Groups

注意: 代码中如有字母则这些字母可能是大写的.

代码 意义(语言)
0436 南非荷兰语
041c 阿尔巴尼亚语
0401 阿拉伯语(沙特阿拉伯)
0801 阿拉伯语(伊拉克)
0c01 阿拉伯语(埃及)
1001 阿拉伯语(利比亚)
1401 阿拉伯语(阿尔及利亚)
1801 阿拉伯语(摩洛哥)
1c01 阿拉伯语(突尼斯)
2001 阿拉伯语(阿曼)
2401 阿拉伯语(也门)
2801 阿拉伯语(叙利亚)
2c01 阿拉伯语(约旦)
3001 阿拉伯语(黎巴嫩)
3401 阿拉伯语(科威特)
3801 阿拉伯语(阿拉伯联合酋长国)
3c01 阿拉伯语(巴林)
4001 阿拉伯语(卡塔尔)
042b 亚美尼亚语
042c 阿泽里语(拉丁)
082c 阿泽里语(斯拉夫)
042d 巴斯克语
0423 白俄罗斯
0402 保加利亚语
0403 加泰罗尼亚语
0404 中文(台湾)
0804 中文(中国)
0c04 中文(香港特别行政区)
1004 中文(新加坡)
1404 中文(澳门特别行政区)
041a 克罗地亚人语
0405 捷克语
0406 丹麦语
0413 荷兰语(标准)
0813 荷兰语(比利时)
0409 英语(美国)
0809 英语(英国)
0c09 英语(澳大利亚)
1009 英语(加拿大)
1409 英语(新西兰)
1809 英语(爱尔兰)
1c09 英语(南非)
2009 英语(牙买加)
2409 英语(加勒比)
2809 英语(伯利兹)
2c09 英语(特立尼达)
3009 英语(津巴布韦)
3409 英语(菲律宾)
0425 爱沙尼亚语
0438 法罗语
0429 波斯语
040b 芬兰语
040c 法语(标准)
080c 法语(比利时)
0c0c 法语(加拿大)
100c 法语(瑞士)
140c 法语(卢森堡)
180c 法语(摩纳哥)
0437 格鲁吉亚语
0407 德语(标准)
0807 德语(瑞士)
0c07 德语(奥地利)
1007 德语(卢森堡)
1407 德语(列支敦士登)
408 希腊语
040d 希伯来语
0439 印第语
040e 匈牙利语
040f 冰岛语
0421 印度尼西亚语
0410 意大利语(标准)
0810 意大利语(瑞士)
0411 日语
043f 哈撒克语
0457 刚卡尼语
0412 朝鲜语/韩语
0426 拉脱维亚语
0427 立陶宛语
042f 马其顿语
043e 马来语(马来西亚)
083e 马来人(文莱达鲁萨兰)
044e 马拉地语
0414 挪威语(伯克梅尔)
0814 挪威语(尼诺斯克)
0415 波兰语
0416 葡萄牙语(巴西)
0816 葡萄牙语(标准)
0418 罗马尼亚语
0419 俄语
044f 梵语
081a 塞尔维亚语(拉丁)
0c1a 塞尔维亚语(西里尔文)
041b 斯洛伐克语
0424 斯洛文尼亚语
040a 西班牙语(传统)
080a 西班牙语(墨西哥)
0c0a 西班牙语(国际)
100a 西班牙语(危地马拉)
140a 西班牙语(哥斯达黎加)
180a 西班牙语(巴拿马)
1c0a 西班牙语(多米尼加共和国)
200a 西班牙语(委内瑞拉)
240a 西班牙语(哥伦比亚)
280a 西班牙语(秘鲁)
2c0a 西班牙语(阿根廷)
300a 西班牙语(厄瓜多尔)
340a 西班牙语(智利)
380a 西班牙语(乌拉圭)
3c0a 西班牙语(巴拉圭)
400a 西班牙语(玻利维亚)
440a 西班牙语(萨尔瓦多)
480a 西班牙语(洪都拉斯)
4c0a 西班牙语(尼加拉瓜)
500a 西班牙语(波多黎各)
0441 斯瓦西里语
041d 瑞典语
081d 瑞典语(芬兰)
0449 泰米尔语
0444 塔塔尔语
041e 泰语
041f 土耳其语
0422 乌克兰语
0420 乌尔都语
0443 乌兹别克语(拉丁文)
0843 乌兹别克语(西里尔文)
042a 越南语

示例


MsgBox(0, "您的系统语言代码:", _Language())

Func _Language()
    Select
        Case StringInStr("0413 0813", @OSLang)
            Return "Dutch"

        Case StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @OSLang)
            Return "English"

        Case StringInStr("040c 080c 0c0c 100c 140c 180c", @OSLang)
            Return "French"

        Case StringInStr("0407 0807 0c07 1007 1407", @OSLang)
            Return "German"

        Case StringInStr("0410 0810", @OSLang)
            Return "Italian"

        Case StringInStr("0414 0814", @OSLang)
            Return "Norwegian"

        Case StringInStr("0415", @OSLang)
            Return "Polish"

        Case StringInStr("0416 0816", @OSLang)
            Return "Portuguese"

        Case StringInStr("040a 080a 0c0a 100a 140a 180a 1c0a 200a 240a 280a 2c0a 300a 340a 380a 3c0a 400a 440a 480a 4c0a 500a", @OSLang)
            Return "Spanish"

        Case StringInStr("041d 081d", @OSLang)
            Return "Swedish"

        Case Else
            Return "Other (can't determine with @OSLang directly)"

    EndSelect
EndFunc   ;==>_Language