Visual Basic サンプル集

使用可能なカルチャーの一覧を取得する

2022/7/3

→ C# のサンプルに切り替える　 → Python のサンプルに切り替える

使用可能なカルチャーの一覧をデバッグ出力に出力する
使用可能なカルチャーの一覧をテキストファイルに出力する
使用可能なカルチャーの一覧をHTMLファイルに出力する

使用可能なカルチャーの一覧をデバッグ出力に出力する

Dim all = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)
all.ToList().ForEach(Sub(c) Debug.WriteLine($"{c.Name}{vbTab}{vbTab}{c.DisplayName}"))

→ Debug.WriteLineが表示される場所

→ .NETで利用可能なカルチャーの一覧

実行すると、次のように出力されます。(先頭の7行のみ抜粋)

	Invariant Language (Invariant Country)
aa アファル語
aa-DJ アファル語 (ジブチ)
aa-ER アファル語 (エリトリア)
aa-ET アファル語 (エチオピア)
af アフリカーンス語
af-NA アフリカーンス語 (ナミビア)

使用可能なカルチャーの一覧をテキストファイルに出力する

Dim all = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)

Using writer = New IO.StreamWriter("C:\temp\cultures.txt")
    all.ToList().ForEach(Sub(c) writer.WriteLine($"{c.Name}{vbTab}{c.DisplayName}"))
End Using

→ .NETで利用可能なカルチャーの一覧

実行すると、次のようにテキストファイルが生成されます。(先頭の7行のみ抜粋)

     Invariant Language (Invariant Country)
aa    アファル語
aa-DJ    アファル語 (ジブチ)
aa-ER    アファル語 (エリトリア)
aa-ET    アファル語 (エチオピア)
af    アフリカーンス語
af-NA     アフリカーンス語 (ナミビア)

使用可能なカルチャーの一覧をHTMLファイルに出力する

Dim all = Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)

Using writer = New IO.StreamWriter("C:\temp\cultures.html")
    writer.WriteLine("<!DOCTYPE html>")
    writer.WriteLine("<html><title>All Cultures</title><table>")
    all.ToList().ForEach(Sub(c) writer.WriteLine($"<tr><td>{c.Name}</td><td>{c.DisplayName}</td></tr>"))
    writer.WriteLine("</table></html>")
End Using

→ .NETで利用可能なカルチャーの一覧

　VB6には該当する機能はありません。