FreePascal.ru

Я тут еще рылся немного, народ с помощью regexp делает
http://regexpstudio.com/RU/
http://iantonov.me/page/reguljarnye-vyr ... a-v-delphi
у меня файл на 40000 строк, ну и нужно самый легкий алгоритм выбрать.

Спасибо всем, буду переваривать!

А пример можно?

Как реализовать фильтр по шаблону?
Например мне нужно отфильтровать всё подобное этому:
9678.596.45.1297
XXXX.XXX.XX.XXXX
X - цифра

Ну мне utf8 и нужен будет в дальнейшем для экспорта на сервер под linux.
Надеюсь всё будет ок.

чтобы не искать и потом удалять дубликаты записей я хочу сделать индекс primary, а при импорте в базу, при попытке вставить запись с данными которые существуют (дубликат) возникает исключение на которое я хочу "забить" - тоесть обработать самостоятельно не вставляя запись и продолжить импорт дальше.

Пытаюсь перехватить исключение c помощью try в tdbf но не получается, оно обрабатывается в одном из файлов tdbf
например
try
Dbf1.FieldValues['dm'] := XmlParser.CurContent; здесь ошибка и её нужно перехватить
except
Как обработать правильно?

procedure TFrmMain.FormCreate(Sender: TObject);
VAR
DBName : STRING;
begin
DragAcceptFiles (Handle, TRUE);
DBF1.Exclusive:= True;
DBF1.FilePath:= ExtractFilePath(ParamStr(0));
DBF1.TableName:= 'dom.dbf';
DBF1.IndexName:= 'dom.ndx';
Dbf1.TableLevel:= 7;
if not FileExists(ExtractFilePath ...

Я создаю базу, создаю индексы и импортирую в неё данные
По идее индекс должен создаться правильно

Чтото DBF1.IndexName := 'dm'; не присваивается,
и так тоже не присваивается
DBF1.IndexFieldName := 'dm';
тоесть
DBF1.IndexName = ''
и
DBF1.IndexFieldNames = ''
последнюю версию компонента tdbf ...

if not FileExists(ExtractFilePath(ParamStr(0)) + 'dom.dbf') then
begin
with DBF1.FieldDefs do
begin
Add('id', ftAutoInc, 0, True);
Add('dm', ftString, 100, True);
end;
DBF1.CreateTable;
DBF1.Open;
DBF1.AddIndex('dom.ndx', 'ID', [ixPrimary, ixUnique]);
DBF1.AddIndex('dom.ndx', 'dm ...

Как в tdbf отсортировать таблицу по определённому полю?

Здравствуйте!
Это пример xml, сам файл размером сейчас около 7 метров но будет расти гарантировано.
<?xml version="1.0" encoding="windows-1251"?>
<reg:register updateTime="2016-01-07T13:00:00+03:00" updateTimeUrgently="2016-01-06T16:05:00+03:00" formatVersion="2.2" xmlns:reg="http://www.ru" xmlns ...

Буду готов предоставить всю инфу вечером в личку, сейчас к сож. нет времени.

Требуется сделать проект - парсер xml в базу mysql или firebird.
Суть:
автоматически разархивировать файл архива zip (внутри xml)
из файла xml выдернуть определённые поля и записать в базу.
предоставить проект с исходниками чтобы я мог собрать его у себя.