Android Question Really dumb question...

[kepler]

Hi,

I have the following sample code:

Dim lang As String = "english"
Dim code As String
Dim language As String = lang.ToLowerCase

If(Regex.IsMatch("portuguese",language) = True) Then code = "PT"
If(Regex.IsMatch("english",language) = True) Then code = "EN":Log("EN"):Log(code) 'Prints EN - correct and PT - WRONG
   
Log(code) 'Prints PT - WRONG
Log(Regex.IsMatch("english",language)) 'Prints True!!! - Correct

What the hell am I missing here...?....

Regards,

Kepler

 

[LucaMs]

I don't know, but I don't like many statements on a single line. Probably the problem is the If-End If

Anyway, I would use a Map.

mapLang.Put("english", "EN")
mapLang.Put("portoguese", "PT")

Log(mapLang.Get(language))

 

[sorex]

the : in the if then is probably causing the second command to go outside the if/then.

put some enters after the then, the commands and add an end if and see if that works

why don't you use select language and a few case statements instead?

 

[LucaMs]

why don't you use select language and a few case statements instead?

Anyway, I would use a Map.

Probably both the answer above are wrong: why he uses Regex?

To use a Map or a Select Case, the variable Language must contain exactly the language "name".

Moreover, it is very likely that the library AHLocale can solve every problem.

 

[mc73]

I've tested your sample code and prints EN as expected. You should recheck your code, whether it is identical to the one you posted.

 

[kepler]

Hi,

Everyone's right... lang is defined as a literal string. BUT, I'm actually atributing to lang the result of a function:

Sub GetDefaultLanguage As String
   Dim r As Reflector
   r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
   Return r.RunMethod("getDisplayName")
End Sub

If I define lang as string = "english" I get good results. But if I give lang the value of GetDefaultLanguage (and then put lang to lower case), I get nothing. Even if the Log() is right (gives the lang as "english..." instead of "English...")

Thoughts?

Kepler

 

[DonManfred]

Thoughts?

compare uppercased or lowercased

 

[kepler]

Good morning,

No, not even uppercase works DonManfred... I've managed to put it to work, by making the following (example):

If language.CompareTo("english")>=0 Then
         code = "EN"
    End If

How about that...?

Kepler

 

[klaus]

Instead of
Return r.RunMethod("getDisplayName")
why don't you use this
Return r.RunMethod("getLanguage")
you get directly the two character lower case language code!

 

[kepler]

Thanks Klaus Great solution.

Kepler