使用 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 <1thenexitFunction
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 = ничего
Temparray = split (tempcnt, chr (13) и chr (10))
iflinenum> Ubound (Temparray)+1then
Выходная функция
еще
Fsolinedit = temparray (Linenum-1)
эндиф
эндиф
конечная функция
使用 FSO 写文件某一行的函数
FunctionFsolineWrite (имя файла, льняная точка, LineContent)
iflinenum <1thenexitFunction
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
Выходная функция
еще
Temparray (LENENUM-1) = LineContent