ASP

 

 파일 조작법


파일 시스템을 사용하기 위해서는 FileSystemObject 객체를 사용한다. 이 객체를 사용하려면 웹 상에서 동적으로 디렉토리의 생성과 삭제, 텍스트 파일의 생성과 삭제, 편집 등을 손쉽게 처리할 수 있다. 특히, 이런 파일의 조작은 클라이언트에서 작동할 수 있는 것이 아니라,
서버에서 작동할 수 있는 것이라는 점에 주의해야 한다.

FileSystemObject 객체를 사용하기 위해서는 Server 객체의 CreateOBject 메서드를 사용해서 FileSystemObject 객체의 인스턴스를 만든 다음 적절한 메서드를 사용해야 한다.  형식은 다음과 같다.

 

Set objFSO =CreateOBject("Scripting.FileSystemObject")  -- 객체 인스턴스 생성
Set t objTest =objFSO.CreateTextFile("C:\test.txt") -- 메서드 사용

 

 

[1] 파일 정보 얻기(File 객체)


File 객체와 Files 콜렉션을 이용하면 지정한 파일의 객체를 얻어와서 그 파일의 여러 가지 정보
(파일 이름, 파일의 현재 디렉토리명, 이름 파일 크기, 수정 날짜 등) 를 가져올 수 있다.

config.sys 파일의 크기(size) 와 타입(type), 위치(path)를 정보를 얻어와서 출력한다.

CreateObject 메소드를 통해 FileSystemObject 객체의 인스턴스를 생성하고 그 객체의 GetFile
메소드를 통해 지정된 파일의 핸들을 가져온다.

 

create1.asp 파일 소스 코드

<!--#include virtual="./braverokmc/include/header.asp" -->
<%
  Set fs =Server.CreateObject("Scripting.FileSystemObject")
  Set confile =fs.GETFile("C:\inetpub\wwwroot\asp-shoppingMall\ex\test.txt")
%>

</head>
<body>

<h2>파일 정보 얻기</h2>

Config.sys 파일의 정보 <p>


file size : <%= confile.size %> bytes <br />
file type : <%= confile.type %> bytes <br />
file path : <%= confile.path %>

</body>
</html>


출력 =>

파일 정보 얻기

Config.sys 파일의 정보

file size : 533 bytes 
file type : 텍스트 문서 bytes 
file path : C:\inetpub\wwwroot\asp-shoppingMall\ex\test.txt

 

 [2] 파일 생성하기 


CreateTextFile 이라는 메소드를 사용하여 텍스트 파일을 만들 수 있다. 이 메소드는 방문자 카운트 등을
만드는 경우 텍스트 파일에 그 내용을 저장하고자 할 때 자주 사용한다.

CreateTextFile 메소드 형식은 다음과 같다.


<%
  FSObject.CreateTextFile("파일이름", overwrite, unicode)
%>


CreateTextFile은 세 개의 인자를 갖는다. 첫 번째 인자는 어느 경로에 어떤 이름의 텍스트 파일을 만들
것인지 그 전체 경로를 기입하는 곳이다.

두 번째 인자는 같은 이름의 파일이 이미 존재할 경우 그 파일을 덮어쓸 것인지, 그렇지 못하게 할 것인지를
지정하는 것이다. true 이면 덮어쓸 수가 있는 것이고, false 이면 덮어쓰기가
안된다.(overwrite = true | false)

세 번째 인자는 파일이 만들어질 때 유니 코드나 ASCll 파일로 생성할 것인가를 결정하는 것이다.
ture 이면 유니 코드로, false 이면 ASCll 코드로 생성된다. (unicode =default ASCll |-1)
 

 

<!--#include virtual="./braverokmc/include/header.asp" -->
</head>
<body>
<h2>파일 생성하기</h2>
<%
  Set fs =Server.CreateObject("Scripting.FileSystemObject")
  Set objFile=fs.CreateTextFile("C:\inetpub\wwwroot\braverokmc\test.txt", true, false)
%>


<%

 if fs.FileExists("C:\inetpub\wwwroot\braverokmc\test.txt") then
   Response.write "결과 : test.txt 파일이 만들어 졌습니다."
 else
   Response.write "결과 : test.txt 파일이 만들어지지 못했습니다. "
end if

%>

</body>
</html>

 

 

출력 =>

 

파일 생성하기

결과 : test.txt 파일이 만들어 졌습니다.

 

 

  [3] 파일 읽기   


텍스트 파일을 불러와서 화면에 출력하기 위해 CreateTextFile 메소드, OpenTextFile 메소드,
TextStream 메소드를 사용해야 한다. OpenTextFile 메소드를 사용하여 열린 파일의 내용을
TextStream 메서드를 사용하여 출력할 수 있다.


