창조유저그룹-커즈닷컴

기타자료실
- '창조'로 제작하지 않은 프로그램이나, '창조'와 관련된 프로그램들을 올리는 곳입니다.
- 첨부가능 확장자는 *.zip,*.rar,*.exe,*.jpg,*.gif,*.png 입니다.

LIST ALL

Posted by 김대명

2011-05-02 17:20:35, Hit : 5990

파일 읽고 쓰기를 쉽게 해주는 함수

File #1 : 파일취급함수.zip (774 Byte) Download : 84

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

메모 객체를 놓자니 그렇고 실수:핸들; 을 선언하기도 귀찮고 이럴때 이 함수를 쓸 수 있습니다.

실수함수:파일새로써(문자:파일명,쓸내용);
// 사용 예제: 파일함수.파일새로써("test.txt",메모0.내용.전체문자);
실수: 파일함수핸들;
파일함수핸들 := 파일만들어(파일명);
결과:=파일써(파일함수핸들, 쓸내용);
파일닫아(파일함수핸들);



문자함수:읽어(문자:파일명;실수:읽을크기);

// 사용 예제:  메모0.내용.전체문자:=파일함수.읽어("test.txt",파일크기("test.txt"));

// 읽을크기 인자는 바이트로 기준한다.

실수:파일함수핸들;

파일함수핸들:=파일열어(파일명, ㅍㅇ읽기 + ㅍㅇ쓰기금지);

결과:=파일읽어(파일함수핸들,읽을크기);

파일닫아(파일함수핸들);



 
 
 
실수함수:파일에써(문자:파일명,쓸내용;실수:줄바꿈여부);

// 사용 예제:  파일함수.파일에써("test.txt",메모0.내용.전체문자,0);

// 줄바꿈 여부 인자에서 0(줄바꿈안함) or 1(줄바꿈함) 값을 넣지 않으면 값으로 444가 반환된다.

// 줄바꿈여부에 0을 넣으면 마지막 내용에 그대로 붙여쓰고 1을 넣으면 줄바꿈을 한 후 쓴다.

문자:함수임시내용,줄바꿈내용;

함수임시내용:=파일함수.읽어(파일명,파일크기(파일명));

줄바꿈내용:="";

실수: 파일함수핸들;

파일함수핸들 := 파일만들어(파일명);

만일(줄바꿈여부=0)

결과:=파일써(파일함수핸들, 함수임시내용+쓸내용);

아니면 만일(줄바꿈여부=1)

결과:=파일써(파일함수핸들, 함수임시내용+줄바꿈내용+쓸내용);

아니면 결과:=444;

파일닫아(파일함수핸들);