指定した配列変数の要素の中から指定した文字列を検索し，最初に見つかったインデックス番号を返します。

InArray ( ArrayName , SearchStr , 〔Start〕 〔, Compare〕 )

ArrayName

検索対象となる配列変数を変数名で指定します。この配列変数の要素数が0の場合は，0を返します。

SearchStr

検索する文字列を文字列，または値を格納した変数名で指定します。この値が長さ0の文字列（""）の場合は，0を返します。

Start

ArrayNameで指定した配列変数の検索開始する位置を，インデックス番号の数値，または値を格納した変数名で指定します。

この値がArrayNameで指定した配列変数の要素数を超える場合は，0を返します。この値は省略できます。省略した場合，先頭の要素を仮定します。

Compare

文字列の比較方法を次の値で指定します。この値は省略できます。省略した場合，Twiceを仮定します。

値	意味
真（True）	半角文字も全角文字も大文字と小文字を区別して比較します。
偽（False）	半角文字も全角文字も大文字と小文字を区別しないで比較します。
Twice	半角文字の大文字と小文字は区別しないで，全角文字の大文字と小文字は区別して比較します。

指定した配列変数の要素の中から指定した文字列を検索して，最初に見つかったインデックス番号（1から始まる数値）をコマンドの実行結果として返します。

指定した文字列が見つからない場合は，0を返します。

' 次の図のように値を格納した配列変数closeDayから指定のデータを検索する。

 
Dim  closeDay( 3 ,12 )
    :
(配列変数closeDayへの値格納処理)
    :
monthName = "March"
buff = InArray ( closeDay( 1 ) ,monthName ,1 ,False )
If  buff > 0  Then
  firstDay = closeDay( 2 ,buff )
  Message(Target_DispOn, "実行結果"， monthName+"の第1定休日は"+firstDay+"です。" )
End If
 
 
' 二次元の配列変数の全要素の中から指定のデータを検索する。
Dim  array1( , )
    :
(配列変数array1への値格納処理)
    :
allCnt = GetArrayCount ( array1 )
For  line = 1 To allCnt
     buff = InArray ( array1( line ) ,"1999" ,1 ,False )
     If  0 < buff  Then
         Exit For
     End If
Next