FSO هو عنصر تحكم لعمليات الملفات في Microsoft ASP. لذلك ، سيشاركك محرر القناة الجديدة الخاطئة في تحليل مفصل لرمز FSO.
الوظائف التي تعدل المحتوى الخاص بالملف باستخدام FSO
FunctionFSoChange (اسم الملف ، الهدف ، السلسلة)
Dimobjfso ، objcountfile ، fileTempdata
setobjfso = server.createBject ("scripting.filesystemObject")
setObjCountFile = objfso.opentextFile (server.mappath (اسم الملف) ، 1 ، صحيح)
fileTempdata = objcountfile.readall
objcountfile.close
FileTempdata = استبدال (FileTempdata ، الهدف ، السلسلة)
setObjCountFile = objfso.createTextFile (server.mappath (filename) ، true)
objcountfile.writefiletempdata
objcountfile.close
setObjCountFile = لا شيء
setobjfso = لا شيء
الوظيفية
الوظائف التي تستخدم FSO لقراءة محتوى الملف
FunctionFsoFileread (اسم الملف)
Dimobjfso ، objcountfile ، fileTempdata
setobjfso = server.createBject ("scripting.filesystemObject")
setObjCountFile = objfso.opentextFile (server.mappath (اسم الملف) ، 1 ، صحيح)
fsofileread = objcountfile.readall
objcountfile.close
setObjCountFile = لا شيء
setobjfso = لا شيء
الوظيفية
الوظائف التي تستخدم FSO لقراءة سطر ملف
FunctionFsolinedIt (اسم الملف ، الكتان)
iflinenum
Dimfso ، F ، Temparray ، Tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.filexists (server.mappath (filename)) thenexitfunction
setf = fso.opentextFile (server.mappath (filename) ، 1)
ifnotf.atendofstreamthen
tempcnt = f.readall
F.Close
setf = لا شيء
قالب = انقسام (tempcnt ، chr (13) و CHR (10))
iflinenum> ubund (temparray)+1then
exitfunction
آخر
fsolinedit = temparray (الكتان 1)
Endif
Endif
الوظيفية
الوظائف التي تستخدم FSO لكتابة سطر معين من الملف
FunctionFsolineWrite (اسم الملف ، الكتان ، linecontent)
iflinenum
Dimfso ، F ، Temparray ، Tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.filexists (server.mappath (filename)) thenexitfunction
setf = fso.opentextFile (server.mappath (filename) ، 1)
ifnotf.atendofstreamthen
tempcnt = f.readall
F.Close
قالب = انقسام (tempcnt ، chr (13) و CHR (10))
iflinenum> ubund (temparray)+1then
exitfunction
آخر
قالب (الكتان -1) = linecontent
Endif
Tempcnt = Join (Temparray ، CHR (13) & CHR (10))
setf = fso.createTextFile (server.mappath (اسم الملف) ، صحيح)
F.Writetempcnt
Endif
F.Close
setf = لا شيء
الوظيفية
وظائف لإضافة خطوط جديدة من ملف باستخدام FSO
FunctionFsoappline (اسم الملف ، linecontent)
Dimfso ، و
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.filexists (server.mappath (filename)) thenexitfunction
setf = fso.opentextFile (server.mappath (filename) ، 8،1)
F.Writechr (13) و CHR (10) و linecontent
F.Close
setf = لا شيء
الوظيفية
الوظائف التي تقرأ السطر الأخير من الملف
FunctionFsolastline (اسم الملف)
Dimfso ، F ، Temparray ، Tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.filexists (server.mappath (filename)) thenexitfunction
setf = fso.opentextFile (server.mappath (filename) ، 1)
ifnotf.atendofstreamthen
tempcnt = f.readall
F.Close
setf = لا شيء
قالب = انقسام (tempcnt ، chr (13) و CHR (10))
fsolastline = temparray (Ubund (Temparray))
Endif
الوظيفية
يستبدل FSO حرف الملف المحدد
رمز البرنامج:
'FSO يحل محل حرف الملف المحدد
FunctionFsolineEdit (اسم الملف ، الهدف ، السلسلة)
Dimobjfso ، objcountfile ، fileTempdata
setobjfso = server.createBject ("scripting.filesystemObject")
setObjCountFile = objfso.opentextFile (server.mappath (اسم الملف) ، 1 ، صحيح)
fileTempdata = objcountfile.readall
objcountfile.close
FileTempdata = استبدال (FileTempdata ، الهدف ، السلسلة)
setObjCountFile = objfso.createTextFile (server.mappath (filename) ، true)
objcountfile.writefiletempdata
objcountfile.close
setObjCountFile = لا شيء
setobjfso = لا شيء
الوظيفية
'Response.writefsolineedit ("test.txt" ، "World" ، "غدا هو يوم جيد للذهاب")
حذف الملفات
رمز البرنامج:
حذف الملف
FunctionDelfile (اسم الملف)
iffilename "" ثم
setfso = server.createObject ("scripting.filesystemObject")
iffso.filexists (اسم الملف) ثم
fso.deletefilefilename
Endif
setfso = لا شيء
Endif
الوظيفية
تحديد ما إذا كان الملف موجودًا
رمز البرنامج:
فقط حدد ما إذا كان الملف موجودًا
FunctionReportFilestatus (Filespec)
Dimfso ، MSG
setfso = createObject ("scripting.filesystemObject")
إذا (fso.filexists (filespec)) ثم
msg = filespec و "موجود."
آخر
msg = fileSpec & "لا يفقد."
Endif
ReportFilestatus = msg
الوظيفية
الوظائف التي تعدل المحتوى الخاص بالملف باستخدام FSO
رمز البرنامج:
استخدم FSO لتعديل وظائف المحتوى الخاصة بالملف
FunctionFSoChange (اسم الملف ، الهدف ، السلسلة)
Dimobjfso ، objcountfile ، fileTempdata
setobjfso = server.createBject ("scripting.filesystemObject")
setObjCountFile = objfso.opentextFile (server.mappath (اسم الملف) ، 1 ، صحيح)
fileTempdata = objcountfile.readall
objcountfile.close
FileTempdata = استبدال (FileTempdata ، الهدف ، السلسلة)
setObjCountFile = objfso.createTextFile (server.mappath (filename) ، true)
objcountfile.writefiletempdata
objcountfile.close
setObjCountFile = لا شيء
setobjfso = لا شيء
الوظيفية
الوظائف التي تستخدم FSO لكتابة سطر معين من الملف
رمز البرنامج:
استخدم FSO لكتابة وظيفة تحتوي على سطر معين من الملف
FunctionFsolineWrite (اسم الملف ، الكتان ، linecontent)
iflinenum
Dimfso ، F ، Temparray ، Tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.filexists (server.mappath (filename)) thenexitfunction
setf = fso.opentextFile (server.mappath (filename) ، 1)
ifnotf.atendofstreamthen
tempcnt = f.readall
F.Close
temparray = split (tempcnt ، chr (13) & chr (10))
iflinenum> ubound (temparray)+1then
exitfunction
آخر
قالب (الكتان -1) = linecontent
Endif
Tempcnt = Join (Temparray ، CHR (13) & CHR (10))
setf = fso.createTextFile (server.mappath (اسم الملف) ، صحيح)
F.Writetempcnt
Endif
F.Close
setf = لا شيء
الوظيفية
البرنامج الذي ينشئ دليلًا. إذا كانت هناك مستويات متعددة من الدلائل ، فقم بإنشاء مستوى واحد في وقت واحد.
رمز البرنامج:
البرنامج الذي ينشئ دليلًا. إذا كان هناك العديد من المستويات من الدلائل ، فإنه يخلقها مستوى واحد في وقت واحد.
وظيفة createdir (byvallocalpath)
onerrorresumenext
LocalPath = استبدال (LocalPath ، "/" ، "/")
setFileObject = server.createBject ("scripting.filesystemObject")
patharr = split (localpath ، "/")
path_level = ubound (patharr)
fori = 0topath_level
ifi = 0thenpathtmp = patharr (0) & "/" elsepathtmp = pathtmp & patharr (i) & "/"
CPATH = LEFT (PATHTMP ، LEN (PATHTMP) -1)
ifnotfileObject.folderexists (cpath) therfileObject.createfoldercpath
التالي
setFileObject = لا شيء
iferr.number0then
Createdir = false
err.clear
آخر
Createdir = صحيح
Endif
الوظيفية
فيما يلي بعض هذه الميزات incomon ولكن رائعة جدًا:
ميزات FSO التي نادراً ما يتم فهمها
GetSpeCialderMethod إرجاع مسار مجلد Windows معين: دليل تثبيت Windows ؛ دليل نظام Windows ؛ دليل Windows المؤقت fso.getspecialder ([0،1 ، or2])
يقوم GetTempnamemethod بإرجاع ملف أو اسم دليل تم إنشاؤه عشوائيًا ، والذي يتم استخدامه عند الحاجة إلى بيانات مؤقتة.
getabsolutepathnamemethod يعيد المسار المطلق إلى المجلد (على غرار server.mappath).
على سبيل المثال ، ستعيد fso.getabsolutepathname ("المنطقة") نتيجة مماثلة لما يلي: "C: mydocsmyfolderegion"
GetSextensionnamemethod يعيد امتداد الجزء الأخير من المسار
(على سبيل المثال: fso.getextensionName ("C: docsest.txt") ستعيد txt)
GetBasenameAndgetParentFolderMethods يعيد المجلد الأصل في الجزء الأخير من المسار
(على سبيل المثال: fso.getParentFolder ("C: docsmydocs") ستعيد "المستندات")
تقوم DriveSproperty بإرجاع مجموعة من جميع محركات الأقراص المتوفرة محليًا لبناء واجهات المستخدم التي تشبه متصفح الموارد.
عند استخدام الوظائف أعلاه ، من الأفضل إنشاء رمز لمعالجة الأخطاء. لأنه إذا لم تكن المعلمات المطلوبة موجودة ، فسيتم إنشاء معلومات مزعجة.
ما سبق هو تحليل مفصل لرمز FSO. أعتقد أنك تعلمت كل شيء. لمزيد من المحتوى ذي الصلة ، يرجى الاستمرار في الانتباه إلى قناة Wuxin Technology.