이렇게 하시면 될것 같군요...

var

FH : TextFile;

begin



Assignfile(FH,FileListBox2.Items.strings[i]);

Reset(FH);



while not eof(FH) do

begin

readln(FH,fline);

// K01199912150731020123456789 <--- 510 FORMAT TYPE



// 깨진 데이타가 들어왔을때 검색...

try

a := strToint(fline[2]);

b := strToint(fline[3]);

c := strToint(fline[4]);

d := strToint(fline[5]);

e := strToint(fline[6]);

f := strToint(fline[7]);

g := strToint(fline[8]);

h := strToint(fline[9]);

i1 := strToint(fline[10]);

j := strToint(fline[11]);

k := strToint(fline[12]);

l := strToint(fline[13]);

m := strToint(fline[14]);

n := strToint(fline[15]);

o := strToint(fline[16]);

p := strToint(fline[17]);

r := strToint(fline[18]);

s := strToint(fline[19]);

t := strToint(fline[20]);

u := strToint(fline[21]);

v := strToint(fline[22]);

w := strToint(fline[23]);

x := strToint(fline[24]);

y := strToint(fline[25]);

z := strToint(fline[26]);

z1:= strToint(fline[27]);

except

on EConvertError do continue;

end;

end;

closefile(FH);

end;



그럼 즐코 하세요...



맨땅에 헤딩 하는 넘... wrote:

> FTP로 연결되어 있다고 가정하에...

> FTP특정 폴더에 텍스트 파일들이 규칙적으로 있는데요....

> ==================================================

> 0110170001.txt

> 0110170002.txt

> 0110170003.txt

> 0110180001.txt

> 0110180002.txt

> 0110190001.txt

> 0110190002.txt

> 0110190003.txt

> 0110200001.txt

> 0110200002.txt

> 0110200003.txt

> .

> .

> .

> .

> .

> .

> ================================================

> 이런식으로 있을때요....

> 차례대로 이 텍스트파일를 가지고 와서 텍스트의 내용을 Readln함수로 읽을 수 있는 방법이 있으면

> 그방법이나 로직및 어떠한 함수를사용해야 하는지 고수님들 간단한 소스하나 부탁드립니다...

> 초보자에게 바른길로 인도 좀 해주세요.......^^;;

> 그럼 수고 하시고요.......

> 빠른 답변 부탁 드립니다......간단히나마 소스 하나 부탁드립니다..