タイトル : Re^4: カタカタだけ全角に変換したい 投稿日 : 2007/02/12(Mon) 12:05 投稿者 : YAS
正規表現を使うのであったら,次のようなものはどうでしょう? Public Function ConvertKana(ByVal Src As String) Return Regex.Replace(Src, "\p{IsHalfwidthandFullwidthForms}+", 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 |