Hitachi

JP1 Version 12 JP1/Script(Windows(R)用)


8.3.24 IsMultiChar (全角文字かどうかを調べる)

機能

指定された文字列が全角文字かどうかを調べ,結果を真(True)か偽(False)で返します。

形式
IsMultiChar ( String )
指定項目
String

調べる文字列,または値を格納した変数名を指定します。

この値に長さ0の文字列("")を指定した場合は,偽(False)を返します。

説明

指定された文字列のすべての文字が全角文字かどうかを調べ,結果をコマンドの実行結果として返します。すべての文字が全角文字である場合は真(True)を,それ以外の場合は偽(False)を返します。

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

JP1/Script 06-00以降