2010年10月20日

半角カタカナは全角に、全角の英数字、記号、スペースは半角に変換

Webアプリなどで入力した文字列を半角や全角で統一したい場合に使えます。
※Imports System.Text.RegularExpressions の宣言を忘れずに

'/// 半角カタカナは全角に変換し、全角英数字記号は半角に変換 //////
Public Function ConvANK(ByVal moto As String) As String
'-- 全角の英数字、記号、スペースを半角に --
Dim re As Regex = New Regex("[0-9A-Za-z:,. ]+")
Dim output As String = re.Replace(moto, AddressOf myReplacer)
'-- 半角カタカナ(Unicodeで\uFF61-\uFF9Fが範囲)を全角に --
Dim re2 As Regex = New Regex("[\uFF61-\uFF9F]+")
Dim output2 As String = re2.Replace(output, AddressOf myReplacer2)
Return output2
End Function

'/// 半角変換 ///
Shared Function myReplacer(ByVal m As Match) As String
Return Strings.StrConv(m.Value, VbStrConv.Narrow, 0)
End Function

'/// 全角変換 ///
Shared Function myReplacer2(ByVal m As Match) As String
Return Strings.StrConv(m.Value, VbStrConv.Wide, 0)
End Function



posted by なっちゃん at 15:16| 静岡 ☔| Comment(0) | TrackBack(0) | ASP.NET Tips | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前: [必須入力]

メールアドレス:

ホームページアドレス:

コメント: [必須入力]

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。

この記事へのトラックバック
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。