10.文字列に全角文字が含まれているか調べる
次の関数 IsZenkaku() を使って文字列に全角文字が1つ以上含まれているかを調べることができる。
'■IsZenkaku
'■機能:文字列に全角文字が含まれているか調べる。
'■引数:Value 調べる対象の文字列。
'■戻り値:全角文字が含まれている場合はTrue、そうでない場合False。
Private Function IsZenkaku(ByVal Value As String) As BooleanDim ByteLength As LongByteLength = LenB(StrConv(Value, vbFromUnicode))
If Len(Value) <> ByteLength Then
End If End FunctionIsZenkaku = True
使用例:
・MsgBox IsZenkaku("ABCDE")
"False"と表示する。
・MsgBox IsZenkaku("あいABC")
"True"と表示する。