StrConv(変換する文字列, 変換文字種類)
Newキーワードを使って、オブジェクトのインスタンスを作成します。
第2引数:変換文字種類は複数指定可能
第2引数は、組み合わせて使用することもできます。ただし、互いに矛盾のないように指定します。
たとえば、小文字を大文字に変換後、半角文字を全角文字に変換する場合には、VbStrConv.UpperCase Or VbStrConv.Wideのように、Or演算子を使って記述します。
Option Strictが、Offの場合は、VbStrConv.UpperCase + VbStrConv.Wideのように+を使って記述できますが、できるだけOr演算子を使いましょう。
Dim str1 As String = "abcXYZあいうカキク" Console.WriteLine("元の文字列:" & str1 & vbCrLf) ' 小文字を大文字に変換 Dim str2 As String str2 = StrConv(str1, VbStrConv.UpperCase) Console.WriteLine("大文字変換:" & str2 & vbCrLf) ' 大文字を小文字に変換 Dim str3 As String str3 = StrConv(str1, VbStrConv.LowerCase) Console.WriteLine("小文字変換:" & str3 & vbCrLf) ' 半角文字を全角文字に変換 Dim str4 As String str4 = StrConv(str1, VbStrConv.Wide) Console.WriteLine("全角文字変換:" & str4 & vbCrLf) ' 全角文字を半角文字に変換 Dim str5 As String str5 = StrConv(str1, VbStrConv.Narrow) Console.WriteLine("半角文字変換:" & str5 & vbCrLf) ' ひらがなをカタカナに変換 Dim str6 As String str6 = StrConv(str1, VbStrConv.Katakana) Console.WriteLine("カタカナ変換:" & str6 & vbCrLf) ' カタカナをひらがなに変換 Dim str7 As String str7 = StrConv(str1, VbStrConv.Hiragana) Console.WriteLine("ひらがな変換:" & str7 & vbCrLf) ' 小文字を大文字に変換後、全角文字に変換 Dim str8 As String str8 = StrConv(str1, VbStrConv.UpperCase Or VbStrConv.Wide) Console.WriteLine("大文字変換後に全角文字変換:" & str8 & vbCrLf)
サンプルプログラム
テキストボックスに入力した文字列を、ラジオボタンで選んだ文字種類に変換するプログラムです。
Public Class frmStrConv Inherits System.Windows.Forms.Form #Region " Windows フォーム デザイナで生成されたコード " '自動生成部分省略 #End Region Private Sub Button1_Click _ (ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click If RadioButton1.Checked Then '小文字を大文字に変換 TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.UpperCase) ElseIf RadioButton2.Checked Then '大文字を小文字に変換 TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.LowerCase) ElseIf RadioButton3.Checked Then '半角文字を全角文字に変換 TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.Wide) ElseIf RadioButton4.Checked Then '全角文字を半角文字に変換 TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.Narrow) ElseIf RadioButton5.Checked Then 'ひらがなをカタカナに変換 TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.Katakana) ElseIf RadioButton6.Checked Then 'カタカナをひらがなに変換 TextBox1.Text = StrConv(Me.TextBox1.Text, VbStrConv.Hiragana) ElseIf RadioButton7.Checked Then '小文字を大文字に変換後、全角文字に変換 TextBox1.Text = _ StrConv(TextBox1.Text, VbStrConv.UpperCase Or VbStrConv.Wide) Else MessageBox.Show("変換タイプを選択してください", "エラー") End If End Sub End Class