[metallica4ever]

Всем доброго времени суток!

Подскажите неопытному) Есть текстовый файл с кучей информации, в том числе и с нужной таблицей (сверху названия столбцов, далее строки. Все значения выровнены). Необходимо найти определенные столбцы этой таблицы и перенести их в Excel. Пример таблицы во вложении.

Можно просто принцип поиска, т.е. как найти и "вытащить" нужное значение из таблицы в текстовом файле.

Спасибо всем за терпение и помощь!)

[NumLock]

Код:

function Copy(S; Index, Count: Integer): string;

[metallica4ever]

ммм... А поподробнее можно?) Меня интересует как в файле найти нужную строку и взять оттуда нужное число, стоящее на определенном месте (типа 43.5) - просто на примере любой строки..

[NumLock]

Код:

Copy(S, 43, 5);

[metallica4ever]

Так, с этим разобрался, теперь другая непосильная мне одному задача встала..)) Есть много текстовых файлов в папке, которые надо обрабатывать, у всех разные названия, но схожее содержание. Необходимо их все обработать после нажатия кнопки. Подскажите плиз как организовать работу с большим количеством файлов (я понятия не имею как можно их автоматизированно открывать и обрабатывать, если у них разные названия и их много))). В идеале какой-нибудь бы еще комбо-бокс сделать со списком файлов и чтобы можно было затаскивать туда (в этот бокс) файлы из разных папок.

[Alegun]

Наверное самое простое решение: сделать это стандартным способом посредством компонента TOpenDialog - после нажатия кнопки откроется диалог, где нужно выбрать нужные файлы, а дальше так:

Код:

procedure Button1Click(Sender: TObject);
var
i: integer;
FileName: string; //Для примера
begin
if OpenDialog1.Execute then // Если выбраны файлы для открытия то...
for i:= 0 to (OpenDialog1.Files.Count - 1) do
// перебираем весь список файлов:
begin
FileName:= OpenDialog1.Files[i];
...
// Вот здесь идёт обработка одного файла
end;
end;