※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

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で動作確認済み