Сравнить массивы

[Orastar]

Есть два массива, один одномерный массив из 4 чисел (например 1,2,3,4) и есть двухмерный масив (4 на 100). Эти два массива надо сравнить построчно, т.е. если одномерный массив совпадает с какой-нибудь стокой двумерного массива - вывести кол-во совпадений и строку которая совпала.
Буду очень признателен за помощь. Заранее спасибо.

[tyomitch]

Писать одно и то же в два форума сразу нехорошо.

[Orastar]

Да, забыл добавить. Двумерный массив создается из базы методом GetRows.

[Sedge]

Есть два массива

А в чем загвоздка-то? Три вложенных цикла и вперед, считать совпадения...

[Orastar]

В том то и дело что, что-то не врублюсь никак.. Знал бы - не спрашивал.

[Sedge]

два вложенных цикла... врубайся, поскольку не гарантирую что написано без ошибок - заполнять массивы, тестировать и отлаживать лень:

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

'//////////////////////////////////////////////////////////////////////////////////////
  Dim iArrayOne(4) As Integer, iArrayTwo(100, 4) As Integer, j As Integer, i As Integer
  Dim bIsCompare As Boolean, iCompareCount As Integer
  Dim sTmpText As String
'//////////////////////////////////////////////////////////////////////////////////////

'.........  - здесь заносится информация в массив

iCompareCount = 0
For j = 0 To 100
  bIsCompare = True
  For i = 0 To 4
    If iArrayOne(i) <> iArrayTwo(j, i) Then
      bIsCompare = False
      Exit For
    End If
  Next
  If bIsCompare Then
    iCompareCount = iCompareCount + 1
    sTmpText = ""
    For i = 1 To 4
      sTmpText = sTmpText & ", " & iArrayTwo(j, i)
    Next
    lstArrays.AddItem sTmpText
  End If
Next
lstArrays.AddItem "Всего совпадений: " & iCompareCount


[Orastar]

Не получается у меня прикрутить эттот куод. Народ дайте кто-нибудь работаюший кусок кода.

[Sedge]

Гы
Каким боком не получается-то?
Хотя да, ошибка там была, поправил ее...

[TEH3OP]

Не получается у меня прикрутить эттот куод. Народ дайте кто-нибудь работаюший кусок кода.

работаюший кусок кода