إنه شيء صغير يجب القيام به لتعديل التعليمات البرمجية على دفعات بسبب العمل، وسأشارك معك أنواع الملفات التي يمكن معالجتها حاليًا: .asp .inc .htm .html بنفسك
الوظائف التي ينفذها البرنامج: تغيير أنواع الملفات في الدليل المصدر بعد تعديل الملفات على دفعات، يتم حفظها في الدليل الوجهة ويمكن تحقيق الكثير من الأشياء بتعديلات طفيفة!
ناهيك عن أي شيء آخر، كل ذلك مكتوب بوضوح في الكود.
<%
'// +--------------------------------------------- --- --------------------------+
'// | اسم البرنامج: Stone Code Batch Modifier v1.01 |
'// |. سيتم التحقيق في حقوق الطبع والنشر الخاصة بـ Stones from Other Mountains بسبب الانتهاك! يرجى الإشارة إلى حقوق النشر عند إعادة الطباعة :) |
'// |. ---------------------------------------------. -------------------------- |
'// |. النظام: win2000؛ المحرر: أداة المسافة البادئة: علامة التبويب؛
'// |. ---------------------------------------------. -------------------------- |
'// |.المنشئ: WYC؛
'// | الكاتب: WYC؛
'// +--------------------------------------------- --- --------------------------------+
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) 'إنشاء دليل
الملف الأوسط 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") 'تحديد مكون الخادم (اقرأ الملف المصدر)
setout = objfile.opentextfile(file_from, 1, false, false)
المحتوى = out.readall 'قراءة البيانات
out. Close
'// +------------------------------------------ --- --------+
'// |.وحدة معالجة محتوى الملف (البعض الآخر عبارة عن عمليات ملفات بشكل أساسي) |
قم بتعيين regEx = New RegExp
regEx.Pattern = "(>s*n)"
regEx.Global = true 'قم بتعيين كافة الأوضاع المطابقة
content = regEx.Replace(content, ">") 'استبدل حرف الإرجاع
content = Replace(content, " ", "") 'علامة التبويب استبدال
'// +--------------------------------------------- --- -----+
set objfile = server.createobject("scripting.filesystemobject") 'تحديد مكون الخادم (الكتابة إلى الملف الهدف)
تعيين outt = objfile.createtextfile(file_to,TRUE,FALSE)
outt.write(content) "اكتب البيانات."
outt. Close
وإلا انسخ الملف مباشرة
تعيين 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 بعد المعالجة
'الدليل الوجهة للدليل المصدر (يجب أن يكون دليلاً موجودًا)
%>
مع خالص التقدير لك (حجر من الجبال الأخرى)