OpenTextFile 메소드 형식은 다음과 같다.

FSObject.OpenTextFile("파일이름", iomode, create, format)


인자 값의 내용의 다음과 같다.

iomode = 1 | 2 | 8 ( 1:read, 2:write, 3:append default 1)
create = true | false ( true 인 경우 파일이 없으면 생성한다.)
format = default ASCll | -1 (unicode)


test.txt 라는 파일을 열어서 OpenTextFile 메서드를 사용하여 브라우저로 출력하는 간단한 예이다.
소스 코드 중 OpenTextFile 부분에서 두 번째 인자가 "1" 로 세팅되어 있다.

이것은 파일을 읽는 경우이므로 읽기 전용인 1로 세팅하는 것이다. 만일 이 인자를 읽고 쓰기 모드인
8로 세팅하게 되면 에러가 발생할 것이다. 이유는 몇몇 속성과 메소들은 읽기 전용 모드에서만 동작하기
때문이다.


TextStream 의 속성 중에 하나인 AtEndOfStream 은 파일의 끝에 이르면 true를, 파일의 끝에 이르지
못했으면 false 를 리턴하게 되므로, DoWhile 문을 사용하여 파일의 끝을 만날 때까지 출력문을
수행한다.


ReadLine 메소드 다음에 나오는 <br /> 태그는 문장을 출력할 때 한 줄씩 나누어 출력하는 역할을 한다.
DoWhile 문장을 다음과 같이 코딩해도 같은 결과를 보여준다.


 

content =objFile.readall
str =replace(content, char(13) & chr(10), "<br />")
Response.write str

 

 

<%@Language="VBScript" CODEPAGE="65001" %>
<% Response.CharSet="utf-8"
   Session.codepage="65001"
   Response.codepage="65001"
   Response.ContentType="text/html;charset=utf-8"
%>
<html lang="ko">
<head>
<title>macaronics</title>
   <meta http-equiv="content-type" content="text/html"; charset="utf-8" >
   <meta http-equiv="X-UA-Compatible" content="IE=edge">
   <meta name="viewport" content="width=device-width, initial-scale=1">
   <!-- 위 3개의 메타 태그는 *반드시* head 태그의 처음에 와야합니다; 어떤 다른 콘텐츠들은 반드시 이 태그들 *다음에* 와야 합니다 -->
   <title>macaronics</title>
   <!-- 부트스트랩 -->
   <!-- 합쳐지고 최소화된 최신 CSS -->
   <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.2/css/bootstrap.min.css">
   <!-- 부가적인 테마 -->
   <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.2/css/bootstrap-theme.min.css">
   <!-- 합쳐지고 최소화된 최신 자바스크립트 -->
   <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.2/js/bootstrap.min.js"></script>
   <!-- IE8 에서 HTML5 요소와 미디어 쿼리를 위한 HTML5 shim 와 Respond.js -->
   <!-- WARNING: Respond.js 는 당신이 file:// 을 통해 페이지를 볼 때는 동작하지 않습니다. -->
   <!--[if lt IE 9]>
     <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
     <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
   <![endif]-->
</head>
<body>

<%

   ' imode =1 |2 |8 (1:read, 2:write, 3:append  default 1)
   ' create = true | false (true인 경우 파일이 없으면 생성한다.)
   ' format =default ascii |  -1 (unicode)

   imode =1
   create=false


   Set fs =Server.CreateObject("Scripting.FileSystemObject")
   Set objFile=fs.OpenTextFile("C:\inetpub\wwwroot\asp-shoppingMall\ex\test.txt", 1, -1)

%>

<h2>텍스트파일 읽기 예제</h2>
text.txt 파일의 내용 <hr />


<%

Do while objFile.AtEndOfStream  <> true
 Response.write objFile.ReadLine & "<br />"
loop

%>



</body>
</html>

 

한글 깨짐이 나타날 경우 txt 파일을 euc-kr  로 변경 하면 된다.


 

출력 =>

텍스트파일 읽기 예제

text.txt 파일의 내용


이젠 울지 않을게 너를 믿으며 편히 있을게 나를 버린 사람도 용서할게 그리고 노력할게 너를 사랑하도록

*그동안 너를 피한건 나의 아픔들 때문에 너를 보면 늘 그를 생각했었고 사실 자신도 없었어

다른 사람을 만나 사랑 한다는게 두려웠던 거야 **너를 행복하게 해줄게 힘들어

하는 나를 더욱 안아준 너를 고마워 하며 내가 살아있는 날까지 영원히 있을게 너의 곁에 많이 괜찮아졌어

너 때문에 이제 널 알것같아 좋은 사람이란걸 반복 * ** ** 영원히 있을게 너의 곁에
Read more at: http://lyrics.jetmute.com/viewlyrics.php?id=71809

 

 

 

 

