FSO操作文本的几个函数一

【2006年01月10日 20:02:12】　【阅读：次】　【字体：大中小默认】　【背景： #换背景

】

FSO操作文本的几个函数

使用FSO修改文件特定内容的函数

function  FSOchange(filename,Target,String)
Dim  objFSO,objCountFile,FiletempData
Set  objFSO  =  Server.CreateObject("Scripting.FileSystemObject")
Set  objCountFile  =  objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData  =  objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,String)
Set  objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
objCountFile.Write  FiletempData
objCountFile.Close
Set  objCountFile=Nothing
Set  objFSO  =  Nothing
End  Function

使用FSO读取文件内容的函数

function  FSOFileRead(filename)
Dim  objFSO,objCountFile,FiletempData
Set  objFSO  =  Server.CreateObject("Scripting.FileSystemObject")
Set  objCountFile  =  objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FSOFileRead  =  objCountFile.ReadAll
objCountFile.Close
Set  objCountFile=Nothing
Set  objFSO  =  Nothing
End  Function

使用FSO读取文件某一行的函数

function  FSOlinedit(filename,lineNum)
if  linenum  <  1  then  exit  function
dim  fso,f,temparray,tempcnt
set  fso  =  server.CreateObject("scripting.filesystemobject")
if  not  fso.fileExists(server.mappath(filename))  then  exit  function
set  f  =  fso.opentextfile(server.mappath(filename),1)
if  not  f.AtEndofStream  then
tempcnt  =  f.readall
f.close
set  f  =  nothing
temparray  =  split(tempcnt,chr(13)&chr(10))
if  lineNum>ubound(temparray)+1  then
    exit  function
else
    FSOlinedit  =  temparray(lineNum-1)
end  if
end  if
end  function

使用FSO写文件某一行的函数

function  FSOlinewrite(filename,lineNum,Linecontent)
if  linenum  <  1  then  exit  function
dim  fso,f,temparray,tempCnt
set  fso  =  server.CreateObject("scripting.filesystemobject")
if  not  fso.fileExists(server.mappath(filename))  then  exit  function
set  f  =  fso.opentextfile(server.mappath(filename),1)
if  not  f.AtEndofStream  then
tempcnt  =  f.readall
f.close
temparray  =  split(tempcnt,chr(13)&chr(10))
if  lineNum>ubound(temparray)+1  then
    exit  function
else
    temparray(lineNum-1)  =  lineContent
end  if
tempcnt  =  join(temparray,chr(13)&chr(10))
set  f  =  fso.createtextfile(server.mappath(filename),true)
f.write  tempcnt
end  if
f.close
set  f  =  nothing
end  function

使用FSO添加文件新行的函数

function  FSOappline(filename,Linecontent)
dim  fso,f
set  fso  =  server.CreateObject("scripting.filesystemobject")
if  not  fso.fileExists(server.mappath(filename))  then  exit  function
set  f  =  fso.opentextfile(server.mappath(filename),8,1)
f.write  chr(13)&chr(10)&Linecontent
f.close
set  f  =  nothing
end  function

读文件最后一行的函数

function  FSOlastline(filename)
dim  fso,f,temparray,tempcnt
set  fso  =  server.CreateObject("scripting.filesystemobject")
if  not  fso.fileExists(server.mappath(filename))  then  exit  function
set  f  =  fso.opentextfile(server.mappath(filename),1)
if  not  f.AtEndofStream  then
tempcnt  =  f.readall
f.close
set  f  =  nothing
temparray  =  split(tempcnt,chr(13)&chr(10))
    FSOlastline  =  temparray(ubound(temparray))
end  if
end  function

(『印像空间』　【本文来源：『转载』】　【作者：未知】　【录入：留印】)

点击查看

已有条评论

关键字：

搜索条件：