使用 fso 修改文件特定内容的函数
functionFsoChange (nama file, target, string)
DimoBjfso, objcountfile, filetempdata
SetObjfso = server.CreateObject ("Scripting.FilesystemObject")
Setobjcountfile = objfso.opentextFile (server.mappath (nama file), 1, true)
FiletempData = objcountfile.readall
objcountfile.close
FiletempData = ganti (filetempdata, target, string)
Setobjcountfile = objfso.createTextFile (server.mappath (nama file), true)
objcountfile.writeFiletempData
objcountfile.close
Setobjcountfile = tidak ada
Setobjfso = tidak ada
Fungsi endfungsi
使用 fso 读取文件内容的函数
functionFsofileread (nama file)
DimoBjfso, objcountfile, filetempdata
SetObjfso = server.CreateObject ("Scripting.FilesystemObject")
Setobjcountfile = objfso.opentextFile (server.mappath (nama file), 1, true)
Fsofileread = objcountfile.readall
objcountfile.close
Setobjcountfile = tidak ada
Setobjfso = tidak ada
Fungsi endfungsi
使用 fso 读取文件某一行的函数
functionfsolinedit (nama file, linenum)
iflinenum <1thenexitfunction
Dimfso, F, Temparray, Tempcnt
setFSO = server.CreateObject ("Scripting.FilesystemObject")
IFNOTFSO.FileExists (Server.Mappath (fileName)) kemudian ExtFunction
setf = fso.opentextFile (server.mappath (fileName), 1)
IFNOTF.ATENDOFSTREAMTHEN
tempcnt = f.readall
f.close
setf = tidak ada
temparray = split (tempcnt, chr (13) & chr (10))
iflinenum> ubound (temparray)+1then
fungsi keluar
kalau tidak
Fsolinedit = temparray (linenum-1)
endif
endif
fungsi endfungsi
使用 fso 写文件某一行的函数
FunctionfsolineWrite (nama file, linenum, linecontent)
iflinenum <1thenexitfunction
Dimfso, F, Temparray, Tempcnt
setFSO = server.CreateObject ("Scripting.FilesystemObject")
IFNOTFSO.FileExists (Server.Mappath (fileName)) kemudian ExtFunction
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
fungsi keluar
kalau tidak
Temparray (linenum-1) = Linecontent