タイトル : カタカタだけ全角に変換したい 投稿日 : 2007/01/24(Wed) 10:01 投稿者 : こうめ
いつも参考にさせていただいております。 ありがとうございます。 すべての文字列を英数字および記号(/.:!#&・・・等)は半角でカタカナは全角に 統一したいのですが、良い方法はないでしょうか? 今思っているのが、 まずすべてを半角に変換します。 その後、半角カタカナを全角に置き換えようとしています。 strMoji = StrConv(strMoji, VbStrConv.Narrow) '半角カタカナが混じっていないかチェック If Regex.IsMatch(strMoji, "[\uFF61-\uFF9F]") Then '半角カタカナを全角に変換 strMoji = Replace(strMoji, "ア", "ア") strMoji = Replace(strMoji, "イ", "イ") strMoji = Replace(strMoji, "ウ", "ウ") strMoji = Replace(strMoji, "エ", "エ") strMoji = Replace(strMoji, "オ", "オ") : End If 他にいい方法があれば、教えてください。 よろしくお願いいたします。 |