VB.NET 大文字と小文字を変換(ToLower/ToUpper)

VB.NETの英字の大文字と小文字を変換するサンプルです。

サンプル	英字の大文字を小文字にする(ToLower)
	英字の小文字を大文字にする(ToUpper)
	先頭の文字のみ大文字にする
	最初の文字を大文字にして他の文字を小文字にする
	大文字を小文字にし、小文字を大文字にする

英字の大文字を小文字にする(ToLower)

Public Function ToLower() As [String]

ToLowerメソッドは、英字の大文字を小文字にします。
新しい文字列が生成されます。
英字の全角の大文字も全角の小文字に変換されます。

Module Module1
	Sub Main()
		Dim str1 As String = "ABC"
		Console.WriteLine(str1.ToLower) 'abc

		Dim str2 As String = "Abc"
		Console.WriteLine(str2.ToLower) 'abc

		Dim str3 As String = "ＡＢＣ"
		Console.WriteLine(str3.ToLower) 'ａｂｃ

		Dim str4 As String = "あいう"
		Console.WriteLine(str4.ToLower) 'あいう
	End Sub
End Module

全角の英字の大文字は、全角の英字の小文字に変換します。

英字の小文字を大文字にする(ToUpper)

Public Function ToUpper() As [String]

ToUpperメソッドは、英字の小文字を大文字にします。
新しい文字列が生成されます。
英字の全角の小文字も全角の大文字に変換されます。

Module Module1
	Sub Main()
		Dim str1 As String = "abc"
		Console.WriteLine(str1.ToUpper) 'ABC

		Dim str2 As String = "AbC"
		Console.WriteLine(str2.ToUpper) 'ABC

		Dim str3 As String = "ａｂｃ"
		Console.WriteLine(str3.ToUpper) 'ＡＢＣ

		Dim str4 As String = "あいう"
		Console.WriteLine(str4.ToUpper) 'あいう
	End Sub
End Module

全角の英字の小文字は、全角の英字の大文字に変換します。

先頭の文字のみ大文字にする

Dim str1 As String = "abcde"
Console.WriteLine(str1.Substring(0, 1).ToUpper + str1.Substring(1)) 'Abcde

Dim str2 As String = "abcDE"
Console.WriteLine(str2.Substring(0, 1).ToUpper + str2.Substring(1)) 'AbcDE

Substringの引数が2つの場合は、1つめの引数は開始位置で2つめの引数は長さです。
Substringの引数が1つの場合は、指定した位置の文字から最後の文字まで取得します。
5行目は、後ろ2つの文字は大文字のままです。

最初の文字を大文字にして他の文字を小文字にする

Dim str1 As String = "abcde"
Console.WriteLine(str1.Substring(0, 1).ToUpper + str1.Substring(1).ToLower) 'Abcde

Dim str2 As String = "abcDE"
Console.WriteLine(str2.Substring(0, 1).ToUpper + str2.Substring(1).ToLower) 'Abcde

Substringの引数が2つの場合は、1つめの引数は開始位置で2つめの引数は長さです。
Substringの引数が1つの場合は、指定した位置の文字から最後の文字まで取得します。
5行目は、後ろ2つの文字も小文字になっています。

大文字を小文字にし、小文字を大文字にする

	Dim str1 As String = "AbCdEfg"
	Dim str2 As String = ""

	For i = 0 To str1.Length - 1
		If str1.Substring(i, 1) = str1.Substring(i, 1).ToLower Then
			str2 = str2 + str1.Substring(i, 1).ToUpper
		Else
			str2 = str2 + str1.Substring(i, 1).ToLower
		End If
	Next i
	Console.WriteLine(str2) 'aBcDeFG

for文のループで文字列を1文字ずつみていきます。
if文で小文字か判定しtrueであれば大文字に、そうでなければ小文字に変換します。