EA_ArrayIsStr

機能説明
指定した文字列が配列内に存在するか判定します。

定義
Public Function EA_ArrayIsStr (
ByRef ea_str() As String,
ByVal ea_key As String
) As Long

引数
ea_str()
検索対象となる配列を指定します。
ea_key
検索する文字列を指定します。

戻り値
値あり:配列位置(0〜)が返却されます。
値なし:(-1)が返却されます。

使用例
                                    
Sub Main()
    Dim ea_str(3) As String
    Dim ea_res As Long
    ea_str(0) = "一行目"
    ea_str(1) = "二行目"
    ea_str(2) = "三行目"
    ea_str(3) = "四行目"

    ea_res = EA_ArrayIsStr(ea_str, "四行目")
    MsgBox "結果:" & CStr(ea_res)
End Sub
                                    
                                
クラウドソーシング「ランサーズ」