「配列に指定した値がいるか調査」の編集履歴（バックアップ）一覧はこちら

配列に指定した値がいるか調査 - (2008/02/21 (木) 15:54:29) の１つ前との変更点

追加された行は緑色になります。

削除された行は赤色になります。

#highlight(vb.net){{
'##########################################################################
' 配列の値がいるか調べる
' 第一引数 値を調査した配列名
' 第二引数 調査対象の値
' 戻り値　値が見つかればtrue 見つからなければfalse
'##########################################################################
Function in_array(ByVal checkarray() As String, ByVal check As String)

Dim str As String

For Each str In checkarray

	If str = check Then
		Return True
	End If

	Next str
	Return False

End Function
}}

#highlight(vb.net){{
    '##########################################################################
    ' 配列の値がいるか調べる
    ' 第一引数 値を調査した配列名
    ' 第二引数 調査対象の値
    ' 戻り値　値が見つかればtrue 見つからなければfalse
    '##########################################################################
    Function in_array(ByVal list, ByVal value)

        Dim str As String

        For Each str In list

            If str = value Then
                Return True
            End If

        Next str

        Return False

    End Function
}}