Q&A

  • [재질문]제발 좀.....[급질문]
제가 질문을 잘못 한것 같은데요.....

다시 좀 고수님들 좀 봐 주세요... 죄송 합니다...



FTP로 연결되어 있다고 가정하에...

FTP특정 폴더에 텍스트 파일들이 규칙적으로 있는데요....

==================================================

0110170001.txt

0110170002.txt

0110170003.txt

0110180001.txt

0110180002.txt

0110190001.txt

0110190002.txt

0110190003.txt

0110200001.txt

0110200002.txt

0110200003.txt

.

.

.

.

.

.

================================================

이런식으로 있을때요....

파일 하나는 다운로드가 됩니다...

제가 알고 싶은것은 여러 파일이 있는데 그 파일들을 차례대로 다운로드 하고 싶은거에요.......

그리고 다운 받은 파일들을 차례로 Read함수를 사용해서 작동하는거져...

그방법은 알고 있는데 자세한 로직을 잘 몰라서리....^^;;



차례대로 이 텍스트파일를 가지고 와서 텍스트의 내용을 Readln함수로 읽을 수 있는 방법이 있으면

그방법이나 로직을 좀 갈켜 주세요... 고수님들 간단한 소스하나 부탁드립니다...

초보자에게 바른길로 인도 좀 해주세요.......^^;;

그럼 수고 하시고요.......

빠른 답변 부탁 드립니다......간단히나마 소스 하나 부탁드립니다..

소스를 올리겠습니다.... 조금만 봐주세요.......



===================================================================================

procedure TForm1.saveproc;

begin

if FileExists('C:연습새거김광식.txt')= True then <==문제의 부분 임다..저기 파일의 경로를 다 적어야 되는데... 디렉토리 안의 파일들을 차례로..^^;

begin

Assignfile(READER,'C:연습새거김광식.txt'); <==여기도 꼭 경로을 적어야 하나요???

reset(Reader);

readln(reader,s);

While not EOF(Reader) do

begin

readln(reader,s);

RichEdit1.Lines.Add(S);

end;

end;

end;



procedure TForm1.FormShow(Sender: TObject);

begin

NMFTP1.Host := '203.251.174.14';

NMFTP1.Port := 21;

NMFTP1.Timeout := 0;

NMFTP1.UserID := 'guest';

NMFTP1.Password := 'guestcare';

try

NMFTP1.Connect;

except

On E:Exception do

if E.message='something'

then writeln('poo');

end;

NMFTP1.Download('김광식.txt', 'C:연습새거김광식.txt'); <== 이부분도요..꼭경로를 적어야 하나여??? 디렉토리에 있는 모든 텍스트파일을 차례대로 다운 받고 싶은데요???

saveproc;



end;



===================================================================================

조금만 봐주시고요... 소스 수정을 좀 해 주실 수 있으면 좋구요....

아님 간단히 소스 하나라도....부탁드립니다...

글구 마지막 문제는 FTP코딩 부분이 FormShow라 자동실행 된다는 점입니다...

부탁 좀 드릴께엽......... 그럼 수고하세요....

빠르고 이쁘고 엄청나지는 않지만 초보의 등불이 되는 답변 부탁 드립니다...



