Possible Duplicate:
Where can I get a list of all countries/cities to populate a listbox?




我遇到了一个难题，我需要列出所有德语国家/地区名称。我可以使用以下代码获取该信息，以英语显示，但不确定如何使用德语。有任何想法吗？

 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

Unicode协会维护着几乎所有语言（当然包括德语）的语言环境翻译列表。数据存储在非常简单的XML文件中。

从Unicode Consortium网站下载this zip file（核心CLDR数据）并提取de.xml。您想要的（还有更多）都在那里。

国家/地区：XPATH = /ldml/localeDisplayNames/territories/territory

在您需要另一种语言的信息的那一天，只需从zip文件中选择匹配的xml文件即可（例如：French = fr.xml）。