JP1/Script(Windows(R)用)

[目次][用語][索引][前へ][次へ]

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以降