使用 FSO 修改文件特定内容的函数
functSoChange (nombre de archivo, destino, cadena)
Dimobjfso, objcountfile, filetempdata
Setobjfso = server.createObject ("scripting.filesystemObject")
SetobjCountFile = objfso.opentextfile (server.mappath (nombre de archivo), 1, verdadero)
Filetempdata = objCountFile.Readall
objcountfile.close
FiletEMPData = reemplazar (filetEMPDATA, target, cadena)
SetObJCountFile = objfso.createTextFile (server.mappath (nombre de archivo), verdadero)
objcountfile.WriteFiletempData
objcountfile.close
Setobjcountfile = nada
Setobjfso = nada
Función final
使用 FSO 读取文件内容的函数
FINTOFSOFILEREAD (nombre de archivo)
Dimobjfso, objcountfile, filetempdata
Setobjfso = server.createObject ("scripting.filesystemObject")
SetobjCountFile = objfso.opentextfile (server.mappath (nombre de archivo), 1, verdadero)
Fsofilread = objCountFile.Readall
objcountfile.close
Setobjcountfile = nada
Setobjfso = nada
Función final
使用 FSO 读取文件某一行的函数
functsolinedit (nombre de archivo, lino)
iflinenum <1thenexitfunction
Dimfso, F, Temparray, Tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.fileExists (server.mappath (nombre de archivo)) entoncesxitfunction
setf = fso.opentextfile (server.mappath (nombre de archivo), 1)
ifnotf.atendofStreamThen
tempcnt = f.Readall
f.clar
setf = nada
TEMPArray = Split (Tempcnt, CHR (13) y CHR (10))
iflinenum> Ubound (temparray)+1
extinción
demás
FSOLINEDIT = TEMPARRAY (LINENUM-1)
endif
endif
Función final
使用 FSO 写文件某一行的函数
FunctionFsolineWrite (nombre de archivo, lino, lineno)
iflinenum <1thenexitfunction
Dimfso, F, Temparray, Tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.fileExists (server.mappath (nombre de archivo)) entoncesxitfunction
setf = fso.opentextfile (server.mappath (nombre de archivo), 1)
ifnotf.atendofStreamThen
tempcnt = f.Readall
f.clar
TEMPArray = Split (Tempcnt, CHR (13) y CHR (10))
iflinenum> Ubound (temparray)+1
extinción
demás
TEMPARRAY (Linenum-1) = Linecontent