Function arySearch(ByRef ary, ByVal searchText)
  Dim chk As Boolean
  For i = 0 To UBound(ary) - 1
    If ary(i) = searchText Then Print searchText & "在第" & i & "個位置": chk = True: Exit Function Else chk = False
   
    If i = UBound(ary) - 1 And chk = False Then Print "找不到指定搜尋字串： " & searchText
  Next
End Function

Usage:

call arySearch(Array, "String")
arySearch(Array, "String")

arrow
arrow
    全站熱搜

    hechian 發表在 痞客邦 留言(2) 人氣()

    E-mail轉寄