|
|
|
|
 |
|
채영이 / 2001-06-20 / 오후 10:42:51 / 203.255.3.190
조회수 : 133
|
| [질문] FSO의 사용에서....문제...
|
> 여러가지 파일을 조합하여 하나의 파일을 만들고자 합니다..
>
> 선택에 따라...다른 파일을 읽어서 하나의 htm파일을 만들어야 하기에....우선은 include는 힘들것 같습니다.....하나의 str변수에 이 파일(완성.asp라고 할때)의 html코딩을 담아 다른 파일로 보내줘야 하기때문에...if(...)then str = <!--#inclue file="부분1.htm"--> end if 라고 할수 없기 때문입니다.(이게 가능한가??)
>
> 그래서 생각한 것이...FSO인데요...이를 선택가지수로 루프문을 도는 안에서...선택조건에 따라 파일을 읽어 오게끔 하려구 하는데...이럴경우 CreateObject는 한번만 해주어야 하는지(루프문 밖에서)....그리고 FSO에서 파일을 열어 이를 담은 변수는 쓰고 나서 null을 시켜주는 예제가 없는데...이를 null로 하고 다시 다른 파일을 읽어야 하는지요...
>
> Set fs = Server.CreateObject("Scripting.FileSystem.Object")
>
> for i=0 to 선택가지수
> select case selec
> case 1
> Set objFile = fs.OpenTextFile("C:\MyTest\test1.txt",1)
> content = objFile.readall
> str += replace(content,chr(13)&chr(10),"<br>")
> case 2
> Set objFile = fs.OpenTextFile("C:\MyTest\test2.txt",1)
> content = objFile.readall
> str += replace(content,chr(13)&chr(10),"<br>")
> case 3
> Set objFile = fs.OpenTextFile("C:\MyTest\test2.txt",1)
> content = objFile.readall
> str += replace(content,chr(13)&chr(10),"<br>")
> end select
> Next
>
> 이렇게 쓰면 안될거 같은데....수정이나...다른 좋은 방법을 아시는 분 조언 부탁드립니다.
>
-----------------------------------------------------------
뭐 이렇게 하셔도 상관은 없습니다...
대신에 Scripting.FileSystem.Object이 아니고
Scripting.FileSystemObject라고 하셔야 되고...
str += replace(content,chr(13)&chr(10),"<br>")
이런 표현은 VB에서는 사용하지 못합니다.... C나 자바에서는 사용 가능하지만....
그리고 생성한 objFile 객체는 set objFile = Nothing 하는식으로 객체를 제거해 주셔도 되구요...
case 다음에 2와 3의 하는 역활이 같다면 case 2, 3이라고 적어 주셔도 됩니다.
그럼..... |
|
|
|