Помощь в коде Из .txt В .mdb

[sera]

Доброго дня. Ребят подскажите или покажите как сделать чтобы из 11.txt перенести не все а нужные символы в нужные поля 123.mdb ? Наверное не понятно написал. В общем есть файл 11.txt в нем около 600 строк, нужно проити по строкам до конца и с каждой строки скопировать символ (1,2) и (10,15) и поместить их 1,2 в столбец Х таблицы 123.mdb, а символы (с 10 по 15) в столбец Y таблицы 123.mdb .
На форме есть DBGrid ,ADOQuery .. Хотелось бы это сделать SQL запросом.

 

[Sascha]

Доброго дня. Ребят подскажите или покажите как сделать чтобы из 11.txt перенести не все а нужные символы в нужные поля 123.mdb ? Наверное не понятно написал. В общем есть файл 11.txt в нем около 600 строк, нужно проити по строкам до конца и с каждой строки скопировать символ (1,2) и (10,15) и поместить их 1,2 в столбец Х таблицы 123.mdb, а символы (с 10 по 15) в столбец Y таблицы 123.mdb .
На форме есть DBGrid ,ADOQuery .. Хотелось бы это сделать SQL запросом.

Открываешь свой текст в Listview и сносишь в таблицу

 

[Lomanu4]

Ну или же тем банальным парсом.

 

[sera]

Открываешь свой текст в Listview и сносишь в таблицу

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

var
s:string;
f:TextFile;
begin
assignfile(f, 'c:\11.txt');
reset(f);
while not eof(f) do
begin
readln(f, s);
begin
ADOTable1.Insert;
ADOTable1.Fields[1].AsString:=Copy(s,6,2);
ADOTable1.Fields[2].AsString:=Copy(s,24,15);
ADOTable1.Fields[3].AsString:=copy(s,39,1);
ADOTable1.Fields[4].AsString:=Copy(s,40,15);
ADOTable1.Fields[5].AsString:=Copy(s,70,15);
ADOTable1.Fields[6].AsString:=s[85];
ADOTable1.Fields[7].AsString:=Copy(s,89,12);
ADOTable1.Fields[8].AsString:=Copy(s,101,14);
ADOTable1.Fields[9].AsString:=Copy(s,115,14);
ADOTable1.Fields[10].AsString:=Copy(s,129,17);
ADOTable1.Fields[11].AsString:=Copy(s,154,20);
ADOTable1.Fields[12].AsString:=Copy(s,253,7);
ADOTable1.Post;

 

[sera]

Ну или же тем банальным парсом.

Можете пояснить? Или небольшой примерчик? не знаю что такое парс...
Спасибо.

 

[Sascha]

Можете пояснить? Или небольшой примерчик? не знаю что такое парс...
Спасибо.

Парс это выбор из файла то что тебе нужно , часто используется на веб страницах