Из txt в Accsess

[Oleg Romanchuk]

Всем привет, нужна помощь!
Есть файл txt, структура которого примерно такая:

[01.09.2009 16:12:11] Сокет 484 прибор 12533 принято 180 б.

все строки такого же типа!!!

Вообщем проблема следующая, нужно забирать эти строки в базу данных Accsess и добовлять в соответствующие поля: дату отдельно, сокет отдельно, прибор отдельно, сколько принято отдельно!

У меня получилось только забрать всю строку, и поместить все в одно поля!!!

[Serge_Bliznykov]

есть такое понятие - Parse (parsing) (парсинг). Это разбор строки на элементы.
Разбирайте текстовую строчку на дату, сокет, прибор, сколько принято.
функции Pos() и Copy() помогут Вам...

[Oleg Romanchuk]

Сообщение от Serge_Bliznykov

есть такое понятие - Parse (parsing) (парсинг). Это разбор строки на элементы.
Разбирайте текстовую строчку на дату, сокет, прибор, сколько принято.
функции Pos() и Copy() помогут Вам...

Спасибо за инфу, сейчс порою про "Parse"!

[Stilet]

Смотри:

 var s:TStringList;
begin
 s:=TStringList.Create;
 s.DelimitedText:='[01.09.2009 16:12:11] Сокет 484 прибор 12533 принято 180 б.';
 writeln('Date ',s[0]);
 writeln('time ',s[1]);
 writeln('Socket ',s[3]);
 writeln('Device ',s[5]);
 writeln('Get ',s[7]);
 Readln;
 s.Free;
end.

Вот и весь парсер.

[Oleg Romanchuk]

Сообщение от Stilet

Смотри:

 var s:TStringList;
begin
 s:=TStringList.Create;
 s.DelimitedText:='[01.09.2009 16:12:11] Сокет 484 прибор 12533 принято 180 б.';
 writeln('Date ',s[0]);
 writeln('time ',s[1]);
 writeln('Socket ',s[3]);
 writeln('Device ',s[5]);
 writeln('Get ',s[7]);
 Readln;
 s.Free;
end.

Вот и весь парсер.

Благодарю, все понятно в какую сторону рыть )))