델초짜 wrote:

> 델파이의 고수님들께 부탁합니다.

>

> txt형태의 파일을 동일구조의 table로 업로드하는 방법이나 팁을 알고계신분이

> 있으시면 도와주세요...



--------------------------------------------------------------------------------

안녕하세요... 로직이 좀 복잡하지만 좀 이해를 하시면 아실수 있는 것입니다.



[TEXT 파일 예제]

1|홍길동|100-100|경기도..|02-111-1111

2|이몽룡|100-110|경기도..|02-222-2222



[로직]



Var

I, K, Cnt, R_SEQ : Integer;

SNo, KName, zip, Zip_addr, Addr, Tel : string;

FP : Textfile;

Buf : string;

begin

Cnt := 0;



if OpenDialog1.Execute then

begin

AssignFile(FP, OpenDialog1.FileName);

Reset(FP);



While not Eof(fp) do

Begin

SNo := ''; Buf := ''; KName := ''; Zip := '';

Zip_Addr := ''; Addr := ''; Tel := '';



Readln(FP, Buf);

K := 0;

for I := 1 to Length(buf) do

begin

if buf[i] = '|' then // -> '|' 는 임의의 구분자입니다.

K := K + 1

else

case K of

0 : SNo := SNo + Buf[i];

1 : KName := KName + buf[i];

2 : Zip := Zip + buf[i];

3 : Zip_Addr := Zip_Addr + buf[i];

4 : Addr := Addr + buf[i];

5 : Tel := Tel + buf[i];

end;

KName :=Trim(KName);

Zip :=Trim(ZIP);

ZIP_Addr :=Trim(ZIP_Addr);

Addr :=Trim(Addr);

Tel :=Trim(Tel);

//------------------------------------------------------------

// 이부분의 Table에 저장하는 Insert 문을 쓰시면 됩니다.

//-------------------------------------------------------------

end;

end;



일단 위의 예제를 조금만 수정하시면 원하시는 결과를 얻을 수 있을 겁니다.

즐코딩 되시길...!