Q&A

  • 텍스트 파일 불러오기.
안녕하세요.
텍스트 파일 불러오기가 안되네요.

일반적인 텍스트 파일은 잘 불러들이는데 이 파일은 오픈이 안되요.
첨부한 파일을 불러와서 수정하고 다시 저장을 해야 하거든요.
(문제의 텍스트 파일을 첨부하여 질문 드립니다.)

파일 내용은
P e a c e
+O p e n
R a i s e
C o n f i g u r t i o n
C h a t
W a i t

이렇습니다.

이 파일을 여러방법으로 불러와서 메모장에 나타내어 줄 때
1. Memo1.Lines.LoadFromFile('test.txt')를 했을 경우엔
   P 만 나타나고

2. var
       FH : textFile;
       Line : String;
    begin
       try
        AssignFile(FH, 'test.txt');
        Reset(FH);

        while not Eof(FH) do begin
            Readln(FH, Line);
            Memo1.Lines.Add(Line);
        end;
    finally
        CloseFile(FH);
    end; 로 했을 경우엔
  
    P
    +O
    R
    C
    W
    이렇게만 표시가 됩니다.

텍스트 파일 중간에 입력되어 있는 빈칸이 그냥 빈칸이 아닌것 같은데 어떻게 해야 할지 모르겟습니다.

윈도 메모장에서 불러들이면 제대로 나타나지만 저장을 하면 일반 텍스트 파일이 되어 버립니다...즉, 빈칸이 그냥 빈칸....

에디트 플러스에서는 불러오고 저장하고가 다 제대로 됩니다.

도와주세요.~~~~!!!!
2  COMMENTS
  • Profile
    김동묵 2003.05.16 03:37
    이렇게 해보세요.
    var
       FH : textFile;
       Ch : Char;
    begin
       try
        AssignFile(FH, 'test.txt');
        Reset(FH);

        while not Eof(FH) do begin
            Read(FH, Ch);
            if Ch = #0 then Ch := #32;
            Memo1.Lines.Text := Memo1.Lines.Text + Ch;
        end;
       finally
        CloseFile(FH);
       end;
    end;

  • Profile
    Tina 2003.05.16 23:17
    답변 정말 감사드립니다.

    시키신대로 불러온 파일을 저장하고자 할때는 어떻게 해야 하죠?
    Memo1.Lines.SaveFromFile('test1.txt');
    이렇게 하면 일반적인 텍스트 파일 되어버리거든요...
    원 파일대로 저장을 시킬려고 하는데
    제가 부족하다보니 잘 안됩니다.

    부탁드리겠습니다.