Загрузка текстового файла

[DiemonStar]

Имеется текстовый файл, содержащий табличные данные (три значения через разделитель в каждой строке).
Есть стандартный шаблон документа, содержащий табличку с данными.

Нужно заполнить в документе значения в столбец таблицы на основе соответствия одного из столбцов значению поля в текстовом файле (значение в файле соответствует лишь единственному значению из таблицы).

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

собственно сам вопрос: есть ли какой-либо объект (желательно, стандартный) наподобие TStrings в Delphi позволяющий добавлять, удалять строки и перемещаться по ним без связи с файлом. Смотрел TextStream, но это немного не то что мне нужно. Создавать Excel - лист тоже можно, но это как стрелять из пушки по воробьям.

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

[Пименов Александр]

Судя по Вашему описанию, каждая строка текстового файла это строка таблицы с определенным разделителем в VBA эту строку можно разбить массивом
lst = Split([Текст строки], [Разделитель])
В итоге массив lst ,будет иметь вид lst(0 to 2), где lst(0) - значение 1-го столбца, lst(1) - значение 2-го столбца, lst(2) - значение 3-го столбца, отсюда можно создать либо массивы колонок таблицы либо коллекции значений таблицы, и исходя из этих значений можно составить алгоритм создания вордовской таблицы

[DiemonStar]

Спасибо, но я довольно хорошо знаком с этим методом. Да и парсить строки не впервой - тут проблем не вижу. Мне просто нужен объект для удобной работы с текстовым массивом.

[Казанский]

Массив или коллекция строк?

[DiemonStar]

Массив или коллекция строк?

Не принципиально. Главное, чтобы можно было удалять строку из массива/коллекции в удобном мне месте.

[Пименов Александр]

Тогда лучше создать коллекцию, например:

Public mRows As Collection ' Коллекция строк видимая для всех модулей и процедур

Здесь создаем коллекцию строк:

Public Sub Collect() ' Процедура создания коллекции 
Dim Stroke As Variant ' Массив образованный методом Split
    Set mRows = New Collection ' Создаем новую коллекцию строк
        For i = 1 To Всего_строк ' Цикл перебора строк текстового файла
            Stroke = Split([Строка(i)], [Разделитель]) ' Создаем массив Stroke для i-ой строки коллекции mRows
            mRows.Add Stroke, "Row_" & i ' Добавляем Stroke в коллекцию mRows с оригинальным ключом Row_i
        Next i
End Sub

Далее создаем процедуру удаления строки

Public Sub Delete_Row(i as Long) ' Процедура удаления строки, где i номер удаляемой строки 
    If mRows.Count = 0 Then Exit Sub
        mRows.Remove "Row_" & i
End Sub

[DiemonStar]

Спасибо, попробую. похоже, это именно то, что нужно.