JP1/Script(Windows(R)用)
InArray ( ArrayName , SearchStr , 〔Start〕 〔, Compare〕 )
値 | 意味 |
---|---|
真(True) | 半角文字も全角文字も大文字と小文字を区別して比較します。 |
偽(False) | 半角文字も全角文字も大文字と小文字を区別しないで比較します。 |
Twice | 半角文字の大文字と小文字は区別しないで全角文字の大文字と小文字は区別して比較します。 |
' 下図のように値を格納した配列変数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
' 二次元の配列変数の全要素の中から指定のデータを検索する。 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
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.