サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/09/11 15:43
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[文字列処理][][] *
* キーワード：半角カナ,全角カナ,,,, *
***********************************************************************************
元質問：カタカタだけ全角に変換したい - こうめ 2007/01/24-10:01 No.4893
すべての文字列を英数字および記号（/.:!#&・・・等)は半角でカタカナは全角に
統一したいのですが、良い方法はないでしょうか？
-----------------------------------------------------------------------------------
Re^5: カタカタだけ全角に変換し.. - YAS 2007/02/12-12:25 No.4976
-----------------------------------------------------------------------------------
正規表現を使うのであったら，次のようなものはどうでしょう？
Public Function ConvertKana(ByVal Src As String) As String
Return Regex.Replace(Src, "[\uFF61-\uFF9F]+", _
New MatchEvaluator(AddressOf RegexMatchEvaluator))
End Function
Private Function RegexMatchEvaluator(ByVal M As Match) As String
Return Strings.StrConv(M.Value, VbStrConv.Wide, 0)
End Function
|
