8.3.2　InArray （配列変数の要素から文字列を検索し，インデックス番号を返す）

機能

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

形式

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

指定項目

ArrayName

検索対象となる配列変数を変数名で指定します。

この配列変数の要素数が0の場合は，0を返します。

SearchStr

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

この値が長さ0の文字列（""）の場合は，0を返します。

Start

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

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

この値は省略できます。省略した場合，先頭の要素を仮定します。

Compare

文字列の比較方法を指定します。

この値は次のどれかになります。

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

この値は省略できます。省略した場合，Twiceを仮定します。

説明

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

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

例1

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

Dim  closeDay( 3 ,12 )
    :
（配列変数closeDayへの値格納処理）
    :
monthName = "March"
buff = InArray ( closeDay( 1 ) ,monthName ,1 ,False )
If  buff > 0  Then
  firstDay = closeDay( 2 ,buff )
  MessageBox ( monthName+"の第1定休日は"+firstDay+"です。" )
End If

例2

' 二次元の配列変数の全要素の中から指定のデータを検索する。
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

対象バージョン

JP1/Script 06-00以降

ページの先頭へ