이디플러스::컴퓨터 온라인 강의의 정석

Untitled Document 전시간에 이어서...

과제를 다시 한번 보죠..

과제) 회원정보를 아래와 같은 txt파일 형식으로 만들어서 ftp에 올리자.
과제) txt파일명은 생성날짜_시간.txt 형식이다

전시간에 파일생성 코드와 ftp에 자동접속하여 파일을 올리는 방법을 해봤습니다.

오늘은 그 두개를 합해보도록 하겠습니다..

일단 수정된 소스를 보도록하죠..

wsh_create.vbs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

dim db

Set Db = CreateObject("ADODB.CONNECTION")
Db.Open "Provider=SQLOLEDB.1;Password=pwd;User ID=sa;Initial Catalog=db;Data Source=localhost"

SQLstring = "SELECT id, name, jumin, date FROM member"

Set rs=CreateObject("ADODB.Recordset")
rs.Open SQLstring,db,1

filetmp = ""

do until rs.eof
filetmp = filetmp & "" & rs("id") & chr(13) & chr(10)
filetmp = filetmp & "" & rs("name") & chr(13) & chr(10)
filetmp = filetmp & "" & rs("jumin") & chr(13) & chr(10)
filetmp = filetmp & "" & rs("date") & chr(13) & chr(10)

rs.movenext
loop

rs.close : set rs = nothing
db.close : set db = nothing

myear = year(date())
mmonth = right("00"&month(date()),2)
mday = right("00"&day(date()),2)
mhour = right("00"&hour(time()),2)
mminute = right("00"&minute(time()),2)
msecond = right("00"&second(time()),2)

if filetmp <> "" then

Set fs = CreateObject("Scripting.FileSystemObject")

filename = myear & mmonth & mday & "_" & mhour & mminute & msecond & ".txt"
fs.CreateTextFile filename

Set objFile = fs.OpenTextFile(filename ,8)
objFile.writeLine(filetmp)
objFile.close

fs.CreateTextFile "ftp_log.txt"
Set objFile = fs.OpenTextFile("ftp_log.txt" ,8)

ftp_tmp = ftp_tmp & "open 211.222.212.61 1058"& chr(13) & chr(10)
ftp_tmp = ftp_tmp & "entrydev" & chr(13) & chr(10)
ftp_tmp = ftp_tmp & "pwdpwd" & chr(13) & chr(10)
ftp_tmp = ftp_tmp & "cd /sf-1/collection/index/" & chr(13) & chr(10)
ftp_tmp = ftp_tmp & "bin" & chr(13)
ftp_tmp = ftp_tmp & "put " & filename& chr(13) & chr(10)
ftp_tmp = ftp_tmp & "close" & chr(13) & chr(10)
ftp_tmp = ftp_tmp & "bye" & chr(13) & chr(10)
ftp_tmp = ftp_tmp & "exit" & chr(13) & chr(10) objFile.writeLine(ftp_tmp)
objFile.close

end if

우선 wsh규칙에 바추어.. "<%" 과 "%>" 을 모두 제거한후 server.createobject를 모두 createobject로 바까주십시요.

1~24 : 디비를 접속하여 쿼리를 날리고 filetmp 변수에 요청한 형식데로 입력하는부분이지요. 리스트 많이 해보셨죠?ㅋ

27~32 : 파일명 생성을 위해서 날짜와 시간을 뽑아 내는 부분입니다..
27~32 : right("00" & xxxx , 2) 이부분이 모냐구요?
27~32 : day(date()) 를 찍어보시면 1~9일까지는 자리수가 한자리가 나오죠. 이걸 두자리로 바꾸기 위한 것이죠 ㅎㅎ
27~32 : 01, 02, 03 이렇게 한자릿수 일자 앞에 0을 붙이는 코드입니다

37~40 : 파일을 생성하는 소스입니다.

42~44 : 위에서 생성된 파일을 열어서(42줄) filetmp변수에 있는 내용을 입력(43줄)하는 부분입니다.

46~47 : FTP스크립트를 파일 생성

49~57 : 위에서 생성된 파일을 열어서 해당 내용을 입력합니다.

위와 같죠.. 위wsh_create.vbs파일을 실행시키면 두가지 파일이 생성되는것을 보실수 있습니다.

과제에서 요청한 txt문서하나와 생성된 파일을 올릴수 있는 ftp스크립트 파일 이렇게 두가지죠..

그럼 위에 과제 마무리를 위해 윈도우 스케줄러에 등록만 하면되곘죠...

두개의 파일을 따로따로 시간차이를 줘서 등록해두 되지만.. 혹시모를 일을 생각해서...

제가 귀찮은건 딱 질색이라 ㅠ.ㅠ

batch파일을 만들어 보도록 하죠... .bat 아시죠?

file_up.bat

cscript scd_create.vbs

ftp -s:ftp_log.txt

이렇게 만드세요...

그리고 file_up.bat를 윈도우 스케줄러에 시간에 마추어 등록하면.. 끝입니다. ^^;;;


Guest

-->	[WSH 4장] 자동 파일생성부터 ftp자동업로..			2005/01/01	10141

<<광고>>