클라이언트로부터 입력받은 데이터를 서버에 파일로 저장하거나 로그로 남길 때 혹은 웹애플리케이션에 대한 옵션 값을

저장할 때는 대부분 텍스트 파일을 생성해서 저장한다.  이 경우,  보통 CreateTextFile 메서드와 OpenTextFile 메서드 등을

사용해서 처리하게 된다. 이런 메서드를 사용할 경우 TextStream 객체가 리턴되고, TextStream 객체의 메서드와 프로퍼티를

이용하여 파일을 제어할 수 있다.

 

TextStream 객체의 메서드 

Close     -   파일 닫기

Read(i)  - 파일에서 i 개의 문자를 읽어온다.

ReadAll  - 전체 문자열을 읽어 온다.

ReadLine - 파일에서 한 줄씩 읽는다.

Skip(i) - 파일을 읽을 때 i 개의 문자를 무시한다.

SkipLine - 파일을 읽을 때 다음 줄을 무시한다.

Write  - 파일에 문자를 쓴다.

WriteLine  - 문자를 쓰고 새 줄 문자를 쓴다.

WriteBlankLines(i) - 파일에 i 개의 엔터 값(라인 문자) 을 쓴다.

 

프로퍼티

AtEndOfLine   -   파일 포인터가 파일 줄 끝에 있으면 True

AtEndOfStream  -  파일 포인터가 파일 끝에 있으면 True

Column - 파일에서 현재 문자의 열 번호 리턴

Line - 파일에서 현재 줄 번호 리턴,  시작은 1 

 

 

[4] 파일 쓰기

현재 존재하는 텍스트 파일을 OpenTextFile 메소드를 이용하여 연 다음 TextStream 객체의 메서드와 프로퍼티를 이용하여

파일에 데이터를 쓴다.

test.text 파일을 열어 데이터를 입력하고, OpenTextFile 메서드를 사용하여 파일을 연후, TextStream 메서드 중 WriteLine

메서드를 사용하여 파일에 내용을 추가하였다.

 

<%@Language="VBScript" CODEPAGE="65001" %>
<% Response.CharSet="utf-8"
   Session.codepage="65001"
   Response.codepage="65001"
   Response.ContentType="text/html;charset=utf-8"
%>
<html lang="ko">
<head>
<title>macaronics</title>
   <meta http-equiv="content-type" content="text/html"; charset="utf-8" >
   <meta http-equiv="X-UA-Compatible" content="IE=edge">
   <meta name="viewport" content="width=device-width, initial-scale=1">
   <!-- 위 3개의 메타 태그는 *반드시* head 태그의 처음에 와야합니다; 어떤 다른 콘텐츠들은 반드시 이 태그들 *다음에* 와야 합니다 -->
   <title>macaronics</title>
   <!-- 부트스트랩 -->
   <!-- 합쳐지고 최소화된 최신 CSS -->
   <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.2/css/bootstrap.min.css">
   <!-- 부가적인 테마 -->
   <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.2/css/bootstrap-theme.min.css">
   <!-- 합쳐지고 최소화된 최신 자바스크립트 -->
   <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.2/js/bootstrap.min.js"></script>
   <!-- IE8 에서 HTML5 요소와 미디어 쿼리를 위한 HTML5 shim 와 Respond.js -->
   <!-- WARNING: Respond.js 는 당신이 file:// 을 통해 페이지를 볼 때는 동작하지 않습니다. -->
   <!--[if lt IE 9]>
     <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
     <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
   <![endif]-->

</head>
<body>

<%
  Set fs =Server.CreateObject("Scripting.FileSystemObject")
  Set objFile =fs.OpenTextFile("C:\inetpub\wwwroot\asp-shoppingMall\ex\test2.txt", 8, true)
%>
<h2>FSO 텍스트 파일에 쓰기를 완료하였습니다.</h2>


<%

   objFile.WriteLine("이 텍스트 파일 작성 테스트이다.")
   objFile.WriteLine("이 텍스트 파일 OpenTextFile 메소드 사용하였다.")
   objFile.WriteLine("성공적으로 글쓰기가 완료되었습니다.")
   objFile.close

%>


</body>
</html>

 

출력 test2.txt 파일 내용

이 텍스트 파일 작성 테스트이다.
이 텍스트 파일 OpenTextFile 메소드 사용하였다.
성공적으로 글쓰기가 완료되었습니다.
이 텍스트 파일 작성 테스트이다.
이 텍스트 파일 OpenTextFile 메소드 사용하였다.
성공적으로 글쓰기가 완료되었습니다.

 

 

 

