任何语言的所有国家的名单？

Question

可能重复:
我在哪里可以获得所有国家/城市的列表以填充列表框？

我有一个两难的境地,我需要一份德语所有国家名单.我可以使用以下代码获取英语的这些信息,但我不知道如何为德语做到这一点.有任何想法吗？

 Dim countries As Generic.List(Of String) = New Generic.List(Of String)
     For Each ci As Globalization.CultureInfo In Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures And Globalization.CultureTypes.NeutralCultures)
         Dim ri As Globalization.RegionInfo = New Globalization.RegionInfo(ci.LCID)
         countries.Add(ri.EnglishName)
 Next ci

Answer 1

Unicode联盟维护几乎所有语言的语言环境翻译列表,当然包括德语.数据存储在非常简单的XML文件中.

从Unicode Consortium站点下载此zip文件(核心CLDR数据)并解压缩de.xml.所有你想要的(以及更多)都在那里.

国家:XPATH = /ldml/localeDisplayNames/territories/territory

在您需要其他语言信息的那一天,只需从zip文件中选择匹配的xml文件(例如:French = fr.xml).