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