창조유저그룹-커즈닷컴

소스자료실
- 창조 소스를 공유하는 곳입니다. 첨부가능 확장자는 *.zip,*.rar,*.arj,*.exe,*.jpg,*.png,*.gif,*.cuf,*.nhp,*.nhw 입니다.

LIST ALL

Posted by 강도욱

2003-08-11 00:55:20, Hit : 6712

[0.9b] 파일 라인 단위로 읽는 소스입니다.

Homepage : http://devckorcomm.kldp.net

File #1 : fileline.zip (703.1 KB) Download : 185

File #2 : filelinedll.zip (39.4 KB) Download : 173

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

텍스트 파일 읽어서 라인수 구하고 메모로 출력해 줍니다.

dll 은 Dev-C++ (4.9.8.0버전)로 컴파일 했구요.(단순히 파일을 읽어들여서 라인 수를 반환합니다.)
며칠간 작업했는데요. 아직까지는 꽤 그럴듯하군요.(용량이 크면 좀 버벅대더군요.)

기본적인 소스는 다음과 같아요..
(첨부에 dll소스와 창조 소스 참고하세요.)

//______________________________________________________
//
//       fileRead 전체 명령어
//
//______________________________________________________

//______________________________________________________
실수함수:CountLines(문자:filename);
//"창0.사용자함수0" :
//______________________________________________________

//______________________________________________________
//"창0.버튼0" :   클릭했을때
//______________________________________________________
//문자창보여(수를문(사용자함수0.CountLines("test.txt")));

파일관리창0.파일종류 := "텍스트파일(*.txt)|*.txt";
만일(파일관리창0.보여(ㅇㅈ열기)=참)
{
이름표라인수.제목:= "라인수:";
이름표파일명.제목:= "파일명:";
실수:fileline;
fileline := 사용자함수0.CountLines(파일관리창0.파일명);
  //문자창보여(수를문(fileline));
  이름표파일명.제목:=이름표파일명.제목 + " " + 파일관리창0.파일명;
  이름표라인수.제목:=이름표라인수.제목 + " " + 수를문(fileline);

  실수: 핸들;
  핸들 := 파일열어(파일관리창0.파일명, ㅍㅇ읽기);
  실수: 카운터;
  카운터 := 0;
  문자:임시저장;
   메모0.내용.지워;
  되풀이(카운터 < fileline)
  {
        임시저장:= 파일줄읽어(핸들 + 1);
    메모0.내용.추가(임시저장);
        카운터:= 카운터 + 1;
        임시저장:="";
  }

  파일닫아(핸들);
}

Pueding 2003-08-11 AM 10:50:27


수고하셨습니다. 'ㅡ')

강도욱 2003-08-11 PM 12:18:50


감사합니다.. 참 창에서 자동스크롤을 거짓으로 해야하는 걸 깜빡했네요. 소스 받으신 분들은 위와 같이 설정해주세요..^^