' This example demonstrates the CultureTypes enumeration 
' and the CultureInfo.CultureTypes property.

Imports System
Imports System.Globalization

Class Sample
    Public Shared Sub Main() 
        ' Create a table of most culture types. 
        Dim mostCultureTypes() As CultureTypes = { _
                CultureTypes.NeutralCultures, _
                CultureTypes.SpecificCultures, _
                CultureTypes.InstalledWin32Cultures, _
                CultureTypes.UserCustomCulture, _
                CultureTypes.ReplacementCultures, _
                CultureTypes.FrameworkCultures, _
                CultureTypes.WindowsOnlyCultures }
        Dim allCultures() As CultureInfo
        Dim combo As CultureTypes
        
        ' Get and enumerate all cultures.
        allCultures = CultureInfo.GetCultures(CultureTypes.AllCultures)
        Dim ci As CultureInfo
        For Each ci In  allCultures
            ' Display the name of each culture.
            Console.WriteLine("Culture: {0}", ci.Name)
            
            ' Get the culture types of each culture. 
            combo = ci.CultureTypes
            
            ' Display the name of each culture type flag that is set.
            Console.Write("  ")
            Dim ct As CultureTypes
            For Each ct In  mostCultureTypes
                If 0 <> (ct And combo) Then
                    Console.Write("{0} ", ct)
                End If
            Next ct
            Console.WriteLine()
        Next ci
    End Sub 'Main
End Class 'Sample

'The following is a portion of the results produced by this code example.
'.
'.
'.
'Culture: syr
'  NeutralCultures FrameworkCultures
'Culture: div
'  NeutralCultures FrameworkCultures
'Culture:
'  SpecificCultures FrameworkCultures
'Culture: ar-SA
'  SpecificCultures FrameworkCultures
'Culture: bg-BG
'  SpecificCultures InstalledWin32Cultures FrameworkCultures
'Culture: ca-ES
'  SpecificCultures InstalledWin32Cultures FrameworkCultures
'Culture: zh-TW
'  SpecificCultures FrameworkCultures
'.
'.
'.

// This example demonstrates the CultureTypes enumeration 
// and the CultureInfo.CultureTypes property.

using System;
using System.Globalization;

class Sample 
{
    public static void Main() 
    {
// Create a table of most culture types. 
    CultureTypes[] mostCultureTypes = new CultureTypes[] {
                        CultureTypes.NeutralCultures, 
                        CultureTypes.SpecificCultures, 
                        CultureTypes.InstalledWin32Cultures, 
                        CultureTypes.UserCustomCulture, 
                        CultureTypes.ReplacementCultures, 
                        CultureTypes.FrameworkCultures,
                        CultureTypes.WindowsOnlyCultures
                        };
    CultureInfo[] allCultures;
    CultureTypes combo;

// Get and enumerate all cultures.
    allCultures = CultureInfo.GetCultures(CultureTypes.AllCultures);
    foreach (CultureInfo ci in allCultures)
        {
// Display the name of each culture.
        Console.WriteLine("Culture: {0}", ci.Name);

// Get the culture types of each culture. 
        combo = ci.CultureTypes;

// Display the name of each culture type flag that is set.
        Console.Write("  ");
        foreach (CultureTypes ct in mostCultureTypes)
            if (0 != (ct & combo))
                Console.Write("{0} ", ct);
        Console.WriteLine();
        }
    }
}

/*
The following is a portion of the results produced by this code example.
.
.
.
Culture: syr
  NeutralCultures FrameworkCultures
Culture: div
  NeutralCultures FrameworkCultures
Culture:
  SpecificCultures FrameworkCultures
Culture: ar-SA
  SpecificCultures FrameworkCultures
Culture: bg-BG
  SpecificCultures InstalledWin32Cultures FrameworkCultures
Culture: ca-ES
  SpecificCultures InstalledWin32Cultures FrameworkCultures
Culture: zh-TW
  SpecificCultures FrameworkCultures
.
.
.
*/

Imports System
Imports System.Globalization

Public Class SamplesCultureInfo

   Public Shared Sub Main()

      ' Displays several properties of the neutral cultures.
      Console.WriteLine("CULTURE ISO ISO WIN DISPLAYNAME                              ENGLISHNAME")
      Dim ci As CultureInfo
      For Each ci In  CultureInfo.GetCultures(CultureTypes.NeutralCultures)
         Console.Write("{0,-7}", ci.Name)
         Console.Write(" {0,-3}", ci.TwoLetterISOLanguageName)
         Console.Write(" {0,-3}", ci.ThreeLetterISOLanguageName)
         Console.Write(" {0,-3}", ci.ThreeLetterWindowsLanguageName)
         Console.Write(" {0,-40}", ci.DisplayName)
         Console.WriteLine(" {0,-40}", ci.EnglishName)
      Next ci

   End Sub 'Main 

End Class 'SamplesCultureInfo


'This code produces the following output.  This output has been cropped for brevity.
'
'CULTURE ISO ISO WIN DISPLAYNAME                              ENGLISHNAME
'ar      ar  ara ARA Arabic                                   Arabic
'bg      bg  bul BGR Bulgarian                                Bulgarian
'ca      ca  cat CAT Catalan                                  Catalan
'zh-CHS  zh  zho CHS Chinese (Simplified)                     Chinese (Simplified)
'zh-CHT  zh  zho CHT Chinese (Traditional)                    Chinese (Traditional)
'cs      cs  ces CSY Czech                                    Czech
'da      da  dan DAN Danish                                   Danish
'de      de  deu DEU German                                   German
'el      el  ell ELL Greek                                    Greek
'en      en  eng ENU English                                  English
'es      es  spa ESP Spanish                                  Spanish
'fi      fi  fin FIN Finnish                                  Finnish

