IsUpper ( String )

String

調べる文字列，または値を格納した変数名を指定します。

この値に長さ0の文字列（""）を指定した場合は，偽（False）を返します。

' グローバル変数Levelの値が半角アルファベットの
' "A"または"a"のどちらかをチェックする。
Dim  buff
buff = GetGV ( "Level" )
If  buff = "A"  Then
  If IsUpper ( buff ) Then 
    MessageBox ( "Level ： Large A." )
  Else
    MessageBox ( "Level ： Small A." )
  End If
End If

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