「VB.NET」文字列を全角から半角へ変換するサンプル

2021年9月29日

構文
StrConv(変換文字列, VbStrConv.Narrow)
Public Enum VbStrConv
フィールド　Narrow　文字列内の横幅の広い (全角) 文字を、横幅の狭い (半角) 文字に変換します。 アジアのロケールに適用されます。
使用例

Module Module1

    Sub Main()

        Dim strZen As String = "テスト１２３"
        Console.WriteLine("全角文字: " + strZen)
        Console.WriteLine(Len(strZen))

        'FunctiontestFuncを呼び出す
        testFunc(strZen)

        Console.ReadKey()
    End Sub

    '文字列を全角から半角へ変換
    Public Function testFunc(ByVal target As String) As String

        Dim res As String

        '全角を半角へ変換
        res = StrConv(target, VbStrConv.Narrow)

        Console.WriteLine("半角文字:" + res)
        Console.WriteLine(Len(res))
        Return res

    End Function

End Module

結果
全角文字: テスト１２３
6
半角文字:ﾃｽﾄ123
6