VBでの漢字チェックルーチン

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

◆ VBでの漢字チェックルーチン

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

Unicodeの漢字の正規表現は、以下でほぼ間違いないそうです。(参考:http://d.hatena.ne.jp/toton/20051102/1130971334)

[一-龠]+|[ぁ-ん]+|[ァ-ヴ]+]+|[a-zA-Z0-9]+

したがって、VBでの漢字チェックルーチンは以下の感じです。

Public Function CheckKanji(strIn As String) As Boolean
    
    Dim RE As New RegExp

    RE.Pattern = "[一-龠]+|[ぁ-ん]+|[ァ-ヴ]+]+|[a-zA-Z0-9]+"

    If RE.Test(strIn) Then
        'MsgBox "入力文字列には、漢字が含まれてます。"
        CheckKanji = True
    Else
        'MsgBox "入力文字列には、漢字が含まれていません。"
        CheckKanji = False
    End If

End Function

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。

人のよいところをどんどん見つけよう