ヘッダー

VB.NET 2002 対応 VB.NET 2003 対応 VB2005 対応

 

Visual Basic 中学校 > VB.NET サンプル >

全角と半角を変換する

1.全角を半角に変換する例

VB.NET2002対応 VB.NET2003対応 VB2005対応

Dim St1 As String

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

MsgBox(St1)

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

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

 

2.半角を全角に変換する例

VB.NET2002対応 VB.NET2003対応 VB2005対応

Dim St1 As String

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

MsgBox(St1)

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

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

VB.NET2002対応 VB.NET2003対応 VB2005対応

'''■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対応 VB6では全角と半角を変換するを参照