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

[Orastar]

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

[tyomitch]

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

[Orastar]

Извиняюсь, я здесь недавно, и не знаю к какому форуму эта тема относиться.

[Sedge]

сюда...
http://bbs.vbstreets.ru/viewtopic.php?p=76571#76571

[Gemini]

По идее должно быть так...

For X = 0 to 4
For Y = 0 to 100
For Z = 1 to 4

if Массив(Z)=Массив(X,Y) then N = N + 1

Next Z
Next Y
Next X

msgbox "Повторов: " & N & " раз."

[Orastar]

Так работает но считает все совпадения, а нужно чтобы считал сопадения в каждой строчке и вывел максимальное кол-во совпадений.

[TEH3OP]

Так работает но считает все совпадения, а нужно чтобы считал сопадения в каждой строчке и вывел максимальное кол-во совпадений.

Дык максимальным будет 5.
А сравнивать мона так:

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

Option Explicit

Public Sub Main()
    Dim alngTestPattern(4) As Long
    Dim alngTestSource(4, 100) As Long
    Dim k As Long
    Dim m As Long
   
    VBA.Randomize
   
    For k = 0 To 4
        alngTestPattern(k) = VBA.Rnd() * &H7FFFFFFF
    Next k
   
    For m = 0 To 100
        For k = 0 To 4
            alngTestSource(k, m) = VBA.Rnd() * &H7FFFFFFF
        Next k
    Next m

    Dim lngCompareResult As Long
   
    lngCompareResult = MatrixCompare(alngTestSource, alngTestPattern)
   
    m = VBA.Rnd() * 100
   
    For k = 0 To 4
        alngTestPattern(k) = alngTestSource(k, m)
    Next k
   
    lngCompareResult = MatrixCompare(alngTestSource, alngTestPattern)
End Sub


Private Function MatrixCompare(ByRef iSource() As Long, ByRef iPattern() As Long) As Long
    Dim alngSource() As Long
    Dim alngPattern() As Long
    Dim lngUboundPattern As Long
    Dim lngUboundSource As Long
    Dim lngReturn As Long
   
    alngPattern = iPattern
    alngSource = iSource
    lngUboundPattern = UBound(alngPattern)
    lngUboundSource = UBound(alngSource, 2)
   
    Dim k As Long
    Dim m As Long
    Dim lngTMP As Long
   
    For k = 0 To lngUboundSource
        lngTMP = 0&
       
        For m = 0 To lngUboundPattern
           
            If alngPattern(m) = alngSource(m, k) Then
                lngTMP = lngTMP + 1&
            End If
       
        Next m
       
        If lngTMP > lngReturn Then
            lngReturn = lngTMP
        End If
       
       
        If lngReturn - 1& = lngUboundPattern Then
            Exit For
        End If
    Next k
   
    MatrixCompare = lngReturn
End Function



PS: Чёта толком неясно, чего тебе считать надо?