表紙へ

10.文字列に全角文字が含まれているか調べる

 

次の関数 IsZenkaku() を使って文字列に全角文字が1つ以上含まれているかを調べることができる。

'■IsZenkaku
'■機能:文字列に全角文字が含まれているか調べる。
'■引数:Value 調べる対象の文字列。
'■戻り値:全角文字が含まれている場合はTrue、そうでない場合False。
Private Function IsZenkaku(ByVal Value As String) As Boolean

Dim ByteLength As Long

ByteLength = LenB(StrConv(Value, vbFromUnicode))

If Len(Value) <> ByteLength Then

IsZenkaku = True

End If

End Function

使用例:

MsgBox IsZenkaku("ABCDE")

        "False"と表示する。

MsgBox IsZenkaku("あいABC")

        "True"と表示する。