FSO является элементом управления операциями файлов в Microsoft ASP. Таким образом, редактор неправильного нового канала поделится с вами подробным анализом кода FSO.
Функции, которые изменяют контент для конкретного файла с использованием FSO
functionFsoChange (имя файла, цель, строка)
Dimobjfso, objcountfile, filetempdata
SetObjfso = server.createObject ("scripting.filesystemobject")
SetObjcountfile = objfso.opentextfile (server.mappath (имя файла), 1, true)
FileTempData = objcountfile.readall
objcountfile.close
FileTempData = reply (fileTempData, Target, String)
SetObjcountfile = objfso.createTextFile (server.mappath (имя файла), true)
objcountfile.writefiletempdata
objcountfile.close
Setobjcountfile = ничего
Setobjfso = ничего
Конечная функция
Функции, которые используют FSO для чтения содержимого файла
functionFsOfileRead (имя файла)
Dimobjfso, objcountfile, filetempdata
SetObjfso = server.createObject ("scripting.filesystemobject")
SetObjcountfile = objfso.opentextfile (server.mappath (имя файла), 1, true)
FsofileRead = objcountfile.readall
objcountfile.close
Setobjcountfile = ничего
Setobjfso = ничего
Конечная функция
Функции, которые используют FSO для чтения строки файла
functionfsolinedit (имя файла, белье)
iflinenum
Dimfso, F, Temparray, Tempcnt
setfso = server.createObject ("scripting.filesystemobject")
ifnotfso.filexists (server.mappath (имя файла))
setf = fso.opentextfile (server.mappath (имя файла), 1)
ifnotf.atendofstreamthen
tempcnt = f.readall
F.Close
setf = ничего
Template = split (tempcnt, chr (13) и chr (10))
iflinenum> Ubund (Temparray)+1then
Выходная функция
еще
Fsolinedit = temparray (Linenum-1)
эндиф
эндиф
конечная функция
Функции, которые используют FSO для написания определенной строки файла
FunctionFsolineWrite (имя файла, льняная точка, LineContent)
iflinenum
Dimfso, F, Temparray, Tempcnt
setfso = server.createObject ("scripting.filesystemobject")
ifnotfso.filexists (server.mappath (имя файла))
setf = fso.opentextfile (server.mappath (имя файла), 1)
ifnotf.atendofstreamthen
tempcnt = f.readall
F.Close
Template = split (tempcnt, chr (13) и chr (10))
iflinenum> Ubund (Temparray)+1then
Выходная функция
еще
Шаблон (LENENUM-1) = LineContent
эндиф
tempcnt = join (temparray, chr (13) и chr (10))
setf = fso.createTextFile (server.mappath (имя файла), true)
f.writetempcnt
эндиф
F.Close
setf = ничего
конечная функция
Функции для добавления новых строк файла с помощью FSO
functionfsoAppline (имя файла, LineContent)
Dimfso, f
setfso = server.createObject ("scripting.filesystemobject")
ifnotfso.filexists (server.mappath (имя файла))
setf = fso.opentextfile (server.mappath (имя файла), 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 (имя файла))
setf = fso.opentextfile (server.mappath (имя файла), 1)
ifnotf.atendofstreamthen
tempcnt = f.readall
F.Close
setf = ничего
Template = split (tempcnt, chr (13) и chr (10))
Fsolastline = temparray (Ubund (Temparray))
эндиф
конечная функция
FSO заменяет символ указанного файла
Код программы:
'FSO заменяет символ указанного файла
Functionfsolineedit (имя файла, цель, строка)
Dimobjfso, objcountfile, filetempdata
SetObjfso = server.createObject ("scripting.filesystemobject")
SetObjcountfile = objfso.opentextfile (server.mappath (имя файла), 1, true)
FileTempData = objcountfile.readall
objcountfile.close
FileTempData = reply (fileTempData, Target, String)
SetObjcountfile = objfso.createTextFile (server.mappath (имя файла), true)
objcountfile.writefiletempdata
objcountfile.close
Setobjcountfile = ничего
Setobjfso = ничего
Конечная функция
'Response.writefsolineedit («test.txt», «World», «Завтра хороший день, чтобы пойти»)
Удалить файлы
Код программы:
'Удалить файл
FunctionDelfile (имя файла)
Iffilename "" Тогда
Setfso = server.createObject ("scripting.filesystemobject")
Iffso.fileexists (имя файла) тогда
Fso.deletefilefilename
Эндиф
Setfso = ничего
Эндиф
Конечная функция
Определить, существует ли файл
Код программы:
'Просто определите, существует ли файл
FunctionReportFilestatus (filePec)
Dimfso, MSG
Setfso = createObject ("scripting.filesystemobject")
If (fso.filexists (filepec)) тогда
msg = filepec & "существует".
Еще
msg = filepec & "intexist."
Эндиф
Reportfilestatus = msg
Конечная функция
Функции, которые изменяют контент для конкретного файла с использованием FSO
Код программы:
'Используйте FSO для изменения функций контента, специфичного для файлов
FunctionFsoChange (имя файла, цель, строка)
Dimobjfso, objcountfile, filetempdata
SetObjfso = server.createObject ("scripting.filesystemobject")
SetObjcountfile = objfso.opentextfile (server.mappath (имя файла), 1, true)
FileTempData = objcountfile.readall
objcountfile.close
FileTempData = reply (fileTempData, Target, String)
SetObjcountfile = objfso.createTextFile (server.mappath (имя файла), 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 (имя файла))
Setf = fso.opentextfile (server.mappath (имя файла), 1)
Ifnotf.atendofstreamthen
tempcnt = f.readall
F.Close
Temparray = split (tempcnt, chr (13) и chr (10))
Iflinenum> Ubound (Temparray)+1then
Выходная функция
Еще
Шаблон (LENENUM-1) = LineContent
Эндиф
tempcnt = join (temparray, chr (13) и chr (10))
Setf = fso.createTextFile (server.mappath (имя файла), true)
f.writetempcnt
Эндиф
F.Close
Setf = ничего
Конечная функция
Программа, которая создает каталог. Если есть несколько уровней каталогов, создайте один уровень за раз.
Код программы:
«Программа, которая создает каталог. Если есть несколько уровней каталогов, создает его по одному уровню за раз.
FunctionCreatedir (byvallocalpath)
OnerRorResumenext
Localpath = reply (localpath, "/", "/")
SetFileObject = server.createObject ("scripting.filesystemobject")
patharr = split (localpath, "/")
path_level = ubound (patharr)
Fori = 0topath_level
Ifi = 0thenpathtmp = patharr (0) & "/" elsepathtmp = pathtmp & patharr (i) & "/"
CPATH = LEAND (PATHTMP, LEN (PATHTMP) -1)
IfnotfileObject.folderexists (cpath) thenfileobject.createfoldercpath
Следующий
SetFileObject = ничего
Iferr.number0then
CenectiR = false
Err.clear
Еще
CenectiR = true
Эндиф
Конечная функция
Вот некоторые из этих несгоновок, но очень крутые функции:
Особенности FSO, которые редко понимаются
GetSpecialFolderMethod возвращает путь определенной папки Windows: каталог установки Windows; Windows System Directory; Windows Temporary Directory FSO.GetSpecialFolder ([0,1, OR2])
GetTempnameMethod возвращает случайно сгенерированное имя файла или каталога, которое используется, когда требуются временные данные.
Getabsolutepathnamemethod возвращает абсолютный путь к папке (аналогично Server.mappath).
Например, fso.getabsolutepathname («область») вернет результат, аналогичный следующему: «C: mydocsmyfoldereRegion»
Getextensionnamethod возвращает расширение последней части пути
(Например: fso.getextensionname ("c: docsest.txt") вернет txt)
GetBasenameAndgetParentFolderMethods возвращает родительскую папку последней части пути
(Например: fso.getParentFolder ("c: docsmydocs") вернет «документы»)
DrivesProperty возвращает коллекцию всех местных дисков для строительства пользовательских интерфейсов, похожих на ресурс.
При использовании вышеуказанных функций лучше всего создать код для обработки ошибок. Потому что, если требуемые параметры не существуют, будет создана неприятная информация.
Выше приведено подробный анализ кода FSO. Я считаю, что вы все это узнали. Для получения более связанного контента, пожалуйста, продолжайте обращать внимание на канал технологии Wuxin.