[5] 디렉토리 정보 얻기 (Folder 객체)

Folder 객체를 생성하여 이 디렉토리에 대한 정보를 생성하고, 이 디렉토리에 대한 정보를 SubFolders 콜렉션을 이용하여 구한다.

 

<%@Language="VBScript" CODEPAGE="65001" %>
<% Response.CharSet="utf-8"
   Session.codepage="65001"
   Response.codepage="65001"
   Response.ContentType="text/html;charset=utf-8"
%>
<html lang="ko">
<head>
<title>macaronics</title>
   <meta http-equiv="content-type" content="text/html"; charset="utf-8" >
   <meta http-equiv="X-UA-Compatible" content="IE=edge">
   <meta name="viewport" content="width=device-width, initial-scale=1">
   <!-- 위 3개의 메타 태그는 *반드시* head 태그의 처음에 와야합니다; 어떤 다른 콘텐츠들은 반드시 이 태그들 *다음에* 와야 합니다 -->
   <title>macaronics</title>
   <!-- 부트스트랩 -->
   <!-- 합쳐지고 최소화된 최신 CSS -->
   <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.2/css/bootstrap.min.css">
   <!-- 부가적인 테마 -->
   <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.2/css/bootstrap-theme.min.css">
   <!-- 합쳐지고 최소화된 최신 자바스크립트 -->
   <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.2/js/bootstrap.min.js"></script>
   <!-- IE8 에서 HTML5 요소와 미디어 쿼리를 위한 HTML5 shim 와 Respond.js -->
   <!-- WARNING: Respond.js 는 당신이 file:// 을 통해 페이지를 볼 때는 동작하지 않습니다. -->
   <!--[if lt IE 9]>
     <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
     <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
   <![endif]-->

</head>
<body>

<h2>Folder 객체를 이용한 디렉토리 정보</h2>

<%
   Dim strPathInfo, strPhysicalPath
   strPathInfo=Request.ServerVariables("PATH_INFO")
   strPhysicalPath=Server.MapPath(strPathInfo)
   Dim objFS, objFile
   Set objFS =CreateObject("Scripting.FileSystemObject")

%>

<%
  set objFile =objFS.GetFile(strPhysicalPath)
  set objFolder=objFile.ParentFolder
  Set fc=objFolder.SubFolders
%>

현재 디렉토리  :  <%= objFile.ParentFolder%> <br />
<ul>

<%  For Each fl in fc %>
<li>
   하위 디렉토리 : \<%=fl.name %>
</li>
<% Next %>
</ul>





</body>
</html>

 

테스트 폴더를 sub , sub2 폴더를 생성한다.

 

출력 =>

Folder 객체를 이용한 디렉토리 정보

현재 디렉토리 : C:\inetpub\wwwroot\asp-shoppingMall\braverokmc\chapter7 

  • 하위 디렉토리 : \sub
  • 하위 디렉토리 : \sub2

 

 

 

 

[6] 드라이브 정보 얻기(Drive 객체 )

Drive 객체를 사용하여 드라이브 리스트 정보(볼륨명,  사용 가능한 공간, 타입 등) 를 얻을 수 있다.  현재 FileSystemObject 객체에서는

드라이브에 대한 정보를 가져올 수는 있지만, 드라이브를 만들거나 삭제하는 기능은 지원하지 않는다.

 

- 예제

다음은 C 드라이브의 잔여 용량 정보를 출력하기 위해 GetDrive 메서드를 사용하였다.

C 드라이브의 핸들 값을 가지고 있는 Cdrive 를 freespace 라는 프로퍼티를 사용하여 남은 용량을 출력한다.

 

<!--#include virtual=./braverokmc/include/header.asp  -->
</head>
<body>
<%
     Set fs =Server.CreateObject("Scripting.FileSystemObject")
     Set Cdrive=fs.GetDrive("c:")

%>

<h2>드라이브 정보 얻기 1</h2>
<hr />

<h3>C 드라이브의 남은 공간 : <%= Cdrive.freespace %> 바이트</h3>


</body>
</html>

 

 

출력 =>

 

드라이브 정보 얻기 1

C 드라이브의 남은 공간 : 226413387776 바이트

 

 

 

 

출처 : 

ASP 쇼핑몰 제작 프로젝트따라하기

OWL 연구소 지음 

소스 : https://github.com/braverokmc79/asp-shoppingMall

 

 

 

 

 

 

 

 

 

 

 

 

about author

PHRASE

Level 60  라이트

무수한 사람들 가운데는 나와 뜻을 같이할 사람이 한 둘은 있을 것이다. 그것으로 충분하다. 공기를 호흡하는 데는 들 창문 하나로도 족하다. -로망롤랑

댓글 ( 0)

댓글 남기기

작성