Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB7
Expertise: beginner
Feb 17, 2003



Building the Right Environment to Support AI, Machine Learning and Deep Learning

IsLanguageSupported - Detecting whether a language is supported by the browser

' Returns a Boolean value indicating whether the specified language is supported
' by the client browser. The language string can specify also a sub-language or
' a country, e.g. fr-CA to identify the Canadian French, or it can just be
' fr for general French. The second parameter specify whether the sub-languages
' will be accepted if you just specify the main language. For example,
'  if the browser
' supports fr-CA, and you search for fr, the function returns True if you pass
' True as second parameter, and False otherwise

Function IsLanguageSupported(ByVal lang As String, ByVal includeSubLanguage As _
    Boolean) As Boolean
    Dim i As Integer
    For i = 0 To Request.UserLanguages.Length - 1
        Dim currLang As String = context.Current.Request.UserLanguages(i)
        If includeSubLanguage Then
            If currLang.StartsWith(lang) Then Return True
            If currLang = lang OrElse currLang.StartsWith(lang & ";") Then _
                Return True
        End If
    Next i
End Function
Marco Bellinaso
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date