IsMultiChar ( String )
' グローバル変数seqNoの値を判定し,全角文字の場合は"項番",
' 半角文字の場合は"#"に続けて表示する。
Dim buff
buff = GetGV ( "seqNo" )
If IsMultiChar ( buff ) Then
MessageBox ( "項番" + buff )
Else
MessageBox ( "#" + buff )
End If
' ローカル変数buffに格納された文字列が全角文字かどうかをチェックする。
Dim buff
buff = "JP1/SCRIPT"
If IsMultiChar ( buff ) Then
MessageBox ( "すべての文字が全角文字である。" )
Else
MessageBox ( "全角文字以外の文字が含まれている。" )
End If