Здравствуйте! Помогите решить задачу.
У меня есть постоянно прибывающие файлы в них в среднем 500 – 700 строк. Мне нужно с 11 строки скопировать ФИО в listBox. ФИО всегда в 11 строке. Файл выглядит так:
$From 755
$To 0
$Count 01
…
$S,U=700,R=0000,B=0755,N=939393,A=10,S=1,L=45008,I =1,F="Ковальчук Антон Валентинович",
H={D=27.12.2010,A=20,U=755,R=755,N=123811,I=6,
…
S1=(Z=2,S=45008,U=3,D=4),
Как сразу стать на 11 строку не крутить весь файл так как их много и скопировать только ФИО, мне нужно список в listBox типа [имя файла - ФИО].
вот это я ф..ню написал
PHP код:
begin //01
if FindFirst('V:\BASE\SYNC\IN_LS\*.1Ls', faAnyFile, sr) = 0 then
BEGIN //02
repeat
BEGIN //03
AssignFile(f,'V:\BASE\SYNC\IN_LS\'+SR.Name);
Reset(F);
While not Eof(f) do
begin //04
Readln(F, S);
l:=Length(S);
p:=Pos('F=',S );
T:= Copy(S,p+2, l-2);
ListBox1.Items.Add(SR.Name + ' ' + S);
end;//04
CloseFile(F);
END; //03
until FindNext(sr) <> 0;
FindClose(sr);
END; //02
end; //01