quick scripting solution (not thouroughly tested),
save attached as getlanguage.powerpro, call as
*info expr([EMAIL PROTECTED](win.getlanguage("active")));; getlanguage.powerpro ; http://msdn.microsoft.com/library/default.asp?url=/library/en- us/intl/nls_238z.asp ;;all on one line above @create static m if(not m)do m=map.create(168) if(0==m) quit(-1) m[0x0000]=?"Language Neutral" m[0x007f]=?"The language for the invariant locale (LOCALE_INVARIANT). See MAKELCID." ;;all on one line above m[0x0400]=?"Process or User Default Language" m[0x0800]=?"System Default Language" m[0x0436]=?"Afrikaans" m[0x041c]=?"Albanian" m[0x0401]=?"Arabic (Saudi Arabia)" m[0x0801]=?"Arabic (Iraq)" m[0x0c01]=?"Arabic (Egypt)" m[0x1001]=?"Arabic (Libya)" m[0x1401]=?"Arabic (Algeria)" m[0x1801]=?"Arabic (Morocco)" m[0x1c01]=?"Arabic (Tunisia)" m[0x2001]=?"Arabic (Oman)" m[0x2401]=?"Arabic (Yemen)" m[0x2801]=?"Arabic (Syria)" m[0x2c01]=?"Arabic (Jordan)" m[0x3001]=?"Arabic (Lebanon)" m[0x3401]=?"Arabic (Kuwait)" m[0x3801]=?"Arabic (U.A.E.)" m[0x3c01]=?"Arabic (Bahrain)" m[0x4001]=?"Arabic (Qatar)" m[0x042b]=?"Windows 2000/XP: Armenian. This is Unicode only." m[0x042c]=?"Azeri (Latin)" m[0x082c]=?"Azeri (Cyrillic)" m[0x042d]=?"Basque" m[0x0423]=?"Belarusian" m[0x0445]=?"Bengali (India)" m[0x141a]=?"Bosnian (Bosnia and Herzegovina)" m[0x0402]=?"Bulgarian" m[0x0455]=?"Burmese" m[0x0403]=?"Catalan" m[0x0404]=?"Chinese (Taiwan)" m[0x0804]=?"Chinese (PRC)" m[0x0c04]=?"Chinese (Hong Kong SAR, PRC)" m[0x1004]=?"Chinese (Singapore)" m[0x1404]=?"Windows 98/Me, Windows 2000/XP: Chinese (Macao SAR)" m[0x041a]=?"Croatian" m[0x101a]=?"Croatian (Bosnia and Herzegovina)" m[0x0405]=?"Czech" m[0x0406]=?"Danish" m[0x0465]=?"Windows XP: Divehi. This is Unicode only." m[0x0413]=?"Dutch (Netherlands)" m[0x0813]=?"Dutch (Belgium)" m[0x0409]=?"English (United States)" m[0x0809]=?"English (United Kingdom)" m[0x0c09]=?"English (Australian)" m[0x1009]=?"English (Canadian)" m[0x1409]=?"English (New Zealand)" m[0x1809]=?"English (Ireland)" m[0x1c09]=?"English (South Africa)" m[0x2009]=?"English (Jamaica)" m[0x2409]=?"English (Caribbean)" m[0x2809]=?"English (Belize)" m[0x2c09]=?"English (Trinidad)" m[0x3009]=?"Windows 98/Me, Windows 2000/XP: English (Zimbabwe)" m[0x3409]=?"Windows 98/Me, Windows 2000/XP: English (Philippines)" m[0x0425]=?"Estonian" m[0x0438]=?"Faeroese" m[0x0429]=?"Farsi" m[0x040b]=?"Finnish" m[0x040c]=?"French (Standard)" m[0x080c]=?"French (Belgian)" m[0x0c0c]=?"French (Canadian)" m[0x100c]=?"French (Switzerland)" m[0x140c]=?"French (Luxembourg)" m[0x180c]=?"Windows 98/Me, Windows 2000/XP: French (Monaco)" m[0x0456]=?"Windows XP: Galician" m[0x0437]=?"Windows 2000/XP: Georgian. This is Unicode only." m[0x0407]=?"German (Standard)" m[0x0807]=?"German (Switzerland)" m[0x0c07]=?"German (Austria)" m[0x1007]=?"German (Luxembourg)" m[0x1407]=?"German (Liechtenstein)" m[0x0408]=?"Greek" m[0x0447]=?"Windows XP: Gujarati. This is Unicode only." m[0x040d]=?"Hebrew" m[0x0439]=?"Windows 2000/XP: Hindi. This is Unicode only." m[0x040e]=?"Hungarian" m[0x040f]=?"Icelandic" m[0x0421]=?"Indonesian" m[0x0434]=?"isiXhosa/Xhosa (South Africa)" m[0x0435]=?"isiZulu/Zulu (South Africa)" m[0x0410]=?"Italian (Standard)" m[0x0810]=?"Italian (Switzerland)" m[0x0411]=?"Japanese" m[0x044b]=?"Windows XP: Kannada. This is Unicode only." m[0x0457]=?"Windows 2000/XP: Konkani. This is Unicode only." m[0x0412]=?"Korean" m[0x0812]=?"Windows 95, Windows NT 4.0 only: Korean (Johab)" m[0x0440]=?"Windows XP: Kyrgyz." m[0x0426]=?"Latvian" m[0x0427]=?"Lithuanian" m[0x0827]=?"Windows 98 only: Lithuanian (Classic)" m[0x042f]=?"Macedonian (FYROM)" m[0x043e]=?"Malay (Malaysian)" m[0x083e]=?"Malay (Brunei Darussalam)" m[0x044c]=?"Malayalam (India)" m[0x0481]=?"Maori (New Zealand)" m[0x043a]=?"Maltese (Malta)" m[0x044e]=?"Windows 2000/XP: Marathi. This is Unicode only." m[0x0450]=?"Windows XP: Mongolian" m[0x0414]=?"Norwegian (Bokmal)" m[0x0814]=?"Norwegian (Nynorsk)" m[0x0415]=?"Polish" m[0x0416]=?"Portuguese (Brazil)" m[0x0816]=?"Portuguese (Portugal)" m[0x0446]=?"Windows XP: Punjabi. This is Unicode only." m[0x046b]=?"Quechua (Bolivia)" m[0x086b]=?"Quechua (Ecuador)" m[0x0c6b]=?"Quechua (Peru)" m[0x0418]=?"Romanian" m[0x0419]=?"Russian" m[0x044f]=?"Windows 2000/XP: Sanskrit. This is Unicode only." m[0x043b]=?"Sami, Northern (Norway)" m[0x083b]=?"Sami, Northern (Sweden)" m[0x0c3b]=?"Sami, Northern (Finland)" m[0x103b]=?"Sami, Lule (Norway)" m[0x143b]=?"Sami, Lule (Sweden)" m[0x183b]=?"Sami, Southern (Norway)" m[0x1c3b]=?"Sami, Southern (Sweden)" m[0x203b]=?"Sami, Skolt (Finland)" m[0x243b]=?"Sami, Inari (Finland)" m[0x0c1a]=?"Serbian (Cyrillic)" m[0x1c1a]=?"Serbian (Cyrillic, Bosnia, and Herzegovina)" m[0x081a]=?"Serbian (Latin)" m[0x181a]=?"Serbian (Latin, Bosnia, and Herzegovina)" m[0x046c]=?"Sesotho sa Leboa/Northern Sotho (South Africa)" m[0x0432]=?"Setswana/Tswana (South Africa)" m[0x041b]=?"Slovak" m[0x0424]=?"Slovenian" m[0x040a]=?"Spanish (Spain, Traditional Sort)" m[0x080a]=?"Spanish (Mexican)" m[0x0c0a]=?"Spanish (Spain, Modern Sort)" m[0x100a]=?"Spanish (Guatemala)" m[0x140a]=?"Spanish (Costa Rica)" m[0x180a]=?"Spanish (Panama)" m[0x1c0a]=?"Spanish (Dominican Republic)" m[0x200a]=?"Spanish (Venezuela)" m[0x240a]=?"Spanish (Colombia)" m[0x280a]=?"Spanish (Peru)" m[0x2c0a]=?"Spanish (Argentina)" m[0x300a]=?"Spanish (Ecuador)" m[0x340a]=?"Spanish (Chile)" m[0x380a]=?"Spanish (Uruguay)" m[0x3c0a]=?"Spanish (Paraguay)" m[0x400a]=?"Spanish (Bolivia)" m[0x440a]=?"Spanish (El Salvador)" m[0x480a]=?"Spanish (Honduras)" m[0x4c0a]=?"Spanish (Nicaragua)" m[0x500a]=?"Spanish (Puerto Rico)" m[0x0430]=?"Sutu" m[0x0441]=?"Swahili (Kenya)" m[0x041d]=?"Swedish" m[0x081d]=?"Swedish (Finland)" m[0x045a]=?"Windows XP: Syriac. This is Unicode only." m[0x0449]=?"Windows 2000/XP: Tamil. This is Unicode only." m[0x0444]=?"Tatar (Tatarstan)" m[0x044a]=?"Windows XP: Telugu. This is Unicode only." m[0x041e]=?"Thai" m[0x041f]=?"Turkish" m[0x0422]=?"Ukrainian" m[0x0420]=?"Windows 98/Me, Windows 2000/XP: Urdu (Pakistan)" m[0x0820]=?"Urdu (India)" m[0x0443]=?"Uzbek (Latin)" m[0x0843]=?"Uzbek (Cyrillic)" m[0x042a]=?"Windows 98/Me, Windows NT 4.0 and later: Vietnamese" m[0x0452]=?"Welsh (United Kingdom)" endif quit(0) @str [EMAIL PROTECTED] quit(m[arg(1)]) @str2 quit(case("lower",select([EMAIL PROTECTED](arg(1)),2))) @reset static m if(not m) quit(-1) m=map.destroy(m) quit(0) ;;end getlanguage.powerpro Attention: PowerPro's Web site has moved: http://www.ppro.org Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/power-pro/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
