[Iska]

blackeangel, «шо, опять?»™ . Дались Вам эти массивы.

Что Вы планируете с ним дальше делать?

[blackeangel]

blackeangel, «шо, опять?»™ . Дались Вам эти массивы. Что Вы планируете с ним дальше делать?

Не опять, а снова Ну а что поделать?
Дальше, мы его будем делать двухмерным, по тем самым регуляркам, что тогда так долго пытали. Далее заполнять оставшиеся не заполненные 3 столбца напротив файлов, читая данные из файла и/или же из правил по вхождению имени файла. Формировать отчет в новом конечном файле, используя данные из массива.
Как то так.

[blackeangel]

Iska,
Ну раз вы так настраиваете на словаре, то дайте сводную таблицу двумерный массив|коллекция|словарь в которой отображены все плюсы и минусы, на русском языке. И где по-человечески дано определение ключа. Я вот этого не понимаю.
Хотя, давайте посмотрим как это будет выглядеть в словаре или коллекции

[Iska]

blackeangel, дык, я не настаиваю именно на словаре. Я просто пишу, что массивы в данном случае явно не лучший выбор. Почему — потому что вижу многомерные массивы вкупе со множественными ReDim и ReDim Preserve. Я бы ещё понял, если бы Вы пользовали одномерный массив из структур (Type Statement). Словарь — это, собственно, тот же массив, только ассоциативный. Вместо многомерного массива используется тот факт, что его элементами могут быть не только простые типы данных, но и другие, «вложенные», словари.

Дальше, мы его будем делать двухмерным, по тем самым регуляркам, что тогда так долго пытали. »

Почему не сразу делать двумерным?

Далее заполнять оставшиеся не заполненные 3 столбца напротив файлов, читая данные из файла и/или же из правил по вхождению имени файла. »

Почему не сразу заполнять?

В общем, вот такой Вам примерчик, с использованием простого и незатейливого средства — набора записей (RecordSet):

Скрытый текст

Код:

Option Explicit

Sub Sample()
    Dim strSourceFolder As String
    Dim objFSO As New Scripting.FileSystemObject
    Dim objRecordset As New ADODB.Recordset
    Dim arrFoldersAndFiles As Variant
    
    Dim i As Integer, j As Integer
    
    
    strSourceFolder = "C:\test"
    
    If objFSO.FolderExists(strSourceFolder) Then
        With objRecordset
            With .Fields
                .Append "RelativePath", ADODB.adVarChar, 255
                .Append "Attributes1", ADODB.adVarChar, 10
                .Append "Attributes2", ADODB.adVarChar, 10
                .Append "Attributes3", ADODB.adVarChar, 10
            End With
            
            .Open
            .Sort = "RelativePath ASC"
            
            ScanSubFolders objFSO.GetFolder(strSourceFolder), Len(objFSO.GetParentFolderName(strSourceFolder)) + 1, objRecordset
            
            '.MoveFirst
            '
            'Do Until .EOF
            '    With .Fields
            '        Debug.Print .Item("RelativePath").Value, .Item("Attributes1").Value, .Item("Attributes2").Value, .Item("Attributes3").Value
            '    End With
            '
            '    .MoveNext
            'Loop
            
            .MoveFirst
            arrFoldersAndFiles = .GetRows()
            .Close
            
            For i = LBound(arrFoldersAndFiles, 1) To UBound(arrFoldersAndFiles, 1)
                For j = LBound(arrFoldersAndFiles, 2) To UBound(arrFoldersAndFiles, 2)
                    Debug.Print "arrFoldersAndFiles("; i; ";"; j; ")="; arrFoldersAndFiles(i, j)
                Next j
            Next i
        End With
    Else
        Debug.Print "Can't find source folder [" & strSourceFolder & "]."
    End If
End Sub

