파일의 내용입니다..



ex) 숫자는 시간이고 뒤에 파일이름은



불러올 파일입니다



이 줄을 읽은뒤 34초 뒤에 eyes1-2.html 읽어오기

==============================================================================

procedure TForm1.A_OpenBtnExecute(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName := OpenDialog1.FileName;

str1 := '.html';

str2 := OpenDialog1.FileName;

str2 := trim(copy(str2,1,pos('.',str2)-1));

str2 := str2 + str1;

end;

end;

==================================================================

// 라인이 몇줄인지만 알아온다

procedure TForm1.a_webExecute(Sender: TObject);

begin

// 읽기 시작

try

st1 := str2;

AssignFile(ff,st1); // 읽어오기에서..

reset(ff);

len_count := 0;

while not Eof(ff) do // 텍스트 파일 오픈 끝

begin

readln(ff, st); // 한 줄 읽어오기

len_count := len_count + 1;

cnt:=pos('hsm', st); // hsm을 찾으면 브레이크 건다

if cnt > 0 then //st안에 'hsm'란 문자열이 있는경우

break;

end; // while end

CloseFile(ff);

except

ShowMessage('찾는 html문서정보가 없습니다.');

end; // try end

A_len_count.Execute;

end;

=========================================================



procedure TForm1.A_len_countExecute(Sender: TObject);

var

i, n : integer;

st_len :string;



begin

try

st1 := str2;

AssignFile(ff,st1); // 읽어오기에서..

reset(ff);

//=================

n := len_count;

for i := 1 to n do

begin

readln(ff,st_len);

copy (st_len, 1, pos('