全角と半角を変換する
１．全角を半角に変換する例
Text1.Text = StrConv("アイウ学而ABC",vbNarrow)
この例ではText1に "ｱｲｳ学而ABC"と表示される。
メモ：この方法だと「￥」、「’」、「”」は正しく処理できません。この状況はOSによっても異なるようです。これらの文字も変換するには次に紹介する関数を使用します。
Public Function ToNarrow(ByVal Value As String) As String Dim St As String
St = Replace(Value, "\", "￥")
St = Replace(St, """", ChrW(8221))
St = Replace(St, "'", "’")
St = StrConv(St, vbWide)ToWide = St
End Function
だたし、この関数はすべての環境での動作を保障するものではありません。ご使用の際は「￥」、「’」、「”」を正しく処理できるかテストしてください。
２．半角を全角に変換する例
Text1.Text = StrConv("アイウ学而ABC", vbWide)
この例ではText1に "アイウ学而ＡＢＣ"と表示される。
メモ：この方法だと「\」、「'」、「"」は正しく処理できません。この状況はOSによっても異なるようです。これらの文字も変換するには次に紹介する関数を使用します。
Public Function ToWide(ByVal Value As String) As String Dim St As String
St = Replace(Value, "￥", "\")
St = Replace(St, ChrW(8221), """")
St = Replace(St, "’", "'")
St = StrConv(St, vbNarrow)ToNarrow = St
End Function
だたし、この関数はすべての環境での動作を保障するものではありません。ご使用の際は「\」、「'」、「"」を正しく処理できるかテストしてください。
→全角と半角を変換するを参照