Visual Basic サンプル集 |
Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 >
英語の小文字と大文字を変換する
2022/6/19
→ C# のサンプルに切り替える → Python のサンプルに切り替える
目次
"SQL Serverです" を "SQL SERVERです" に変換する(小文字→大文字)
Dim value As String = "SQL Serverです"
Dim result As String = value.ToUpperInvariant
Debug.WriteLine(result) 'SQL SERVERです
メモ: 英語以外のラテン文字も変換します。たとえば é は É に変換されます。
メモ:この例のToUpperInvariantメソッドはカルチャーの影響を受けません。たとえば、 i は 必ず I に変換されます。一方 ToUpperメソッドは実行環境のカルチャーによって結果が変わります。たとえば、トルコのカルチャー(tr-TR)で実行すると i が İ に変換されます。
これでもできます。
Dim value As String = "SQL Serverです"
Dim result As String = UCase(value)
Debug.WriteLine(result) 'SQL SERVERです
メモ: 英語以外のラテン文字も変換します。たとえば é は É に変換されます。
メモ:この例のUcaseメソッドはカルチャーの影響を受けます。たとえば、トルコのカルチャー(tr-TR)で実行すると i が İ に変換されます。
"SQL Serverです" を "sql serverです" に変換する(大文字→小文字)
Dim value As String = "SQL Serverです"
Dim result As String = value.ToLowerInvariant
Debug.WriteLine(result) 'sql serverです
メモ: 英語以外のラテン文字も変換します。たとえば É は é に変換されます。
メモ:この例のToLowerInvariantメソッドはカルチャーの影響を受けません。たとえば、 I は 必ず i に変換されます。一方 ToLowerメソッドは実行環境のカルチャーによって結果が変わります。たとえば、トルコのカルチャー(tr-TR)で実行すると I が ı に変換されます。
これでもできます。
Dim value As String = "SQL Serverです"
Dim result As String = LCase(value)
Debug.WriteLine(result) 'sql serverです
メモ: 英語以外のラテン文字も変換します。たとえば É は é に変換されます。
メモ:この例のLCaseメソッドはカルチャーの影響を受けます。たとえば、トルコのカルチャー(tr-TR)で実行すると I が ı に変換されます。
"SQL Serverです" を "sql sERVERです" に変換する(小文字⇔大文字)
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です
メモ: 英語以外のラテン文字も変換します。たとえば É は é に変換されます。
メモ:この例はカルチャーの影響を受けません。
VB6では UCase, LCase を使用します。