var S: string;
Sub: string;
OldPos: integer;
NewPos: integer;
begin
S:=NEXTLINE;
OldPos:=1;
while true do begin
NewPos:=PosEx(#9,S,OldPos);
if NewPos > 0 then begin
Sub:=Copy(S,OldPos,NewPos - OldPos);
ITEMFOUND(Sub);
OldPos:=NewPos + 1;
end else begin
Sub:=Copy(S,OldPos,Length(S) - OldPos);
if Sub <> '' then ITEMFOUND(Sub);
Break;
end;
end;
end;
Из *.txt в *.mdb
Доброго времени суток,
Подскажите пожалуйста, каким образом данные из файла *.txt, представляющиеи собой набор полей разделённых между собой знаками табуляции, можно корректно считать, собственно говоря их потом вгоню в базу.
Подскажите пожалуйста, каким образом данные из файла *.txt, представляющиеи собой набор полей разделённых между собой знаками табуляции, можно корректно считать, собственно говоря их потом вгоню в базу.
Цитата:
Originally posted by student_ds
Доброго времени суток,
Подскажите пожалуйста, каким образом данные из файла *.txt, представляющиеи собой набор полей разделённых между собой знаками табуляции, можно корректно считать, собственно говоря их потом вгоню в базу.
Доброго времени суток,
Подскажите пожалуйста, каким образом данные из файла *.txt, представляющиеи собой набор полей разделённых между собой знаками табуляции, можно корректно считать, собственно говоря их потом вгоню в базу.
Есть вариант вручную парсить файл посторчно.
Если не ошибаюсь, то в Делфи символ табуляции это #9
Юзаем функцию PosEx из модуля StrUtils и втупую перебираем всё, что лежит межно символами таб (#9):
Код:
Весьма благодарен.