tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^3: カタカタだけ全角に変換したい
投稿日: 2007/02/12(Mon) 05:16
投稿者ConvertKana
同様の内容の問題でここにたどり着きました。
コード自体はC#ですが特に依存したことは無いかと思います。

/// <summary>
/// 全角英数記号を半角英数記号に変換
/// 半角カタカナを全角カタカナに変換
/// </summary>
/// <param name="src"></param>
/// <returns></returns>
'Public ConvertKana(ByVal src as String) as String
private string ConvertKana(string src)
{
    src = Strings.StrConv(src, VbStrConv.Narrow, 0);
    MatchCollection mc = Regex.Matches(src,"[。-゜]+", RegexOptions.RightToLeft);

    foreach(Match m in mc)
    {
        src = src.Remove(m.Index,m.Length);
        src = src.Insert(m.Index, Strings.StrConv(m.Value, VbStrConv.Wide, 0));
    }
    return src;
}

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。