Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim mpLang As Map
Dim Language As String
End Sub
Sub InitLanguage
Dim Lang As String
Dim lst As List
Dim str() As String
Dim tmp As String
mpLang.Initialize
Log("Sprache=" & GetPreferredLanguage)
Select Case GetPreferredLanguage
Case "de"
Language = "de_"
Lang="lang_de.txt"
Case "it"
Language = "it_"
Lang="lang_it.txt"
Case Else
Language = "en_"
Lang="lang_en.txt"
End Select
lst=File.ReadList(File.DirAssets, Lang)
For i = 0 To lst.Size - 1
tmp = lst.Get(i)
str = Regex.Split("=", tmp)
If str.Length = 2 Then
mpLang.Put(str(0),str(1))
Else If str.Length > 2 Then
mpLang.Put(str(0), tmp.SubString(tmp.IndexOf("=") + 1))
End If
Next
End Sub
Sub getStr(Key As String) As String
Dim ret As StringBuilder
ret.Initialize
Dim str() As String=Regex.Split("\\n\ ", mpLang.Get(Key))
For i = 0 To str.Length - 1
ret.Append(str(i))
If i < str.Length - 1 Then ret.Append(CRLF)
Next
' Log("Key= " & Key & " ;" & ret.ToString)
Return ret.ToString
End Sub
'NSString * myString = [[NSLocale preferredlanguage]objectAtIndex:0];
Sub GetPreferredLanguage As String
Dim no As NativeObject
Return no.Initialize("NSLocale") _
.RunMethod("preferredLanguages", Null).RunMethod("objectAtIndex:", Array(0)).AsString
End Sub
