玄関へお回り下さい。
文字列を他種文字列（半角→←全角　等各種）に変換する (11個)        (SNo.012)
１．英字の大文字を小文字に変換します （３方法）
２．英字の小文字を大文字に変換します （３方法）
３．文字列内の半角文字 (1 バイト) を全角文字 (2 バイト) に変換します。
４．文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換します。
５．文字列内のひらがなをカタカナに変換します。
６．文字列内のカタカナをひらがなに変換します。
７．文字列の各単語の先頭の文字を大文字に変換します。
使用コントロール Button1  〜　Button7
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
 
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'英字の大文字を小文字に変換する(３方法)
    Dim str1 As String = "ABCDefgh"
    'String.ToLower メソッド を使った方法 
    Console.WriteLine(str1.ToLower)         '結果  abcdefgh

    'LCase 関数 を使った方法
    Console.WriteLine(Microsoft.VisualBasic.LCase(str1))     '結果  abcdefgh

    'StrConv 関数 を使った方法
    Console.WriteLine(Microsoft.VisualBasic.StrConv( _
            str1, Microsoft.VisualBasic.VbStrConv.LowerCase)) '結果  abcdefgh
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'英字の小文字を大文字に変換する(３方法)
    Dim str1 As String = "ABCDefgh"

    'String.ToUpper メソッド を使った方法 
    Console.WriteLine(str1.ToUpper)      '結果  ABCDEFGH

    'UCase 関数 を使った方法
    Console.WriteLine(Microsoft.VisualBasic.UCase(str1))     '結果  ABCDEFGH

    'StrConv 関数 を使った方法
    Console.WriteLine(Microsoft.VisualBasic.StrConv( _
　　　　　　str1, Microsoft.VisualBasic.VbStrConv.UpperCase)) '結果  ABCDEFGH
End Sub
３．文字列内の半角文字 (1 バイト) を全角文字 (2 バイト) に変換します。

Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'半角文字を全角文字に変換する
    Dim str1 As String = "ABアイ12"　'アイ は実際は、半角文字です
    Console.WriteLine(Microsoft.VisualBasic.StrConv( _
　　　　　　str1, Microsoft.VisualBasic.VbStrConv.Wide))  '結果  ＡBアイ１２
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'全角文字を半角文字に変換する
    Dim str1 As String = "ＡＢアイ１２"
    Console.WriteLine(Microsoft.VisualBasic.StrConv( _
　　　　　　str1, Microsoft.VisualBasic.VbStrConv.Narrow)) '結果  ABｱｲ12
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'ひらがなをカタカナに変換する
    Dim str1 As String = "あいうえお"
    Console.WriteLine(Microsoft.VisualBasic.StrConv( _
　　　　　　str1, Microsoft.VisualBasic.VbStrConv.Katakana))  '結果  アイウエオ
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button6.Click
'カタカナをひらがなに変換する
    Dim str1 As String = "アイウエオ"
    Console.WriteLine(Microsoft.VisualBasic.StrConv( _
　　　　　　str1, Microsoft.VisualBasic.VbStrConv.Hiragana))  '結果  あいうえお
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button7.Click
'単語の先頭文字を大文字に変換する
    Dim str1 As String = "abcde fghij klmn"
    Console.WriteLine(Microsoft.VisualBasic.StrConv( _
　　　　　　str1, Microsoft.VisualBasic.VbStrConv.ProperCase))   '結果  Abcde Fghij Klmn

'大文字と小文字の区別を適切に行うための文字列の有効な単語の区切り記号としては、
'Null (Chr(0))、水平タブ (Chr(9))、ライン フィード (Chr(10))、垂直タブ (Chr(11))、
'フォーム フィード (Chr(12))、キャリッジ リターン (Chr(13))、スペース (1 バイト文字セット)
' (Chr(32)) があります。空白の実際の値は、全角文字と半角文字のどちらでもかまいませんが、
'東アジア文化圏では国/地域によって異なります。
End Sub
※ .NETのStrConv では VB6.0の vbFromUnicode　や vbUnicode　へは変換できません。




2004/04/25
2005/09/04


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005