이 게시물을
1  COMMENTS
  • Profile
    이준희 • 2001.10.19 00:34
    요렇게 해보세요...



    NMFTP 에서 다운받는 넘은 맞나 모르겠네요...



    아마 다운받기 전에 디렉토리인지 여부를 검사해서 파일만 받도록 조금 손보세요







    procedure TForm1.saveproc;

    var

    rc : TSearchRec;

    begin

    if FindFirst('C:연습새거*.*',faAnyFile,rc) then

    repeat

    Assignfile(READER,rc.Name);

    reset(Reader);

    readln(reader,s);

    While not EOF(Reader) do

    begin

    readln(reader,s);

    RichEdit1.Lines.Add(S);

    end;

    until FindNext(rc)<>0;

    end;



    procedure TForm1.FormShow(Sender: TObject);

    begin

    NMFTP1.Host := '203.251.174.14';

    NMFTP1.Port := 21;

    NMFTP1.Timeout := 0;

    NMFTP1.UserID := 'guest';

    NMFTP1.Password := 'guestcare';

    try

    NMFTP1.Connect;

    except

    On E:Exception do

    if E.message='something'

    then writeln('poo');

    end;

    NMFTP1.NList;



    With NMFTP1.NList do

    for i := 0 to name.count -1 do

    NMFTP1.Download(name[i], 'C:연습새거'+name[i]);



    saveproc;



    end;

























    맨땅에 헤딩 하는 넘... wrote:

    > 제가 질문을 잘못 한것 같은데요.....

    > 다시 좀 고수님들 좀 봐 주세요... 죄송 합니다...

    >

    > FTP로 연결되어 있다고 가정하에...

    > FTP특정 폴더에 텍스트 파일들이 규칙적으로 있는데요....

    > ==================================================

    > 0110170001.txt

    > 0110170002.txt

    > 0110170003.txt

    > 0110180001.txt

    > 0110180002.txt

    > 0110190001.txt

    > 0110190002.txt

    > 0110190003.txt

    > 0110200001.txt

    > 0110200002.txt

    > 0110200003.txt

    > .

    > .

    > .

    > .

    > .

    > .

    > ================================================

    > 이런식으로 있을때요....

    > 파일 하나는 다운로드가 됩니다...

    > 제가 알고 싶은것은 여러 파일이 있는데 그 파일들을 차례대로 다운로드 하고 싶은거에요.......

    > 그리고 다운 받은 파일들을 차례로 Read함수를 사용해서 작동하는거져...

    > 그방법은 알고 있는데 자세한 로직을 잘 몰라서리....^^;;

    >

    > 차례대로 이 텍스트파일를 가지고 와서 텍스트의 내용을 Readln함수로 읽을 수 있는 방법이 있으면

    > 그방법이나 로직을 좀 갈켜 주세요... 고수님들 간단한 소스하나 부탁드립니다...

    > 초보자에게 바른길로 인도 좀 해주세요.......^^;;

    > 그럼 수고 하시고요.......

    > 빠른 답변 부탁 드립니다......간단히나마 소스 하나 부탁드립니다..

    > 소스를 올리겠습니다.... 조금만 봐주세요.......

    >

    > ===================================================================================

    > procedure TForm1.saveproc;

    > begin

    > if FileExists('C:연습새거김광식.txt')= True then <==문제의 부분 임다..저기 파일의 경로를 다 적어야 되는데... 디렉토리 안의 파일들을 차례로..^^;

    > begin

    > Assignfile(READER,'C:연습새거김광식.txt'); <==여기도 꼭 경로을 적어야 하나요???

    > reset(Reader);

    > readln(reader,s);

    > While not EOF(Reader) do

    > begin

    > readln(reader,s);

    > RichEdit1.Lines.Add(S);

    > end;

    > end;

    > end;

    >

    > procedure TForm1.FormShow(Sender: TObject);

    > begin

    > NMFTP1.Host := '203.251.174.14';

    > NMFTP1.Port := 21;

    > NMFTP1.Timeout := 0;

    > NMFTP1.UserID := 'guest';

    > NMFTP1.Password := 'guestcare';

    > try

    > NMFTP1.Connect;

    > except

    > On E:Exception do

    > if E.message='something'

    > then writeln('poo');

    > end;

    > NMFTP1.Download('김광식.txt', 'C:연습새거김광식.txt'); <== 이부분도요..꼭경로를 적어야 하나여??? 디렉토리에 있는 모든 텍스트파일을 차례대로 다운 받고 싶은데요???

    > saveproc;

    >

    > end;

    >

    > ===================================================================================

    > 조금만 봐주시고요... 소스 수정을 좀 해 주실 수 있으면 좋구요....

    > 아님 간단히 소스 하나라도....부탁드립니다...

    > 글구 마지막 문제는 FTP코딩 부분이 FormShow라 자동실행 된다는 점입니다...

    > 부탁 좀 드릴께엽......... 그럼 수고하세요....

    > 빠르고 이쁘고 엄청나지는 않지만 초보의 등불이 되는 답변 부탁 드립니다...

    >

←First Page
1535 1536 1537 1538 1539 1540 1541 1542 1543 1544
Last Page→
한델 로그인 하기