김인 wrote:

> 다름이 아니고 기존 DB를 Text file(Tab 구분하여) 생성 하였습니다.

> 이것을 새로운 DB(Pradox)로 구축하려고 하는데 어떻게 하는지 궁금 합니다.

> 그냥 생각엔 Sql에서 creat 시키면서 하는 것인지.....

> 하여튼 궁금함니다.



반갑습니다.

몇가지 방법이 있겠습니다만 , 아래방법을 참고해 보세요.



procedure TForm1.TextFileToPardox(szFilename:String);

var

f:TextFile;

field1:String[4];

field2:String[5];

field3:String[6];

fieldn:String[7];

begin

if not Table1.Active then Table1.Open;



AssignFile(f, szFilename);

try

Reset(f);

while not EOF(f) do begin

{파일을 끝까지 읽어들인 후 필드사이즈에 맞게 자른다.

사이즈가 변수선언보다 8씩 큰 것은 탭의 칸수를 더해줬기 때문이다.}

ReadLn(f, s);

field1:= Trim(Copy(s, 1, 4+8)); //첫번째 필드값의 자릿수를 맞춘다.

field2:= Trim(Copy(s, 4+8+1, 5+8));

field3:= Trim(Copy(s, 5+8+1, 6+8));

fieldn:= Trim(Copy(s, 6+8+1, 7+8));



Table.Append;

Table1.Fields[0].AsString:= field1;

Table1.Fields[1].AsString:= field2;

Table1.Fields[2].AsString:= field3;

Table1.Fields[n-1].AsString:= fieldn; //n번째 필드일 경우

Tabl1.Post;

end;

finally

CloseFile(F);

end;

end;



온라인상에서 쓰느라 테스트를 못했습니다. 양해하시고 그냥 참고하시기를...

김인 wrote:

> 다름이 아니고 기존 DB를 Text file(Tab 구분하여) 생성 하였습니다.

> 이것을 새로운 DB(Pradox)로 구축하려고 하는데 어떻게 하는지 궁금 합니다.

> 그냥 생각엔 Sql에서 creat 시키면서 하는 것인지.....

> 하여튼 궁금함니다.



TEXT 파일로 생성했다고 하셨는데

생성한 내용이 테이블에 있는 자료를 의미한다면

텍스트파일을 엑셀에서 읽어들인다음(TAB으로 구분되어있다니까)

엑셀파일로 저장하세요

그리고 이곳 게시판을 찾아보시면 엑셀파일을 DB로 올리는

방법에 대해 있을 겁니다.



텍스트파일을 바로 올리는 방법에대해서는 잘 모르겠네요

도움이 되셨길 바랍니다.