using System;
using System.Globalization;

public class SamplesCultureInfo  {

   public static void Main()  {

      // Displays several properties of the neutral cultures.
      Console.WriteLine( "CULTURE ISO ISO WIN DISPLAYNAME                              ENGLISHNAME" );
      foreach ( CultureInfo ci in CultureInfo.GetCultures( CultureTypes.NeutralCultures ) )  {
         Console.Write( "{0,-7}", ci.Name );
         Console.Write( " {0,-3}", ci.TwoLetterISOLanguageName );
         Console.Write( " {0,-3}", ci.ThreeLetterISOLanguageName );
         Console.Write( " {0,-3}", ci.ThreeLetterWindowsLanguageName );
         Console.Write( " {0,-40}", ci.DisplayName );
         Console.WriteLine( " {0,-40}", ci.EnglishName );
      }

   }

}


/*
This code produces the following output.  This output has been cropped for brevity.

CULTURE ISO ISO WIN DISPLAYNAME                              ENGLISHNAME
ar      ar  ara ARA Arabic                                   Arabic
bg      bg  bul BGR Bulgarian                                Bulgarian
ca      ca  cat CAT Catalan                                  Catalan
zh-CHS  zh  zho CHS Chinese (Simplified)                     Chinese (Simplified)
zh-CHT  zh  zho CHT Chinese (Traditional)                    Chinese (Traditional)
cs      cs  ces CSY Czech                                    Czech
da      da  dan DAN Danish                                   Danish
de      de  deu DEU German                                   German
el      el  ell ELL Greek                                    Greek
en      en  eng ENU English                                  English
es      es  spa ESP Spanish                                  Spanish
fi      fi  fin FIN Finnish                                  Finnish

*/

using namespace System;
using namespace System::Globalization;
int main()
{
   
   // Displays several properties of the neutral cultures.
   Console::WriteLine( "CULTURE ISO ISO WIN DISPLAYNAME                              ENGLISHNAME" );
   System::Collections::IEnumerator^ enum0 = CultureInfo::GetCultures( CultureTypes::NeutralCultures )->GetEnumerator();
   while ( enum0->MoveNext() )
   {
      CultureInfo^ ci = safe_cast<CultureInfo^>(enum0->Current);
      Console::Write( "{0,-7}", ci->Name );
      Console::Write( " {0,-3}", ci->TwoLetterISOLanguageName );
      Console::Write( " {0,-3}", ci->ThreeLetterISOLanguageName );
      Console::Write( " {0,-3}", ci->ThreeLetterWindowsLanguageName );
      Console::Write( " {0,-40}", ci->DisplayName );
      Console::WriteLine( " {0,-40}", ci->EnglishName );
   }
}

/*
This code produces the following output.  This output has been cropped for brevity.

CULTURE ISO ISO WIN DISPLAYNAME                              ENGLISHNAME
ar      ar  ara ARA Arabic                                   Arabic
bg      bg  bul BGR Bulgarian                                Bulgarian
ca      ca  cat CAT Catalan                                  Catalan
zh-CHS  zh  zho CHS Chinese (Simplified)                     Chinese (Simplified)
zh-CHT  zh  zho CHT Chinese (Traditional)                    Chinese (Traditional)
cs      cs  ces CSY Czech                                    Czech
da      da  dan DAN Danish                                   Danish
de      de  deu DEU German                                   German
el      el  ell ELL Greek                                    Greek
en      en  eng ENU English                                  English
es      es  spa ESP Spanish                                  Spanish
fi      fi  fin FIN Finnish                                  Finnish

*/

import System.* ;
import System.Globalization.* ;

public class SamplesCultureInfo
{
     public static void main(String[] args)
    {
        // Displays several properties of the neutral cultures.
        Console.WriteLine("CULTURE ISO ISO WIN DISPLAYNAME                  " 
            + "            ENGLISHNAME");
        
        for (int iCtr = 0; 
            iCtr < (CultureInfo.GetCultures(CultureTypes.NeutralCultures).
            length); iCtr++) {
            CultureInfo ci = 
                CultureInfo.GetCultures(CultureTypes.NeutralCultures)[iCtr];
            Console.Write("{0,-7}", ci.get_Name());
            Console.Write(" {0,-3}", ci.get_TwoLetterISOLanguageName());
            Console.Write(" {0,-3}", ci.get_ThreeLetterISOLanguageName());
            Console.Write(" {0,-3}", ci.get_ThreeLetterWindowsLanguageName());
            Console.Write(" {0,-40}", ci.get_DisplayName());
            Console.WriteLine(" {0,-40}", ci.get_EnglishName());
        }
    } //main 
} //SamplesCultureInfo

/*
This code produces the following output.  This output has been cropped 
for brevity.

CULTURE ISO ISO WIN DISPLAYNAME                              ENGLISHNAME
ar      ar  ara ARA Arabic                                   Arabic
bg      bg  bul BGR Bulgarian                                Bulgarian
ca      ca  cat CAT Catalan                                  Catalan
zh-CHS  zh  zho CHS Chinese (Simplified)                     Chinese 
(Simplified)
zh-CHT  zh  zho CHT Chinese (Traditional)                    Chinese
(Traditional)
cs      cs  ces CSY Czech                                    Czech
da      da  dan DAN Danish                                   Danish
de      de  deu DEU German                                   German
el      el  ell ELL Greek                                    Greek
en      en  eng ENU English                                  English
es      es  spa ESP Spanish                                  Spanish
fi      fi  fin FIN Finnish                                  Finnish
*/