タイトル : Re^5: カタカタだけ全角に変換したい 投稿日 : 2007/02/12(Mon) 12:25 投稿者 : YAS
\p{IsHalfwidthandFullwidthForms}には半角カタカナ以外が含まれていました。 次のようなコードに修正します。 (前回投稿の修正パスワードがわからなくなってしまいました。ごめんなさい。) 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 |