Где я перемудрил или не домудрил

[David]

в VB6

Код: Выделить всё

        Dim a(5) As String
       
        a(0) = "aaa"
        a(1) = "bbb"
        a(2) = "ccc"
        a(3) = "ddd"
        a(4) = "eee"
        a(5) = "fff"
       
        Debug.print Filter(a, "04051960")

выдаёт ошибку 13

Спасибо

[Konst_One]

как у тебя объявлена ф-я Filter

[Kovu]

Код: Выделить всё

Dim a(5) As String, b() As String
       
        a(0) = "aaa"
        a(1) = "bbb"
        a(2) = "ccc"
        a(3) = "ddd"
        a(4) = "eee"
        a(5) = "fff"
       
      b = Filter(a, "f")
     
      For i = LBound(b) To UBound(b)
      Debug.Print b(i)
      Next i


[Kovu]

Konst_One
Это встроенная функция ВБ

[uhm]

Filter - это встроенная функция. Но возвращает она массив, поэтому распечатать ты его не можешь. Нужно печатать массив поэлементно, т. е. что-то вроде

Код: Выделить всё

Debug.print Filter(a, "04051960")(0)



Этот код выдаст ошибку, если совпадений не найдено, т. е. надо еще проверить, что в возвращаемом массиве есть соответствующий элемент.

[Konst_One]

Kovu
я это знаю, но из приведенного кода - это совсем не очевидно

Код: Выделить всё

Friend Function Filter(ByVal Value As String, ByVal Search As String) As String

End Function

вот тебе пример

[neic]

David
У тебя
Option Base (1) или (0). Если 0 тогда всё понятно!
Если с 0 тогда масив будет запонять до 4, а на 5 ошибка!

Если (1) тогда

[Kovu]

neic
Если бы было то что ты описал выдавалась бы ошибка 9(SubScript out of range)