|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.04.2016, 10:05 | #1 |
Регистрация: 12.04.2016
Сообщений: 3
|
Поиск информации по всем файлам в каталоге
Есть задача
Программе указываешь каталог с файлами ( там могут быть xls, doc, docx, xlsx, ACCDB и MDB, также могут лежать базы mysql, sql и т.п.) допустим в одном файле (таблице) найдена информация файл1: Иванов Иван Иванович 79996665555 ул.Гагарина 1 во втором файле есть такая строка жигули х555хх777 2004 г.в. третий файл содержит такую строку 12.04.2016 16:00 пр. Коммунистический 44 х555хх777 превышение скорости четвертый 79996665555 Генадий ул.Гагарина 1 3 порции пиццы и т.п. надо по запросу в поиске получить всю информацию например задал я Иванов программа вывела мне Иванов Иван Иванович машина жигули х555хх777 2004 г.в Часто бывает по адресу ул.Гагарина 1 что то в этом роде Вопрос №1 какой алгоритм лучше использовать для реализации поиска прочитать все файлы и записать в одну таблицу (проблема количество полей будет не совпадать) и потом каким оброзов вытащить всю информацию. Либо создовать для каждого файла таблицу и потом из кучи таблиц искать информацию Вопрос№2 сам поиск допустим я ввел Иванов нашел в первом файле строки с таким совпадением записал куда-нибудь себе до окончания поиска и пошел дальше по всем файлам записал все строки по первичному запросу как организовать поиск по данным из полученных строк сам код во втором сообщении Сильно не пинайте я ток разбираюсь в программирование \Если есть какието мысли пните меня в какую сторону идти и что использовать Зарание спасибо |
12.04.2016, 10:06 | #2 |
Регистрация: 12.04.2016
Сообщений: 3
|
код программы
Код HTML:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, Gauges,ComObj, Grids, OleServer, ExcelXP, DB, DBGrids, ADODB, ComCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; Gauge1: TGauge; StringGrid1: TStringGrid; ExcelApplication1: TExcelApplication; ADOTable1: TADOTable; DBGrid1: TDBGrid; DataSource1: TDataSource; ADOConnection1: TADOConnection; RichEdit1: TRichEdit; Edit1: TEdit; ADOQuery1: TADOQuery; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure GetAllFiles( Path: string; Lb: TStringList); var sRec: TSearchRec; isFound: boolean; begin isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0; while isFound do begin if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then begin if ( sRec.Attr and faDirectory ) = faDirectory then GetAllFiles( Path + '\' + sRec.Name, Lb ); Lb.Add( Path + '\' + sRec.Name ); end; Application.ProcessMessages; isFound := FindNext( sRec ) = 0; end; FindClose( sRec ); end; p Последний раз редактировалось ИгорьFM; 12.04.2016 в 13:49. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск jpg файлов в каталоге | bilibian | Общие вопросы Delphi | 9 | 06.03.2014 03:51 |
Поиск файлов в каталоге | pupilMartyr | Win Api | 12 | 06.12.2011 00:16 |
Поиск файлов в каталоге. WinApi. | pupilMartyr | Помощь студентам | 1 | 04.12.2011 02:10 |
поиск в каталоге (assembler) | YaraF | Помощь студентам | 0 | 28.02.2011 17:15 |
Применение макроса ко всем файлам из папки | Антон Олегович | Microsoft Office Excel | 2 | 09.07.2010 08:34 |