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