Поиск одинаковых файлов

[PAVEL_USER]

Здравствуйте...
Проблема вот в чем:
Я осуществил поиск файлов с расширением *.txt (например)
Записал полный путь файлов в массив (mass1() допустим)
Затруднение в том, чтобы определить количество файлов с одинаковым именем. Как мне реализовать это?

[SkySh@rk]

Можно попробовать через двухмерный масcив

For i= 1 to ubound(array,1)
for j=1 to ubound(array,1)
if array(i,1)=array(j,1) then array(i,2)=array(i,2)+1
next j
next i

[Viper]

SkySh@rk, стоило бы подумать прежде чем.

PAVEL_USER, как то так:

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

For i = LBound(mass1) to UBound(mass1) - 1
    For j = i+1 To UBound(mass1)
        If mass1(i) = mass1(j) Then
            cMatch = cMatch + 1
        End If
    Next j
Next i

[SkySh@rk]

SkySh@rk, стоило бы подумать прежде чем.

Не спорю.... после того как выключил комп, вспомнил пару не точностей.

!Viper!, ваш код сработает только если есть одно повторяющееся название.... лучше так

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

For i= 1 to ubound(mass1,1) -1
For j=i+1 to ubound(mass1,1)
  if mass1(i,1)=mass1(j,1) then
     mass1(i,2)=mass1(i,2)+1
  end if
next j
next i

а потом поиск максимальных значений mass1(i,2)

[Viper]

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

Добавлено позжее

Можно использовать два массива - один исходный с именами файлов (массив строк), а второй массив будет содержать число повторений для каждого имени (массив Integer или же Long), а двумерный в данном случае можно только типа Variant, что не есть гуд.

[SkySh@rk]

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

Я примерно это и хотел сказать.

Можно использовать два массива - один исходный с именами файлов (массив строк), а второй массив будет содержать число повторений для каждого имени (массив Integer или же Long), а двумерный в данном случае можно только типа Variant, что не есть гуд.

Я к сожаления не так хорошо знаю VB...
Я просто пытался указать направление в котором двигаться

[PAVEL_USER]

Благодарю за предложенные варианты, но, к сожалению, при большом количестве элементов массива цикл выполняется долгое время.

[uhm]

Перед поиском дубликатов отсортировать массив по именам файлов. Алгоритмом, сортирующим быстрее, чем O(n^2), желательно