【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






ひらがな、カタカナ、漢字の文字チェックをする

.NET では、ある文字が
「ひらがな」「カタカナ」「漢字」
なのかを判断させることが可能です。


この機能を使えば、すべて「ひらがな」文字でなければいけない
入力項目、すべて「カタカナ」文字でなければならない入力項目
のチェックをさせることが可能です。

ここでは、簡単に、「テキストボックス」へ文字列入力して
どうかチェックする場合での説明をしています。

フォームに次の様なコードを記述します

-----------VB.NETコーディングここから-------------------

1.フォームに、テキストボックスコントロールと
    ボタンコントロールを配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

  ┏━━━━━━━━┓
  ┃TextBox1        ┃
  ┗━━━━━━━━┛

  ┏━━━━┓
  ┃Button1 ┃
  ┗━━━━┛



2.ボタンコントロールの
    Button1 text プロパティに「チェック」と記述します。
  ※説明用のためです。必須ではありません。


  ┏━━━━━━━━┓
  ┃TextBox1        ┃
  ┗━━━━━━━━┛

  ┏━━━━┓
  ┃チェック┃
  ┗━━━━┛



3.フォームで右クリックして、「コードの表示」を
  選び、コード編集画面にします。

4.フォームの宣言部に、次のコードを記述します。

    Imports System
    Imports System.Text.RegularExpressions

5.さらに、 Public Class Form1 内に、
  次のコードを記述します。

    'ひらがなかどうかをチェックします。True:はい False:いいえ
    Function Chk_Hiragana(ByVal PistrStr As String) As Boolean
        Chk_Hiragana = Regex.IsMatch(PistrStr, "^\p{IsHiragana}*$")

    End Function

    'カタカナかどうかをチェックします。True:はい False:いいえ
    Function Chk_Katakana(ByVal PistrStr As String) As Boolean
        Chk_Katakana = Regex.IsMatch(PistrStr, "^\p{IsKatakana}*$")

    End Function


    '漢字がどうかをチェックします。True:はい False:いいえ
    Function Chk_Kanji(ByVal PistrStr As String) As Boolean
        Chk_Kanji = Regex.IsMatch(PistrStr, _
        "^\p{IsCJKUnifiedIdeographs}*$")

    End Function




    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim strStr As String
        Dim strMsgStr As String
        strStr = TextBox1.Text


        If strStr.Length = 0 Then
            MsgBox("空白です")
            Exit Sub
        End If

        If (Chk_Hiragana(strStr)) Then
            strMsgStr += "「ひらがな」"
        End If
        If (Chk_Katakana(strStr)) Then
            strMsgStr += "「カタカナ」"
        End If
        If (Chk_Kanji(strStr)) Then
            strMsgStr += "「漢字」"
        End If
        If strMsgStr = "" Then
            strMsgStr += "混在しているか半角です。"
        End If

        '判定結果を表示しています
        MsgBox(strMsgStr)

    End Sub




6.ビルドして実行します。

7.フォームに表示された
    テキストボックスに、チェックしたい文字列を
    ひらがなだけで入力します。
     ※例) もじもじ

8.フォームに表示された「チェック」を押すと、
    メッセージボックスに、
  「ひらがな」が表示されます。

9.フォームに表示された
    テキストボックスに、チェックしたい文字列を
    カタカナだけで入力します。
     ※例) モジモジ

10.フォームに表示された「チェック」を押すと、
    メッセージボックスに、
  「カタカナ」が表示されます。

11.フォームに表示された
    テキストボックスに、チェックしたい文字列を
    漢字だけで入力します。
     ※例) 文字文字

12.フォームに表示された「チェック」を押すと、
    メッセージボックスに、
  「漢字」が表示されます。

-----------VB.NETコーディングここまで-------------------

文字列の中から
ひらがなが含まれているか?
カタカナが含まれているか?

などの含まれているかどうかの判定を行いたい場合は、
正規表現やループ判定などの方法で可能となります。




 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=Oll

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2005/10/06(木)00:05 更新