DB에 있는 레코드와 TXT화일에 있는 데이터를 조합해서 한 TXT화일로

저장하려고 합니다. 그냥 STRING으루 붙일려구 하는데 화일처리를

안해봐서요..

텍스트화일을 한 라인씩 읽는 방법과 거기에 다른 스트링을 붙여서

또다른 TXT화일에 저장하는 방법을 알고 싶습니다.

또 한줄씩 쓰고난 후 라인을 바꾸는 함수 같은게 있는지도요..

김성률 wrote:

> 안녕하세요. 좀 늦어진것 같아 죄송합니다.

> 소스를 보야 달라고 하시길래 제가 코딩 했던 부분을 보여 드리겠습니다.

>

> procedure RealTblSelect;

> begin

> Close;

> SQL.Clear;

> SQL.ADD('Select * from out_master where out_num > 37 INTO TEMP out_master_tmp');

> Open;

> end;

>

> 소스 내용은 위와 같이 간단합니다. 그런데 Open 명령이 실행될때에 'Error Creating Cursor handle'

> 에러가 나타나거든요.

> 다시 한번 강조 할것은 informix 상에서는 위의 SQL 문이 이상없이 실행됩니다.

> 아낌없는 조언 부탁드립니다.

>



안녕하세요! 소스는 잘 봤습니다. 그런데 정말 위의 코드가 정확한 코드인지요????. 정확한 코드라면 쓰시는 델파이는 정말 굉장한 델파이든지 아니면 가짜 델파이가 아닌가 싶군요^^;



그리고 위 코드가 제대로 에러없이 컴파일이 되는지요????. 제가 보기에는 소스를 좀 이해하기가 힘듭니다.



1.procedure RealTblSelect;



분명히 단독 프로시져 입니다.



begin

Close; <= 단독프로시져 인데 도대체 어떤 콤포넌트의 Close 메쏘드를???

SQL.Clear; <= SQL 의 소속은 어디죠????

SQL.ADD('Select * from out_master where out_num > 37 INTO TEMP out_master_tmp');

Open; <= 어떤 콤포넌트의 Open 메쏘드를 실행한겁니까??????

end;



현재로써는 올려주신 소스가 정확하지 않은것 같습니다.^^



죄송하지만 다시한번 자세히 올려 주셔야 그래야 정확한 답변을 들을실수 있습니다.

서희영 께서 말씀하시기를...

> DB에 있는 레코드와 TXT화일에 있는 데이터를 조합해서 한 TXT화일로

> 저장하려고 합니다. 그냥 STRING으루 붙일려구 하는데 화일처리를

> 안해봐서요..

> 텍스트화일을 한 라인씩 읽는 방법과 거기에 다른 스트링을 붙여서

> 또다른 TXT화일에 저장하는 방법을 알고 싶습니다.

> 또 한줄씩 쓰고난 후 라인을 바꾸는 함수 같은게 있는지도요..

>



전화주세요(016-317-8483) 해결해 드립니다

서희영 께서 말씀하시기를...

> DB에 있는 레코드와 TXT화일에 있는 데이터를 조합해서 한 TXT화일로

> 저장하려고 합니다. 그냥 STRING으루 붙일려구 하는데 화일처리를

> 안해봐서요..

> 텍스트화일을 한 라인씩 읽는 방법과 거기에 다른 스트링을 붙여서

> 또다른 TXT화일에 저장하는 방법을 알고 싶습니다.

> 또 한줄씩 쓰고난 후 라인을 바꾸는 함수 같은게 있는지도요..

>



아래에 적은 예제는 두 텍스트 파일을 읽어서 다른 텍스트 파일에 저장하는 예제인데 그중 하나를 테이블의 필드 값으로 바꿔서 사용하시면 될꺼예요.



근데 희영님 제가 아는 사람??



procedure TForm1.Button1Click(Sender: TObject);

var

TextFile1, TextFile2, TextFile3: System.Text;

TextLine1, TextLine2: string;

begin

System.Assign(TextFile1, 'C:autoexec.bat');

System.Assign(TextFile2, 'C:Config.sys');

System.Assign(TextFile3, 'C:test.txt');

System.Reset(TextFile1);

System.Reset(TextFile2);

System.Rewrite(TextFile3);

while not Eof(TextFile1) do begin

Readln(TextFile1, TextLine1); //1행 읽기

Readln(TextFile2, TextLine2); //이 부분을 붙이려는 테이블의 필드값으로

//바꾸세요..

Writeln(TextFile3, TextLine1 + ' ' + TextLine2); // 1행 쓰기

end;

System.Close(TextFile1);

System.Close(TextFile2);

System.Close(TextFile3);

end;

서희영 께서 말씀하시기를...

> DB에 있는 레코드와 TXT화일에 있는 데이터를 조합해서 한 TXT화일로

> 저장하려고 합니다. 그냥 STRING으루 붙일려구 하는데 화일처리를

> 안해봐서요..

> 텍스트화일을 한 라인씩 읽는 방법과 거기에 다른 스트링을 붙여서

> 또다른 TXT화일에 저장하는 방법을 알고 싶습니다.

> 또 한줄씩 쓰고난 후 라인을 바꾸는 함수 같은게 있는지도요..

>

procedure test;

var

InFile, OutFile : TextFile;

StrLine : String; // 256 char

begin

System.Assign(InFile, 'c:readfile.txt');

System.Assign(OutFile, 'c:writefile.txt');

System.Reset(InFile);

System.ReWrite(OutFile);



while not Eof(InFile) do

begin

System.ReadLn(InFile, StrLine);

System.WriteLn(OutFile, StrLine + ' ' + '추가할 스트링');

end;



System.Close(InFile);

System.Close(OutFile);

end;