Q&A

  • 텍스트 파일 불러오기(다시 질문드립니다.).


답변 정말 감사드립니다.

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

부탁드리겠습니다.

>이렇게 해보세요.
>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;
>
>>안녕하세요.
>>텍스트 파일 불러오기가 안되네요.
>>
>>일반적인 텍스트 파일은 잘 불러들이는데 이 파일은 오픈이 안되요.
>>첨부한 파일을 불러와서 수정하고 다시 저장을 해야 하거든요.
>>(문제의 텍스트 파일을 첨부하여 질문 드립니다.)
>>
>>파일 내용은
>>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
>>    이렇게만 표시가 됩니다.
>>
>>텍스트 파일 중간에 입력되어 있는 빈칸이 그냥 빈칸이 아닌것 같은데 어떻게 해야 할지 모르겟습니다.
>>
>>윈도 메모장에서 불러들이면 제대로 나타나지만 저장을 하면 일반 텍스트 파일이 되어 버립니다...즉, 빈칸이 그냥 빈칸....
>>
>>에디트 플러스에서는 불러오고 저장하고가 다 제대로 됩니다.
>>
>>도와주세요.~~~~!!!!


1  COMMENTS