FSO操作文本的几个函数二

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

】

获取一个文本的所有行数

Function  filenum(filename)
Dim  temparray
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
temparray  =  split(tempcnt,chr(13)&chr(10))
lineNum=ubound(temparray)
filenum  =lineNum
f.close
End  if
End  Function

动态include文件

利用FSO动态调用文件
Function  include(filename)
Dim  re,Content,FSO,F,aspStart,aspEnd
Set  FSO  =  CreateObject("Scripting.FileSystemObject")
Set  F  =  FSO.OpenTextFile(Server.MapPath(filename))
Content  =  F.ReadAll
F.Close
Set  =  Nothing
Set  FSO  =  Nothing
Set  re  =  New  RegExp
re.pattern  =  "s*="
aspEnd  =  1
aspStart  =  inStr(aspEnd,content,"<%")+2
Do  While  aspStart>aspEnd+1
Response.Write  Mid(content,aspEnd,aspStart-aspEnd-2)
aspEnd=inStr(aspStart,content,"%>")+2
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write  "))
aspStart=inStr(aspEnd,content,"<%")+2
Loop
Response.Write  Mid(content,aspEnd)
Set  re  =  Nothing
End  Function

删除文件

删除文件
Function  DelFile(Filename)
If  Filename  <>  ""  Then
Set  FSO  =  Server.CreateObject("Scripting.FileSystemObject")
If  FSO.FileExists(Filename)  Then
FSO.DeleteFile  Filename
End  If
Set  FSO  =  Nothing
End  If
End  Function

判断文件是否存在

判断文件是否存在
Function  ReportFileStatus(filespec)
Dim  FSO,msg
Set  FSO  =  CreateObject("Scripting.FileSystemObject")
If  (FSO.FileExists(filespec))  Then
msg  =  filespec  &  "  exists."
Else
msg  =  filespec  &  "  doesnt  exist."
End  If
ReportFileStatus  =  msg
End  Function

使用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写文件某一行的函数

使用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  =  jo&  #105;n(temparray,Chr(13)&Chr(10))
Set  f  =  FSO.cr&  #101;atetextfile(Server.MapPath(filename),true)
f.Write  tempcnt
End  If
f.Close
Set  f  =  Nothing
End  Function

FSO替换指定文件的字符

FSO替换指定文件的字符
Function  FSOLineEdit(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
Response.Write  FSOLineEdit("test.txt","世界","明天是一个好天去")

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

使用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

建立目录的程序，如果有多级目录，则一级一级的创建

建立目录的程序，如果有多级目录，则一级一级的创建
Function  CreateDIR(ByVal  LocalPath)
On  Error  Resume  Next
LocalPath  =  Replace(LocalPath,"","/")
Set  FileObject  =  Server.CreateObject("Scripting.FileSystemObject")
patharr  =  Split(LocalPath,"/")
path_level  =  UBound(patharr)
For  i  =  0  to  path_level
If  i=0  Then  pathtmp=patharr(0)  &  "/"  Else  pathtmp  =  pathtmp  &  patharr(i)  &  "/"
cpath  =  Left(pathtmp,Len(pathtmp)-1)
If  Not  FileObject.FolderExists(cpath)  Then  FileObject.CreateFolder  cpath
Next
Set  FileObject  =  Nothing
If  Err.Number  <>  0  Then
CreateDIR  =  False
Err.Clear
Else
CreateDIR  =  True
End  If
End  Function

复制某目录下所有文件至指定目录
Set  fso=CreateObject("Scripting.FileSystemObject")
Set  Cur_Folder  =  fso.getfolder(Server.MapPath(SourcePath))  源文件夹
Distination_Path="c:\test"
Set  sub_files  =  Cur_Folder.files
for  each  each_file  in  sub_files
sub_file_path=each_file.name
fso.CopyFile  Server.MapPath(SourcePath)&"/"&sub_file_path,Distination_Path&"/"&sub_file_path,True
Next

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

点击查看

已有条评论

关键字：

搜索条件：