Sub ScanSubFolders(objFolder As Scripting.Folder, intTruncateTo As Integer, objRecordset As ADODB.Recordset)
    Dim objFile As Scripting.File
    Dim objSubFolder As Scripting.Folder
    
    'Debug.Print Replace(Mid(objFolder.Path, intTruncateTo), "\", "/") & " 0 0 0755"
    objRecordset.AddNew Array("RelativePath", "Attributes1", "Attributes2", "Attributes3"), Array(Replace(Mid(objFolder.Path, intTruncateTo), "\", "/"), "0", "0", "0755")
    
    For Each objFile In objFolder.Files
        'Debug.Print Replace(Mid(objFile.Path, intTruncateTo), "\", "/")
        objRecordset.AddNew Array("RelativePath"), Array(Replace(Mid(objFile.Path, intTruncateTo), "\", "/"))
    Next objFile
    
    For Each objSubFolder In objFolder.SubFolders
        ScanSubFolders objSubFolder, intTruncateTo, objRecordset
    Next objSubFolder
End Sub

Конечным итогом будет, как Вы и просили, двумерный массив arrFoldersAndFiles. В свойствах проекта необходимо добавить ссылку на Microsoft ActiveX Data Objects Library (их может быть несколько, выбирайте не ниже 2.8, выше — можно).


Использование словарей/ассоциативных массивов или наборов записей (RecordSet) уместно там, где нам заранее неизвестен конечный размер данных, потому как в этих случаях мы можем легко и произвольно его наращивать (в отличие от обычного массива, который требует предварительного указания точного размера).

И где по-человечески дано определение ключа. Я вот этого не понимаю. »

Человеческим языком это рассказано здесь: Dictionary.

Главный недостаток класса Scripting.Dictionary — в нём в принципе нет возможности обратиться к элементу коллекции по порядковому номеру. Позже, когда Microsoft делала .Net, в нём это было исправлено, и класс .Net System.Collections.ArrayList (ArrayList Class (System.Collections)) получил такую возможность. Кстати, данный класс может также использоваться не только как класс .Net, но и ограниченно — как объект Automation (может потребоваться принудительная регистрация его библиотеки), со всеми его приятственными плюшками. Например: VBScript Scripting Techniques: ArrayLists.

[blackeangel]

Почему — потому что вижу многомерные массивы вкупе со множественными ReDim и ReDim Preserve.

Например можно:
1)посчитать кол-во файлов и папок и получить конкретный размер массива.
2)Можно писать в переменную, а потом сплитить и получить тот же массив.
Или эти варианты имеют подводные камни?

[Iska]

1. В данном случае — можно посчитать. Минус — придётся делать двойной проход по дереву (второй проход, конечно, должен быть быстрее, поскольку всё дерево или хотя бы его часть будет в кэше). Но есть варианты, когда заранее тупо неизвестно количество, и нет возможности второго прохода/разбора.

2. Можно, но ещё накладнее. Работа со строками в VBScript/VBA/VB очень медленная (с точки зрения машинного времени, разумеется).

[blackeangel]

1. В данном случае — можно посчитать. Минус — придётся делать двойной проход по дереву (второй проход, конечно, должен быть быстрее, поскольку всё дерево или хотя бы его часть будет в кэше). Но есть варианты, когда заранее тупо неизвестно количество, и нет возможности второго прохода/разбора. 2. Можно, но ещё накладнее. Работа со строками в VBScript/VBA/VB очень медленная (с точки зрения машинного времени, разумеется).

Ну вот время для пользователя становится критичным, когда он ждет результата. А если там 1с то он и не заметит. Дольше будет происходить "вывод на экран".
Для решения своей задачи, могу ограничить массив 20к и удалять пустые строки из массива.
Давайте разберём оба варианта? Ибо эти решения можно будет занести в ГДЗ.

[Iska]

и удалять пустые строки из массива. »

ReDim Preserve — как бы не ещё медленнее был .

Давайте разберём оба варианта? »

Дело в том, что мне ни тот, ни другой вариант не нравятся. А какое-то более серьёзное погружение потребует от Вас детального описания всей задачи и дерева выбранного Вами алгоритма решения.