Back to Top

プログラムの覚書

Category: VB.NET

VB.NET

VB.NET 特殊文字の扱い方

改行・タブ・引用符など、特殊文字をプログラムで使用する方法を記載します。

ControlCharsクラスを使用する

Dim str As String = "ABcDEabcdeあいう"

'タブ文字を付加
Dim s1 As String = str & ControlChars.Tab

'改行コードを付加
Dim s2 As String = str & System.Environment.NewLine

'引用符を前後に付加
Dim s3 As String = ControlChars.Quote & str & ControlChars.Quote

 

Chr()を使用する

ControlCharsクラスは特定の文字しか無いので、それ以外はChr()を使います。

Dim str As String = "ABcDEabcdeあいう"

'タブ文字を付加
Dim s1 As String = str & Chr(&H09)

'改行コードを付加
Dim s2 As String = str & Chr(&H0D) & Chr(&H0A)

'引用符を前後に付加
Dim s3 As String =  Chr(&H22) & str & Chr(&H22)

 

Posted in 文字 | Leave a reply

VB.NET 特定文に含まれる文字か判断する

特定文に含まれる文字かの判断をするサンプルプログラムを記載します。

 

'半角数字か判断する
Public Shared Function IsHalfNumeric(ByVal c As Char) As Boolean
    If "0"c <= c And c <= "9"c Then
        Return True
    End If

    Return False
End Function

'半角整数値か判断する
Public Shared Function IsHalfDigit(ByVal c As Char) As Boolean
    If IsHalfNumeric(c) OrElse c = "-" OrElse c = "+" Then
        Return True
    End If

    Return False
End Function

'半角実数値か判断する
Public Shared Function IsHalfReal(ByVal c As Char) As Boolean
    If IsHalfDigit(c) OrElse c = "." Then
        Return True
    End If

    Return False
End Function

'半角16進数か判断する
Public Shared Function IsHalfHex(ByVal c As Char) As Boolean
    If IsHalfNumeric(c) OrElse ("A"c <= c And c <= "F"c) OrElse ("a"c <= c And c <= "f"c) Then
        Return True
    End If

    Return False
End Function

'半角英文字か判断する
Public Shared Function IsHalfAlpha(ByVal c As Char) As Boolean
    If ("A"c <= c And c <= "Z"c) OrElse ("a"c <= c And c <= "z"c) Then
        Return True
    End If

    Return False
End Function

'半角カナ文字か判断する
Public Shared Function IsHalfKana(ByVal c As Char) As Boolean
    If ("ア"c <= c And c <= "ン"c) Then
        Return True
    End If

    Return False
End Function

'半角表示文字か判断する
Public Shared Function IsHalfDisplay(ByVal c As Char) As Boolean
    If (" "c <= c And c <= "~"c) OrElse ("。"c <= c And c <= "゚"c) Then
        Return True
    End If

    Return False
End Function

'半角日付文字か判断する
Public Shared Function IsHalfDate(ByVal c As Char) As Boolean
    If IsHalfNumeric(c) OrElse c <= "/"c Then
        Return True
    End If

    Return False
End Function

'半角時間文字か判断する
Public Shared Function IsHalfTime(ByVal c As Char) As Boolean
    If IsHalfNumeric(c) OrElse c <= ":"c Then
        Return True
    End If

    Return False
End Function

'半角電話番号文字か判断する
Public Shared Function IsHalfPhone(ByVal c As Char) As Boolean
    If IsHalfNumeric(c) OrElse c <= "-"c Then
        Return True
    End If

    Return False
End Function

'半角郵便番号文字か判断する
Public Shared Function IsHalfPost(ByVal c As Char) As Boolean
    If IsHalfNumeric(c) OrElse c <= "-"c Then
        Return True
    End If
    
    Return False
End Function

'全角カナ文字か判断する
Public Shared Function IsDblKatakana(ByVal c As Char) As Boolean
    Dim s As String = c.ToString()

    If Not System.Text.RegularExpressions.Regex.IsMatch(s, "^[ァ-ヴ!ー]+$") Then
        Return False
    End If

    Return True
End Function

'全角かな文字か判断する
Public Shared Function IsDblHiragana(ByVal c As Char) As Boolean
    Dim s As String = c.ToString()

    If Not System.Text.RegularExpressions.Regex.IsMatch(s, "^[ぁ-ん!ー]+$") Then
        Return False
    End If

    Return True
End Function
'文字コードが半角文字か判断する
Public Shared Function IsHalfChar(ByVal c As Char) As Boolean
    If  Convert.ToInt32(c) <= &HFF Then
        Return True
    End If
    
    Return False
End Function

 

Posted in 文字 | Leave a reply