8.3.23 IsSingleChar半角文字かどうかを調べる

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

IsSingleChar ( String )

指定項目
String
調べる文字列,または値を格納した変数名を指定します。
この値に長さ0の文字列("")を指定した場合は,偽(False)を返します。
説明
指定された文字列のすべての文字が半角文字かどうかを調べ,結果をコマンドの実行結果として返します。すべての文字が半角文字である場合は真(True)を,それ以外の場合は偽(False)を返します。
例1

' グローバル変数seqNoの値を判定し,半角文字の場合は"#",
' 全角文字の場合は"項番"に続けて表示する。
Dim  buff
buff = GetGV ( "seqNo" )
If  IsSingleChar ( buff )  Then
 MessageBox ( "#" + buff )
Else
 MessageBox ( "項番" + buff )
End If

例2

' ローカル変数buffに格納された文字列が半角文字かどうかをチェックする。
Dim  buff
buff = "JP1/Script"
If  IsSingleChar ( buff )  Then
 MessageBox ( "すべての文字が半角文字である。" )
Else
 MessageBox ( "半角文字以外の文字が含まれている。" )
End If

対象バージョン
JP1/Script 06-00以降