VB 全角と半角を変換する

全角と半角を変換する

１．全角を半角に変換する例

Dim St1 As String
St1 = StrConv("アイウ学而ABC", VbStrConv.Narrow)

MsgBox(St1)

この例では「ｱｲｳ学而ABC」と表示される。

メモ：未確認情報ですがWindows98だと「￥」、「’」、「”」を正しく処理できない可能性があります。Windows98で使用される場合は十分にテストしてください。

２．半角を全角に変換する例

Dim St1 As String
St1 = StrConv("アイウ学而ABC", VbStrConv.Wide)

MsgBox(St1)

この例では「アイウ学而ＡＢＣ」と表示される。

メモ：この方法だと「\」、「'」、「"」は正しく処理できません。これらの文字も変換するには次に紹介する関数を使用します。

'''■ToWide
''' <summary>半角文字を全角文字に変換する。</summary>
''' <param name="Value">対象の文字列</param>
''' <returns>変換後の文字列</returns>
''' <remarks>「\」、「"」、「'」も処理することができます。</remarks>
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, VbStrConv.Wide)

    Return St

End Function

VB6では全角と半角を変換するを参照