작업으로 인해 일괄적으로 코드를 수정해야 하는 작은 작업입니다. 현재 처리할 수 있는 파일 형식을 알려 드리겠습니다. 특정 형식은 .asp .inc .htm .html로 수정할 수 있습니다.
프로그램에서 구현하는기능
: 소스 디렉터리에서 파일 형식 변경 파일을 일괄 수정한 후 대상 디렉터리에 저장하고 약간의 수정으로 많은 작업을 수행할 수 있습니다!
다른 것은 말할 것도 없고 모두 코드에 명확하게 기록되어 있습니다.
<%
Server.ScriptTimeOut = 500 '스크립트 시간 초과
' // +------------------------- -- ---------------------+
'// | 일괄 수정 기능 |
'// | --------------------------------- ------------- |
'// 속성: 소스 파일 디렉토리로부터의 경로_대상 파일 작업 디렉토리까지 |
'// | --------------------------------- ------------- |
'// | 반환 값: 없음 |
'// | --------------------------------- ------------- |
'// | 프로그램 흐름:... |
'// | --------------------------------- ------------- |
'// | 작성자: WYC; 작성 시간: 2004-03-08;
'// +---------------------------------- --- -------------+
하위 미드파일(path_from, path_to)
list_from = path_from '현재 소스 작업 디렉터리를 저장합니다.
list_to = path_to '현재 대상 작업 디렉터리를 저장합니다.
fso = CreateObject("Scripting.FileSystemObject") 설정
Set Fold = fso.GetFolder(list_from) '폴더 개체 가져오기
Set fc = Fold.Files '파일 레코드 세트 가져오기
Set mm = Fold.SubFolders '디렉터리 레코드 세트 가져오기
각 f2(mm)에 대해
set objfile = server.createobject("scripting.filesystemobject")
objfile.CreateFolder(path_to & "" & f2.name) '디렉토리 생성
midfile path_from & "" & f2.name, path_to & "" & f2.name '재귀 호출
response.write path_to & "" & f2.name & " 완료!<br>"
다음
fc의 각 f1에 대해
file_from = list_from & "" & f1.name '파일 주소 생성(소스)
file_to = list_to & "" & f1.name '파일 주소 생성(to)
fileExt = lcase(right(f1.name,4)) '파일 형식을 가져옵니다.
fileExt=".asp" 또는 fileExt=".inc" 또는 fileExt=".htm" 또는 fileExt="html"이면 '특정 유형은 직접 수정하고 추가할 수 있습니다.
set objfile = server.createobject("scripting.filesystemobject") '서버 구성 요소 정의(소스 파일 읽기)
설정 = objfile.opentextfile(file_from, 1, false, false)
content = out.readall '데이터 읽기
out.close
'// +------------------------------- --- --------+
'// | 파일 내용 처리 모듈(주로 기타 파일 작업) |
regEx = 새 RegExp 설정
regEx.Pattern = "(>s*n)"
regEx.Global = true '모든 일치 모드 설정
content = regEx.Replace(content, ">") '캐리지 리턴 문자 바꾸기
content = 바꾸기(content, " ", "") '탭 바꾸기
'// +---------------------------------- --- -----+
set objfile = server.createobject("scripting.filesystemobject") '서버 구성 요소 정의(대상 파일에 쓰기)
설정 출력 = objfile.createtextfile(file_to,TRUE,FALSE)
outt.write(content) '데이터 쓰기
밖으로.닫다
else '그렇지 않으면 파일을 직접 복사합니다.
fso = CreateObject("Scripting.FileSystemObject") 설정
fso.CopyFile file_from, file_to
종료 조건
다음
End Sub
midfile Server.mappath("temp/aaa"), Server.mappath("temp/bbb") '샘플 소스 디렉터리 temp/aaa를 호출하여 처리 후 temp/bbb에 저장합니다.
'원본 디렉터리 대상 디렉터리(기존 디렉터리여야 함)
%>
진심으로 당신의 것입니다(다른 산의 돌)