※上記の広告は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で動作確認済み