「漢字・ひらがなチェック」の編集履歴（バックアップ）一覧はこちら

「漢字・ひらがなチェック」(2009/04/03 (金) 16:37:38) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

Private Function KanjiChk(ByVal strStr As String) As Boolean
    
    '全角文字、全角英数字が1文字でもヒットした場合エラー
    If Regex.IsMatch(strStr, "[一-龠]+|[ぁ-ん]+|[ァ-ヴ]+]+|[ａ-ｚＡ-Ｚ０-９]+") Then Return False

End Function

これ使うには【Imports System.Text.RegularExpressions】する必要有。




VBは文字コードにUnicodeを採用しているらしい。

Unicodeの漢字の正規表現は、
【[一-龠]+|[ぁ-ん]+|[ァ-ヴ]+]+|[ａ-ｚＡ-Ｚ０-９]+】でほぼ間違いないらしい。
参考URL：http://d.hatena.ne.jp/toton/20051102/1130971334


2009/04/01：vb2008で動作確認済み