「漢字・ひらがなチェック」の編集履歴(バックアップ)一覧はこちら
「漢字・ひらがなチェック」(2009/04/03 (金) 16:37:38) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
Private Function KanjiChk(ByVal strStr As String) As Boolean
'全角文字、全角英数字が1文字でもヒットした場合エラー
If Regex.IsMatch(strStr, "[一-龠]+|[ぁ-ん]+|[ァ-ヴ]+]+|[a-zA-Z0-9]+") Then Return False
End Function
これ使うには【Imports System.Text.RegularExpressions】する必要有。
VBは文字コードにUnicodeを採用しているらしい。
Unicodeの漢字の正規表現は、
【[一-龠]+|[ぁ-ん]+|[ァ-ヴ]+]+|[a-zA-Z0-9]+】でほぼ間違いないらしい。
参考URL:http://d.hatena.ne.jp/toton/20051102/1130971334
2009/04/01:vb2008で動作確認済み