창조유저그룹-커즈닷컴

질문게시판
- 반드시 검색을 하신 후 원하는 답변을 찾을 수 없을 때, 질문을 올려주세요.

LIST ALL

Posted by 찌까니

2005-04-03 20:46:08, Hit : 3074

간단하게 체크파일 만들기.

Post URL : http://cugz.sjworks.net/bbs/zboard.php?id=qna&no=1095

몇일전에 최재일님께서 Tif 파일 복사하는 소스를 알려주신적이 있습니다.
그걸 응용해서 이번엔 Y:\Film1 이라는 폴더를 1분간격으로 갱신하면서
파일이 생기면 메모창에 내용을 추가하게 하였습니다. 그런데 여기서

문제점이 있었습니다.

머냐면, A.Tif 라는 파일이 생겼을경우, 1분후 새로 체크했을때도 역시 존재하고 있는 상태라 메모창에 내용이 중복되는 단점이 있습니다. 한번 메모창에 내용을 추가하면
같은 파일명은 추가하지 않게 하려면 어떻게 해야 하나요...?
물론 체크할때 현재시간을 출력되게 해서 시간부분에서 내용이 달라지긴 하지만..

좋은 방법 없을까요? 고수님들??? 힌트 부탁드립니다.

실수 : 수;
문자 : 문, 복사할폴더, 파일명;
수 := 0;

파일찾아(거짓, "Y:\Film1", "*.tif", 리스트박스0.내용);

반복
{
문 := 리스트박스0.내용.부분문자(수);
만일(파일존재여부(문))
{
메모0.내용.추가(문+"파일이 "+ 시간을문(현재시간)+" 에 Y:\Film1폴더에 생성되었습니다.");

}
수 := 수 + 1;
} 까지 (수 >= 리스트박스0.내용.줄수);

=================================결과값==================================
Y:\FILM1\1. 900.TIF파일을    2005-04-03 오후 7:42:35에 생성되었습니다.
Y:\FILM1\04010104042005999ps00.TIF파일이    2005-04-03 오후 8:14:35에 생성되었습니다.
Y:\FILM1\16010104042005999ps00.TIF파일이    2005-04-03 오후 8:14:35에 생성되었습니다.
Y:\FILM1\17010104042005999ps00.TIF파일이    2005-04-03 오후 8:14:35에 생성되었습니다.
Y:\FILM1\04010104042005999ps00.TIF파일이    2005-04-03 오후 8:15:35에 생성되었습니다.
Y:\FILM1\05010104042005999ps00.TIF파일이    2005-04-03 오후 8:15:35에 생성되었습니다.
Y:\FILM1\17010104042005999ps00.TIF파일이    2005-04-03 오후 8:15:35에 생성되었습니다.
Y:\FILM1\05010104042005999ps00.TIF파일이    2005-04-03 오후 8:16:35에 생성되었습니다.
Y:\FILM1\10010104042005999ps00.TIF파일이    2005-04-03 오후 8:27:35에 생성되었습니다.
Y:\FILM1\04010104042005999ps00.TIF파일이    2005-04-03 오후 8:28:35에 생성되었습니다.
Y:\FILM1\10010104042005999ps00.TIF파일이    2005-04-03 오후 8:28:35에 생성되었습니다.

위 결과값을 보시면 아시겠지만 04010104042005999ps00.TIF 파일이 여러번 중복 되었다는걸
알수 있습니다. 이걸 최초 한번 출력하면 같은 파일명이 갱신되었을때 출력하지 않도록요...

고수님들 꼭 좀 부탁드립니다... 힌트좀 주세용 ^^

이진백 2005-04-03 PM 9:26:55


...중략... 반복 { 문 := 리스트박스0.내용.부분문자(수); 만일(파일존재여부(문)) { 만일(메모0.내용.줄위치(문+"파일이 "+ 시간을문(현재시간)+" 에 Y:\Film1폴더에 생성되었습니다.")) -1 { 메모0.내용.추가(문+"파일이 "+ 시간을문(현재시간)+" 에 Y:\Film1폴더에 생성되었습니다."); } //줄위치 라는 ㅎ문자열 내부의 함수는 해당 내용이 있는 곳의 줄 위치를 알려준다. 없을경우 -1을 반환. -1을 반환시에만 추가한다. //시험을 안 해봐서 컴파일러 에러날 수 있습니다. } 수 := 수 + 1; } 까지 (수 >= 리스트박스0.내용.줄수);

찌까니 2005-04-04 PM 6:39:52


진백님 도움주셔서 감사합니다... 그런데 다시한번 질문좀 드릴께요.. 정말 귀찮게 해서 죄송합니다. 만일(메모0.내용.줄위치(문+"파일이 "+ 시간을문(현재시간)+" 에 Y:\Film1폴더에 생성되었습니다.")) -1 이 부분 있잖아요.... 문법 에러가 나는데... -1을 빼면 안나구요... 문법 규칙을 몰라 이리저리 해봐도 답을 알 수 없는데... 어디가 잘못된걸까요?

권선중 2005-04-04 PM 7:48:28


찌까니님이 쓰신것: 만일(메모0.내용.줄위치(문+"파일이 "+ 시간을문(현재시간)+" 에 Y:\Film1폴더에 생성되었습니다.")) -1 마지막처리를 안하신듯. -1 뒤에다 ) 넣어주셔여죠 ^^

찌까니 2005-04-04 PM 8:06:08


네, 그런데 그렇게도 해봤었습니다. 그런데,,,, 테스트 해봤는데요.... 조건 걸어준데로 작동하지 않구요... 처음 소스처럼 계속 찍히네요.. 흑흑.ㅡ.ㅡ;; 왜글까????? 도와줭~ 도와줭~ 도와주세용 ㅠ.ㅠ;;

정성우 2005-04-05 AM 7:17:49


실수:수; 수:=0; 이걸 초기화 명령어에 넣어 주시고(전역 변수로~) 다음에 시계에는 이렇게~ 문자 : 문, 복사할폴더, 파일명; 파일찾아(거짓, "Y:\Film1", "*.tif", 리스트박스0.내용); 반복{ 문:=리스트박스0.내용.부분문자(수); 만일(파일존재여부(문)){ 메모0.내용.추가(문+"파일이 "+ 시간을문(현재시간)+" 에 Y:\Film1폴더에 생성되었습니다."); } 수 := 수 + 1; }까지(수>=리스트박스0.내용.줄수); 이러면 될까~ 한번 테스트좀~

정성우 2005-04-05 AM 7:19:48


이진백님 꺼는 -1넣을때 이렇게 하면 될듯 만일(메모0.내용.줄위치(문+"파일이 "+ 시간을문(현재시간)+" 에 Y:\Film1폴더에 생성되었습니다.")=-1){

이진백 2005-04-05 AM 9:37:21


반복 { 문 := 리스트박스0.내용.부분문자(수); 만일(파일존재여부(문)) { 만일(메모0.내용.줄위치(문+"파일이 "+ 시간을문(현재시간)+" 에 Y:\Film1폴더에 생성되었습니다.")) <> -1) { 메모0.내용.추가(문+"파일이 "+ 시간을문(현재시간)+" 에 Y:\Film1폴더에 생성되었습니다."); } //줄위치 라는 ㅎ문자열 내부의 함수는 해당 내용이 있는 곳의 줄 위치를 알려준다. 없을경우 -1을 반환. -1을 반환시에만 추가한다. //시험을 안 해봐서 컴파일러 에러날 수 있습니다. } 수 := 수 + 1; } 까지 (수 >= 리스트박스0.내용.줄수);