بالنسبة لمصممي مواقع الويب ، من المحتم معالجة مجموعات كبيرة من الملفات بشكل متكرر ، وخاصة الصور وبعض الملفات النصية ، والتي تكون أكثر تواتراً. نظرًا للعدد الكبير من الملفات على موقع الويب ، فإن تسمية الملفات من نفس النوع غالبًا ما تستخدم أرقامًا تدريجية مباشرة مع بعض الأسماء كملفات. على سبيل المثال ، غالبًا ما يستخدم تسمية ملفات الصور الشائعة 1001.jpg و 1002.jpg. هذه الميزة هي أن أسماء الملفات لن يتم تكرارها وسهلة الإدارة. هنا ، نقدم على وجه التحديد طريقة بسيطة وسهلة لاستخدام ASP لاستخدام إعادة تسمية الدُفعات ببساطة لإعادة تسمية جميع الملفات. بالطبع ، يتم زيادة أسماء الملفات بعد إعادة تسمية وفقًا لاحتياجات مصمم الموقع.
نستخدم ASP لتنفيذ الوظائف أعلاه. تجدر الإشارة إلى أنه نظرًا لتصميم عمليات الملفات واستخدام كائنات ملفات الملفات ، يجب تنفيذ هذه الوظيفة على موقع ويب مع أذونات تشغيل الملفات. بشكل عام ، الاهتمام الافتراضي هو أنه بالنظر إلى متطلبات الأمان ، قد لا يتم إعطاء الملف أذونات ، وهو ما نحتاج إلى الانتباه إليه أولاً ؛ في البرنامج التالي ، سنقوم بتشغيل جميع الملفات في المجلد المحدد Strfromdir. طالما أنه ملف في هذا المجلد ، بغض النظر عن نوع الملف ، سيقوم البرنامج بإعادة تسميته. بالطبع ، لن يتم تغيير نوع الملف. لن يتم حفظ الملفات بعد الاسم في المجلد الأصلي ، ولكن سيتم نقلها إلى المجلد الجديد StrTargetDir. لاحظ أننا نتحرك هنا ، وليس النسخ ، لذلك بعد العملية ، لن تكون جميع الملفات في المجلد الأصلي موجودة ؛ يستفيد البرنامج من مختلف السمات والميزات التي يوفرها كائن FileSystemObject ، والتنفيذ بسيط وواضح ، وقد يشعر الأصدقاء الذين يستخدمون لغات أخرى بعمق ؛ الآن ، دعونا نلقي نظرة على رمز تنفيذ الوظائف:
< ٪ language = vbscript ٪ >
< ٪ خيار صريح ٪ >
< ٪
"تقوم دفعة البرنامج التالية بإعادة تسمية أسماء الملفات في المجلد وتنقل جميع الملفات إلى مجلد جديد ؛
Response.write "< html >" & vbcrlf & "< head >" & vbcrlf
Response.write "< العنوان > اسم ملف الدُفعات تغيير </title >" & vbcrlf
استجابة. "</head>" & vbcrlf & "< body>" & vbcrlf
وصف متغير
قاتمة gbolgoprocedure
قاتم سترفومديرس المجلد
قاتمة المجلد strtargetdir'target
قاتمة objfs
قاتمة objrootfolder
قاتمة objfile
قاتمة سترفيليناميلين
قاتمة strprevfilename
امتداد ملف Dim Strfilext
قاتمة strfilenameCount
قاتمة strnewfilename
Dim StrealCount 'عدد الملفات التي تمت معالجتها
gbolgoprocedure = خطأ
إذا تم النقر على زر البدء ، فقم بإجراء المعالجة التالية
if (request.form ("gobutton")) = "ابدأ" ثم
حدد مجلد المصدر ومجلد الوجهة
strfromdir = "D: اختبار/"
StrTargetDir = "D:/test1/"
قم بتعيين عدد ملفات المعالجة على 0
strrealCount = 0
تعيين OBJFS = server.createBject ("scripting.filesystemObject")
تعيين objrootfolder = objfs.getfolder (strtargetdir)
"الإعدادات المحددة لاسم الملف ، تم تعيينها على 100001 هنا ، مما يشير إلى أن اسم الملف سيكون من 100001
"البدء ، زيادة تدريجيا ، يمكن ضبطها حسب الحاجة ؛
StrfilenameCount = 100001
لكل objfile في objrootfolder.files
بالنسبة لملفات محددة ، لا تتم معالجتها ويمكن تعيينها حسب الحاجة ؛
إذا كان objfile.name = "thumbs.db" ثم strfilenamecount = strfilenamecount - 1
strfilenamecount = strfilenamecount + 1
التالي
تعيين objrootfolder = objfs.getfolder (Strfromdir)
لكل objfile في objrootfolder.files
strfilenamelen = len (objfile.name)
إذا كان منتصف (objfile.name ، (strfilenamelen - 3) ، 1) = "." ثم
strfilext = right (objfile.name ، 4)
آخر
strfilext = right (objfile.name ، 5)
إنهاء إذا
strprevfilename = objfile.name
strnewfilename = strfilenamecount & strfilext
objfile.move strtargetdir & strnewfilename
Response.write "ملف المصدر:" & strfromdir & strprevfilename & "> نقله وتغييره إلى:
strfilenamecount = strfilenamecount + 1
strrealCount = strrealCount + 1
التالي
استجابة. write "< p >< b > المعالجة الكلية:" & (strrealcount) و "files </b>" & vbcrlf
تعيين objrootfolder = لا شيء
تعيين OBJFS = لا شيء
gbolgoprocedure = صحيح
إنهاء إذا
إذا gbolgoprocedure ثم
Response.write ("< p >< b > دفع الدُفعات الدُفعة وإعادة تسمية </b >") و vbcrlf
آخر
استجابة. write ("< center ><br> < method =" "post" "Action =" "FileNameConverter.asp" "id = form1 name =" "form1" ""> ") & vbcrlf
استجابة. write ("< إدخال type =" "إرسال" "value =" "بدء" "id =" "gobutton" "name =" "gobutton" ""> ")
Response.write ("</form>") & vbcrlf
استجابة. write ("< p >< b > انقر فوق الزر لتحريك الدُفعات وأعيد تسمية الملف </b ></center >")
إنهاء إذا
استجابة. "</body>" & vbcrlf & "</html>"
٪ >
ما سبق هو كل محتوى ASP ببساطة تنفيذ اسم الدُفعات إعادة تسمية جميع الملفات. محتوى أكثر إثارة هو في قناة تكنولوجيا Miaoxin.