|
소스자료실 - 창조 소스를 공유하는 곳입니다. 첨부가능 확장자는 *.zip,*.rar,*.arj,*.exe,*.jpg,*.png,*.gif,*.cuf,*.nhp,*.nhw 입니다. |
| Posted by 강도욱 | 2003-08-11 00:55:20, Hit : 6741 | |
|
|
|
텍스트 파일 읽어서 라인수 구하고 메모로 출력해 줍니다.
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 |
|
|
|
감사합니다..
참 창에서 자동스크롤을 거짓으로 해야하는 걸 깜빡했네요. 소스 받으신 분들은 위와 같이 설정해주세요..^^ |
|
|
qkrwhdgns 2006-01-01 PM 5:06:50 |
|
|
|
그냥..
메모0.내용.줄수;
이렇게 하면 라인줄수 알아오는데;;; |
|
|
지우개 Expert 3.0 제작자 : 천호성 님 [LINK] |
|
|
|
대박로또2005 제작자 : 최재일 님 [LINK] |
|
|
1 | 박종훈 님 | 15292 점 | |
2 | 지상현 님 | 8809 점 | |
3 | 손상진 님 | 7388 점 | |
4 | 권선중 님 | 6060 점 | |
5 | 이진백 님 | 5174 점 | |
|
|
|
가입일 | 닉네임 |
05/31 | 김동률 |
03/31 | 홍형기 |
09/01 | o00pp99oo |
12/27 | 이재민 |
11/20 | 이희철 |
|
|
|
|
. |
. |
. |
|