เป็นสิ่งเล็กๆ ที่ต้องทำเพื่อแก้ไขโค้ดเป็นกลุ่มเนื่องจากการทำงาน ฉันจะแชร์ประเภทไฟล์ที่สามารถประมวลผลได้ในปัจจุบัน: .asp .inc .htm .html ตัวคุณเอง
. ฟังก์ชั่นที่โปรแกรมนำมาใช้: เปลี่ยนประเภทไฟล์ในไดเร็กทอรีต้นทางหลังจากแก้ไขไฟล์เป็นชุดแล้วไฟล์เหล่านั้นจะถูกบันทึกไว้ในไดเร็กทอรีปลายทางและสามารถทำสิ่งต่าง ๆ มากมายได้ด้วยการแก้ไขเล็กน้อย!
ไม่ต้องพูดถึงสิ่งอื่นใด ทั้งหมดนี้เขียนไว้อย่างชัดเจนในโค้ด
-
Server.ScriptTimeOut = 500 'สคริปต์หมดเวลา
' // +-------------------------------------- --- ---------------------------------------------------+
'// | ฟังก์ชันการแก้ไขแบทช์ |
'// |. --------------------------------------------------' -------------------------- |
'// |. คุณสมบัติ: path_from ไดเร็กทอรีไฟล์ต้นฉบับ path_to ไดเร็กทอรีการทำงานของไฟล์เป้าหมาย |
'// |. --------------------------------------------------' -------------------------- |
'// |. ค่าส่งคืน: ไม่มี |
'// |. --------------------------------------------------' -------------------------- |
'// |. การไหลของโปรแกรม:... |
'// |. --------------------------------------------------' -------------------------- |
'// |. ผู้เขียน: WYC;
'// +--------------------------------------------------' --- --------------------------+
ไฟล์ย่อยย่อย (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 เป็น มม
ตั้ง 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>"
ต่อไป
สำหรับแต่ละ f1 ใน fc
file_from = list_from & "" & f1.name 'สร้างที่อยู่ไฟล์ (แหล่งที่มา)
file_to = list_to & "" & f1.name 'สร้างที่อยู่ไฟล์ (ถึง)
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 = แทนที่ (เนื้อหา, " ", "") 'แทนที่แท็บ
'// +--------------------------------------------------' --- -----+
set objfile = server.createobject("scripting.filesystemobject") 'กำหนดส่วนประกอบเซิร์ฟเวอร์ (เขียนไปยังไฟล์เป้าหมาย)
ตั้งค่า outt = objfile.createtextfile (file_to, TRUE, FALSE)
outt.write(content) 'เขียนข้อมูล'
outt.ปิด
อย่างอื่น 'มิฉะนั้นให้คัดลอกไฟล์โดยตรง
ตั้งค่า fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile file_from, file_to
สิ้นสุดถ้า
ต่อไป
สิ้นสุด Sub
midfile Server.mappath("temp/aaa"), Server.mappath("temp/bbb") 'เรียกไดเร็กทอรีต้นทางตัวอย่าง temp/aaa แล้วบันทึกลงใน temp/bbb หลังการประมวลผล
'ไดเรกทอรีต้นทาง ไดเรกทอรีปลายทาง (ต้องเป็นไดเรกทอรีที่มีอยู่)
-
ขอแสดงความนับถือ (หินจากภูเขาอื่น)