/
languages.bas
45 lines (31 loc) · 1.01 KB
/
languages.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
option explicit
function nvl(v as variant) as string ' {
if v is nothing then
nvl = ""
exit function
end if
nvl = v
end function ' }
sub langs() ' {
dim fileName as string
fileName = environ$("temp") & "\languages.txt"
dim f as integer
f = freeFile()
open fileName for output as #f
dim main_lang_id as long
dim sub_lang_id as long
dim lang as language
for each lang in languages ' {
sub_lang_id = lang.id mod 1024
main_lang_id = lang.id \ 1024
print# f, sub_lang_id & chr(9) & _
main_lang_id & chr(9) & _
lang.id & chr(9) & _
lang.nameLocal
' chr(9) & nvl(lang.activeGrammarDictionary ) &
' chr(9) & nvl(lang.activeHyphenationDictionary) &
' chr(9) & nvl(lang.activeSpellingDictionary ) & _
' chr(9) & nvl(lang.activeThesaurusDictionary )
next lang ' }
close# f
end sub ' }