Автоматизированное создание БД

[kino]

Здравствуйте.

Имеется: есть 35 602 файла, содержащие текст. Формат файлов не txt, но открываются в любом текстовом редакторе. Все файлы лежат в одной директории, их кол-во пополняется.

Задача: Нужно из этих файлов выдернуть определенные значения. Эти значения есть во всех 35 602 файлах. Все выдернутые ключи нужно забить в DBGrid (может есть вариант по оптимальнее???),поместив в соответствующие поля. (см.рис). Также нужно реализовать процедуру автоматического добавления новых значений в DBGrid по нажатию кнопки.

Вопрос: Подскажите как и откуда отталкиваться. Что лучше использовать!? Опыта в этой области почти нет!

P.S: Можно конечно взять и создать базу в аксесе и вручную выдергивать нужные значения из файлов и пополнять базу. Но как можно было бы автоматизировать этот процесс?

Очень нуждаюсь в помощи, буду сильно благодарен!

[kino]

Есть небольшое продвижение. По нажатию Button 7 в одном из 35 000 файлов (пока заданном заранее) находится поле sctipt_id. (см. рис)., его значение выводится в memo1., а само оно хранится в переменной s.

Вопросы:
1. Как можно поместить найденное значение из переменной s в DBGrid в соответствующую ячейку?
2. В дальнейшем хотелось бы из заполненного таким образом DBGrid извлечь таблицу либо в Exel, либо в Аксес, реально ли это?

Кто в курсе этого, буду благодарен за помощь!

[maLoy*508]

Как можно поместить найденное значение из переменной s в DBGrid в соответствующую ячейку?

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

В дальнейшем хотелось бы из заполненного таким образом DBGrid извлечь таблицу либо в Exel, либо в Аксес, реально ли это?

сразу помещаешь данные в таблицу в аксесе, а потому уже отображешь в гриде...
например

var s : string;
.....
ADOTable1.Insert;// втавка новой записи
ADOTable1.FieldByName('ИмяПоля').AsString := s;//заносим в ячейку "ИмяПоля" значение переменной s
ADOTable1.Post;//сохраняем

[kino]

Спасибо за помощь!

Вопрос: Есть директория, в ней N-ое количество файлов. Сколько их, программно я подсчитал. Я создаю динамический массив, туда хочу считать подряд все N имен файлов... Как это правильно сделать???
Спасибо за помощь.

[kino]

С этим тоже разобрался.

Теперь задача. Есть строковая переменная, в нее нужно по очереди считывать текст файлов, имена которых содержатся в массиве file_name[i]. Делаю я след. образом:

for i:=0 to count_of_file-1 do
  begin
    file_all:=ReadFromFile(file_name[i]);
    ...
    end;

сама функция(нашел где-то в инете):

function TForm1.ReadFromFile(FileName: string): string;
begin
  with TStringList.create do
  try
    LoadFromFile(FileName);
    result := text;
  finally
    Free;
  end;
end;

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

Помогите найти ошибку!

[Dark_Spirit]

и какая ошибка?

[kino]

Ошибка после 1го выполнения цикла!

[Dark_Spirit]

быстрее всего ошибка возникает из-за того что в твоей function TForm1.ReadFromFile(FileName: string): string; каждый раз создаётся новый объект TStringList предварительно не уничтожив старый.
а не проще обработать один файл, записав его значения в базу, потом второй и т.д.

[kino]

Я так и планирую делать!

Просто кусок кода, для записи данных в таблицу не писал еще...

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

Но косяк в том, что 1ый файл считывает, в нем находятся значения (далее по идеи они должны добавляться в таблицу), а при переходе ко 2ому файлу, вылезает ошибка! он даже не считывается.

Dark_Spirit, а как уничтожить старый объект TStringList? я думал об этом но не знаю как это сделать!

[Dark_Spirit]

давай попробуй переделать таким образом:

 var  file_all:TStringList;
 begin
  for i:=0 to count_of_file-1 do
  begin
   file_all:=TStringlist.create; 
   try
    file_all:=LoadFromFile(FileName[i]);
    <тут выгрузка в memo>
    file_all.free;
   except
    file_all.free;
   end;
 end;
end;

вроде всё, я не проверял на ошибки