ヘッダー
Visual Basic サンプル集
VB.NET2002対応 VB.NET2003対応 VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応 Visual Studio 2022

英語の小文字と大文字を変換する

2022/6/19

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

 

"SQL Serverです" を "SQL SERVERです" に変換する(小文字→大文字)

VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応 Visual Studio 2022

Dim value As String = "SQL Serverです"
Dim result As String = value.ToUpperInvariant

Debug.WriteLine(result) 'SQL SERVERです

Debug.WriteLineが表示される場所

メモ: 英語以外のラテン文字も変換します。たとえば é は É に変換されます。

メモ:この例のToUpperInvariantメソッドはカルチャーの影響を受けません。たとえば、 i は 必ず I に変換されます。一方 ToUpperメソッドは実行環境のカルチャーによって結果が変わります。たとえば、トルコのカルチャー(tr-TR)で実行すると i が İ に変換されます。

 

これでもできます。

VB.NET2002対応 VB.NET2003対応 VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応 Visual Studio 2022

Dim value As String = "SQL Serverです"
Dim result As String = UCase(value)

Debug.WriteLine(result) 'SQL SERVERです

Debug.WriteLineが表示される場所

メモ: 英語以外のラテン文字も変換します。たとえば é は É に変換されます。

メモ:この例のUcaseメソッドはカルチャーの影響を受けます。たとえば、トルコのカルチャー(tr-TR)で実行すると i が İ に変換されます。

 

 

"SQL Serverです" を "sql serverです" に変換する(大文字→小文字)

VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応 Visual Studio 2022

Dim value As String = "SQL Serverです"
Dim result As String = value.ToLowerInvariant

Debug.WriteLine(result) 'sql serverです

Debug.WriteLineが表示される場所

メモ: 英語以外のラテン文字も変換します。たとえば É は é  に変換されます。

メモ:この例のToLowerInvariantメソッドはカルチャーの影響を受けません。たとえば、 I は 必ず i に変換されます。一方 ToLowerメソッドは実行環境のカルチャーによって結果が変わります。たとえば、トルコのカルチャー(tr-TR)で実行すると I が ı に変換されます。

 

これでもできます。

VB.NET2002対応 VB.NET2003対応 VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応 Visual Studio 2022

Dim value As String = "SQL Serverです"
Dim result As String = LCase(value)

Debug.WriteLine(result) 'sql  serverです

Debug.WriteLineが表示される場所

メモ: 英語以外のラテン文字も変換します。たとえば É は é  に変換されます。

メモ:この例のLCaseメソッドはカルチャーの影響を受けます。たとえば、トルコのカルチャー(tr-TR)で実行すると I が ı に変換されます。

 

 

"SQL Serverです" を "sql sERVERです" に変換する(小文字⇔大文字)

VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応 Visual Studio 2022

Dim value As String = "SQL Serverです"
Dim result As String = (From c In value Select If(Char.IsUpper(c), Char.ToLowerInvariant(c), Char.ToUpperInvariant(c))).ToArray

Debug.WriteLine(result) 'sql sERVERです

Debug.WriteLineが表示される場所

メモ: 英語以外のラテン文字も変換します。たとえば É は é  に変換されます。

メモ:この例はカルチャーの影響を受けません。

 


VB6対応 VB6では UCase, LCase を使用します。

 

改訂履歴

2022/6/19

  • 全面刷新

2005年頃

  • 初版