Snippet

Výčet názvů států včetně zkratky

Přidáno: 28.1.2010 Kategorie: Aplikace Autor: Ondřej Linhart

Tento útržek kódu ukazuje jak provést výčet všech států včetně lokalizovaného i původního názvu a zkratky podle normy ISO 3166.

Imports System.Globalization
Module Module1
  Sub Main()
    'Vybrat pouze specifické kultury
    '(pro získání informací nelze použít neutrální kultury)
    Dim cultures = CultureInfo.GetCultures(CultureTypes.SpecificCultures)
    For Each culture In cultures
      Dim info = New RegionInfo(culture.LCID)
      With info
        'Jméno státu v jazyce operačního systému
        Console.WriteLine(.DisplayName)
        'Jméno státu v angličtině
        Console.WriteLine(.EnglishName)
        'Jméno státu v jazyce příslušné země
        Console.WriteLine(.NativeName)
        '2-písmenná zkratka státu podle ISO 3166
        Console.WriteLine(.Name)
        '3-písmenná zkratka státu podle ISO 3166
        Console.WriteLine(.ThreeLetterISORegionName)
        Console.WriteLine()
      End With
    Next
    Console.ReadKey()
  End Sub
End Module