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

> 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;