PassoloApp.GetLangCode
Returns a language or region/country code as string.
Syntax
Expression.GetLangCode (LangID as Integer, Type as Variant) as String
Expression Required. Object of type PassoloApp
LangID Integer, Language ID as defined in the appendix of the Passolo Reference Manual and used in Passolo to define source and target languages.
Type Variant, optional.
pslCodeWin (default) (Value = 0):return language code as used by Windows. See appendix of the Passolo Reference Manual ("deu")
pslCode639_2B (Value = 1): return language code as ISO 639 3-letter code (Bibliography) ("ger")
pslCode639_2T (Value = 2): return language code as ISO 639 3-letter code (Terminology) ("deu")
pslCode639_1 (Value = 3): return language code as ISO 639 2-letter code ("de")
pslCodeISO (Value = 4): return language code as ISO 639 3-letter code or ISO 639 2-letter code if available ("de")
pslCode3166_2 (Value = 5): returns region/country code as ISO 3166 2 3-letter code ("deu")
pslCode3166_1 (Value = 6): returns region/country code as ISO 3166 2 2-letter code ("DE")
pslCodeWinRgn (Value = 7): returns region/country code as Windows 3-letter code ("DEU")
pslCodeLangRgn (Value = 8): returns combined ISO language - region/country code ("de-DE")
pslCodeHex (Value = 9): returns a the language code as hex values. If the region is the default region, only the primary language is returned. E.g. pslLangEnglishUSA returns "09", but pslLangEnglishCanada returns "0904"
pslCodeHex2 (Value = 10): returns a the language code as hex values. In contrast to pslCodeHex the secondary language is returned with default regions. E.g. pslLangEnglishUSA returns "0901"
pslCodeText (Value = 11): return the localized name of the language (country/region) ("German (Germany)"). This depends of the language of the Passolo user interface.
pslCodeEnglishText (Value = 12): return the English name of the language (country/region) ("German (Germany)")
pslCodeDecimal (Value = 13): return the language code as decimal value, i.e. LangID as string
pslCodeSDLX (Value = 14): return the language code used for SDLX ("DE")
pslCodeTrados (Value = 15): return the language code used for SDL Trados ("DE-DE")
Example
Sub main
Dim msg As String
msg = "The language codes for basque are" & vbCrLf
msg = msg & PSL.GetLangCode(pslLangBasque, pslCode639_2B) & " in pslCode639_2B" & vbCrLf
msg = msg & PSL.GetLangCode(pslLangBasque, pslCode639_2T) & " in pslCode639_2T" & vbCrLf
msg = msg & PSL.GetLangCode(pslLangBasque, pslCodeWin) & " in pslCodeWin"
MsgBox(msg)
End Sub