김성준(델초보) wrote:

> 제가 자주 게시판에 글을 올리는데요...에공~~

> 너무 몰라서리 그럽니다......부탁드립니다...

> 제발 고수님들 좀 부탁 드립니다....

> 텍스트에 있는 텍스트를 자르는 로직을 좀 갈켜 주세요....

>

> 텍스트의 내용 )

> 20124568김성준남7402051675412서울시종로구혜화동76번지...... 02367562450165095421

> 20124573홍길동남7712031678615서울시관악구봉천7동1019번지 028875321 0118574127

> .

> .

> .

> .

> .

> 내용은 이러합니다.... 제발 좀 갈켜주십시오 고수님들!!!!! 그럼 이만..

> 멋진 답변 부탁드릴께엽!!!! ^^;;

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

우선 텍스트를 화일로 읽어야 합니다.

잠깐...

내용들이 *.txt로 저장 되어있는지..???

그러면 화일을 일단 읽으세요...

그런다음 화일의 내용이 끝날때까지 if-then 문으로

한 레코드씩 읽어드리면서 화일 포멧이 있죠..

사번 몇자리 라는것은 아시죠..

그러면 copy문으로 잘라서 원하시는 것만 읽으시면 됩니다.



예문으로 하나 드릴테니 보시고 공부하세요..



var

Q : TextFile;

w_file :string;

begin

w_file := 'c:kuntaedat'+edit1.text+''; <---화일이 있는곳



if FileExists(w_file) then <--- 끝날때 까지 돈다

begin

assignfile(q, w_file);

reset(q);



while not eof(q) do

begin

readln(q,fline);

yy := copy(fline,1,4); <---- 이렇게 잘라쓰면 됩니다.

end;

end;

end;



아시겠는지..?

아직도 이해가 가지 않으시면 책 보시면 이해 갈겁니다. 그럼..

즐코....

const

ps:array[1..6]of byte=(8,8,13,34,10,10); //길이가 고정되어 있다는 가정하에서 입니다.

var

s:string;

cnt,flag:byte;

str:array[1..6] of string;

begin

s:='20124573홍길동남7712031678615서울시관악구봉천7동1019번지 028875321 0118574127';

flag:=1;

for cnt:=1 to 6 do begin

str[cnt]:=copy(s,flag,ps[cnt]);

flag:=flag+ps[cnt];

end;

...

end;



김성준(델초보) wrote:

> 제가 자주 게시판에 글을 올리는데요...에공~~

> 너무 몰라서리 그럽니다......부탁드립니다...

> 제발 고수님들 좀 부탁 드립니다....

> 텍스트에 있는 텍스트를 자르는 로직을 좀 갈켜 주세요....

>

> 텍스트의 내용 )

> 20124568김성준남7402051675412서울시종로구혜화동76번지...... 02367562450165095421

> 20124573홍길동남7712031678615서울시관악구봉천7동1019번지 028875321 0118574127

> .

> .

> .

> .

> .

> 내용은 이러합니다.... 제발 좀 갈켜주십시오 고수님들!!!!! 그럼 이만..

> 멋진 답변 부탁드릴께엽!!!! ^^;;

>