IsSingleChar(半角文字かどうかを調べる)
機能
指定した文字列が半角文字かどうかを調べて,結果を真(True)か偽(False)で返します。
形式
IsSingleChar ( String )
指定項目
String
調べる文字列,または値を格納した変数名を指定します。
この値に長さ0の文字列("")を指定した場合は,偽(False)を返します。
説明
指定した文字列のすべての文字が半角文字かどうかを調べて,結果をコマンドの実行結果として返します。すべての文字が半角文字である場合は真(True)を,それ以外の場合は偽(False)を返します。
Shift-JISコードでは半角かな文字は1バイトのコードで表されますが,日本語EUCコードでは半角かな文字は2バイトのコードで表されます。また,UTF-8では半角かな文字は3バイトのコードで表されます。このコマンドは,Shift-JISコードの半角かな文字は半角文字とみなしますが,EUCコード,またはUTF-8の半角かな文字は全角文字とみなします。
例
'グローバル変数:#の内容が半角文字なのかそれ以外なのかを調べる。
Dim buff
buff = GetGV ( "#" )
If IsSingleChar ( buff ) Then
Message( Target_DispOn, "実行結果","#" + buff )
Else
Message( Target_DispOn, "実行結果","項番" + buff )
End If