Q&A

  • text 파일 열어서...
text파일이..

111222233333344444

111222223232355555

...

...

이런 파일이 있습니다. text파일

그 파일을 불러와서

11133333344444

11123232355555

이렇게 만들려고 합니다. 어느한부분을 떼어내고 다른 text파일을 만들려는데.

어떻게 하면 될까요

급하거든요.. 부탁드려용..

3  COMMENTS
  • Profile
    하기 2001.06.11 18:52
    TextAdd := Copy(TextLine[i],1,3) + Copy(TextLine[i],8,11);

    이런식으로 하면 되지 않을까요?



    ... wrote:

    > text파일이..

    > 111222233333344444

    > 111222223232355555

    > ...

    > ...

    > 이런 파일이 있습니다. text파일

    > 그 파일을 불러와서

    > 11133333344444

    > 11123232355555

    > 이렇게 만들려고 합니다. 어느한부분을 떼어내고 다른 text파일을 만들려는데.

    > 어떻게 하면 될까요

    > 급하거든요.. 부탁드려용..

  • Profile
    ... 2001.06.11 23:04
    감사합니다.

    대강 힌트를 얻어서 하긴 했습니다만 에러가 나네요



    소스

    AssignFile(FI,'d:jungsanjungmast97.txt');

    Reset(FI);

    AssignFile(FO,'d:jungsan971.txt');

    Reset(FO);

    col1 := '';col2 := '';

    While not Eof(FI) do Begin

    Readln(FI,Buf);

    for i := 1 to 290 do

    col1 := col1 + Buf[i];

    for i := 2792 to 3187 do

    col2 := col2 + Buf[i];

    writeln(FO,col1+col2);

    end;

    closeFile(FI);

    closeFile(FO);



    여기서 writeIn(FO,col1+ col2);

    io error 103이란 에러가나는데.. 아시는 분 갈쳐주세용



    하기 wrote:

    > TextAdd := Copy(TextLine[i],1,3) + Copy(TextLine[i],8,11);

    > 이런식으로 하면 되지 않을까요?

    >

    > ... wrote:

    > > text파일이..

    > > 111222233333344444

    > > 111222223232355555

    > > ...

    > > ...

    > > 이런 파일이 있습니다. text파일

    > > 그 파일을 불러와서

    > > 11133333344444

    > > 11123232355555

    > > 이렇게 만들려고 합니다. 어느한부분을 떼어내고 다른 text파일을 만들려는데.

    > > 어떻게 하면 될까요

    > > 급하거든요.. 부탁드려용..

  • Profile
    ... 2001.06.11 23:10
    에구 출력하기 위해 파일오픈할땐 Rewrite(핸들) 써야하는데 Reset썼군요

    에러 잡았음다.





    ... wrote:

    > 감사합니다.

    > 대강 힌트를 얻어서 하긴 했습니다만 에러가 나네요

    >

    > 소스

    > AssignFile(FI,'d:jungsanjungmast97.txt');

    > Reset(FI);

    > AssignFile(FO,'d:jungsan971.txt');

    > Reset(FO);

    > col1 := '';col2 := '';

    > While not Eof(FI) do Begin

    > Readln(FI,Buf);

    > for i := 1 to 290 do

    > col1 := col1 + Buf[i];

    > for i := 2792 to 3187 do

    > col2 := col2 + Buf[i];

    > writeln(FO,col1+col2);

    > end;

    > closeFile(FI);

    > closeFile(FO);

    >

    > 여기서 writeIn(FO,col1+ col2);

    > io error 103이란 에러가나는데.. 아시는 분 갈쳐주세용

    >

    > 하기 wrote:

    > > TextAdd := Copy(TextLine[i],1,3) + Copy(TextLine[i],8,11);

    > > 이런식으로 하면 되지 않을까요?

    > >

    > > ... wrote:

    > > > text파일이..

    > > > 111222233333344444

    > > > 111222223232355555

    > > > ...

    > > > ...

    > > > 이런 파일이 있습니다. text파일

    > > > 그 파일을 불러와서

    > > > 11133333344444

    > > > 11123232355555

    > > > 이렇게 만들려고 합니다. 어느한부분을 떼어내고 다른 text파일을 만들려는데.

    > > > 어떻게 하면 될까요

    > > > 급하거든요.. 부탁드려용..