玄関へお回り下さい。
テキスト中に異種文字が混在していないかを調べる (5個)            (SNo.048)

１．テキストボックス（文字列）中にカタカナ以外が混じっていないかチェック
２．テキストボックス（文字列）中にひらがな以外が混じっていないかチェック
３．テキストボックス（文字列）中に半角カタカナが混じっていないかチェック
４．テキストボックス（文字列）中にアルファベットが混じっていないかチェック
５．テキストボックス（文字列）中に半角英数字以外が混じっていないかチェック
使用コントロール Button1  〜  Button1　　　　TextBox1　〜　TextBox5
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
Imports System.Text.RegularExpressions  をモジュールの先頭に記述しておいて下さい。
１．テキストボックス（文字列）中にカタカナ以外が混じっていないかチェック
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'カタカナ以外が混じっていないかチェック
    'Imports System.Text.RegularExpressions
    'Regex.IsMatch メソッド
    '正規表現と一致する対象が入力文字列内で見つかったかどうかを示します
    If Regex.IsMatch(TextBox1.Text, "^\p{IsKatakana}*$") = False Then
        MessageBox.Show("カタカナ以外が混じっています")
        TextBox1.Focus()
    End If
End Sub
２．テキストボックス（文字列）中にひらがな以外が混じっていないかチェック

Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'ひらがな以外が混じっていないかチェック
    If Regex.IsMatch(TextBox2.Text, "^\p{IsHiragana}*$") = False Then
        MessageBox.Show("ひらがな以外が混じっています")
        TextBox2.Focus()
    End If
End Sub
　
３．テキストボックス（文字列）中に半角カタカナが混じっていないかチェック
　
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'半角カタカナが混じっていないかチェック
    If Regex.IsMatch(TextBox3.Text, "[\uFF61-\uFF9F]") Then
        MessageBox.Show("半角カタカナがが混じっています")
        TextBox3.Focus()
    End If
End Sub
　
４．テキストボックス（文字列）中にアルファベットが混じっていないかチェック
　
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'アルファベットが混じっていないかチェック
    If TextBox4.Text Like "*[a-z,A-Z,ａ-ｚ,Ａ-Ｚ]*" Then
        MessageBox.Show("アルファベットが混じっています")
        TextBox4.Focus()
    End If
End Sub
　
５．テキストボックス（文字列）中に半角英数字以外が混じっていないかチェック
　
Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'半角英数字以外が混じっていないかチェック
    If Regex.IsMatch(TextBox5.Text, "^[a-zA-Z0-9]+$") = False Then
        MessageBox.Show("半角英数字以外が混じっています")
        TextBox5.Focus()
    End If
End Sub
正規表現を扱った時に調べていて見つかったのを応用してみました。　




2004/05/29
2005/09/20


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005