초보 wrote:

> 텍스트화일에 있는 데이타를 파라독스 DB에 넣을려구 하는데 방법을 모르겠어요..

> DB까지는 만들었는데

> 알려주세요.. 급해요..

> 글구 혹시 텍스트 화일에 있는데이타를 소트하는 방법 알려주세요.

> 소스주시면 더 고맙구요...에궁....

>

제가 작업했던소스인데 도움이 될겁니다. 약간의 분석이필요하죠.

텍스트파일이 c/temp/ 에 일반.txt라고 있습니다.그것을읽어서 메모콤퍼넌트에 보여집니다.

그리고 버튼클릭시 키값을찾아서 해당테이블에 넘겨줍니다.

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('c:temp일반.txt');

if not table.Active then

table.Open;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

i : Integer;

s, s1 : String;

begin

for i := 0 to Memo1.Lines.Count - 1 do

begin

S := Copy(Memo1.Lines.Strings[i], 1, 3);

S1 := Copy(Memo1.Lines.Strings[i], 5, 3);

S2 := Copy(Memo1.Lines.Strings[i], 9, 3);

with Query1 do

begin

Close;

SQL.Clear;

SQL.Add('Select * From Master );

Prepare;

Open;

while not eof do

begin

table.FindKey([FieldByName('GB_Code').AsString, FieldByName ('SS_Code').AsInteger,

FieldByName('YD_Code').AsInteger, FieldByName('Ser_No').AsInteger]);

table.Edit;

table.FieldByName('').AsInteger := StrToInt(S);

table.FieldByName('').AsInteger := StrToInt(S1);

table.FieldByName('').AsInteger := StrToInt(S2);

//위코드와같이 s,s1,s2를 해당필드에 넘겨준다.

table.Post;

next;

end;

end;

end;

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if table.Active then MasterT.Close;



end;

아래는 텍스트파일저장상태

021,003,500

166,001,501

167,007,502

169,012,503

188,001,504

189,025,505

213,001,506

214,001,507

215,002,508

216,001,509

223,002,510

224,002,511

252,001,512

267,002,513

293,002,514

295,005,515

300,009,516

306,001,517

307,001,518

312,005,519