Q&A

  • [다시질문] 파일나눠읽기
if OpenDialog1.Execute then

begin

Assignfile(f, opendialog1.filename); //opendialog.fileName 대신 파일 이 름으로 바꿔도 됨

Reset(f); //화일을 처음으로 돌림

while not Eof(f) do

begin

Readln(f,s); //첫줄을 읽음

i:= pos(' ', s); //space 한칸 빈곳의 자리수를 알아냄

listbox1.Items.add(copy(s,1,i-1)); //첫문자 부터 빈칸 앞자리까지

listbox2.Items.add(copy(s,i+1,30)); //빈칸 뒤부터 ~

end;

Closefile(f);

end;



이렇게했는데요..

listbox2에만 결과값이 모두 다 찍히는데..모가 잘못된거져??



형식은

22 55

22 44



이런식으루 되어있는데..왼쪽은 리스트박스1에 오른쪽은 리스트박스2에 쓸려고합니다..

어떻게하면좋을까요?

1  COMMENTS
  • Profile
    방문현 2000.11.18 02:28
    초보 wrote:

    > if OpenDialog1.Execute then

    > begin

    > Assignfile(f, opendialog1.filename); //opendialog.fileName 대신 파일 이 름으로 바꿔도 됨

    > Reset(f); //화일을 처음으로 돌림

    > while not Eof(f) do

    > begin

    > Readln(f,s); //첫줄을 읽음

    > i:= pos(' ', s); //space 한칸 빈곳의 자리수를 알아냄

    > listbox1.Items.add(copy(s,1,i-1)); //첫문자 부터 빈칸 앞자리까지

    > listbox2.Items.add(copy(s,i+1,30)); //빈칸 뒤부터 ~

    > end;

    > Closefile(f);

    > end;

    >

    > 이렇게했는데요..

    > listbox2에만 결과값이 모두 다 찍히는데..모가 잘못된거져??

    >

    > 형식은

    > 22 55 //여기 처음에 빈칸이 있는 모양이네요 처음 빈칸을 없애고 사이도 빈칸

    > 22 44 하나로 만드세요...

    >

    > 이런식으루 되어있는데..왼쪽은 리스트박스1에 오른쪽은 리스트박스2에 쓸려고합니다..

    > 어떻게하면좋을까요?