Language.LangCode not set for some target languages in Passolo


In a macro, we use the target language of a string list, namely the language code, e.g., "des" for "German (Switzerland)". For some languages, e.g. "German (Belgium)" there is no language code returned by Passolo. The following code is working fine for "German (Switzerland)" and "German (Austria)" but not for "German (Belgium)". Is there a reason for this? Thanks in advance.


In a macro, we use the target language of a string list, namely the language code, e.g., "des" for "German (Switzerland)". For some languages, e.g. "German (Belgium)" there is no language code returned by Passolo. The following code is working fine for "German (Switzerland)" and "German (Austria)" but not for "German (Belgium)". Is there a reason for this? Thanks in advance.

Fullscreen
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
In a macro, we use the target language of a string list, namely the language code, e.g., "des" for "German (Switzerland)". For some languages, e.g. "German (Belgium)" there is no language code returned by Passolo. The following code is working fine for "German (Switzerland)" and "German (Austria)" but not for "German (Belgium)". Is there a reason for this? Thanks in advance.
Sub HandleSourceString(s As PslSourceString)
' Do something with s
End Sub
Sub HandleTransString(t As PslTransString)
PSL.Output(t.TransList.Language.LangCode)
End Sub
Sub Main
Dim i As Long
Dim selcount As Long
' Source List
Dim srcdisp As PslSourceDisplay
Set srcdisp = PSL.ActiveSourceDisplay
If Not srcdisp Is Nothing Then
selcount = srcdisp.StringCount(pslSelection)
For i = 1 To selcount
HandleSourceString(srcdisp.String(i, pslSelection))
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

emoji