FSO的几个应用函数

　　1，读取文件中所有字符的函数

Function FSOFileRead(filename)
filename = Server.mappath(filename)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.fileExists(filename) then exit function
Set cnrs = fso.OpenTextFile(filename,1)
While Not cnrs.AtEndOfStream
rsline = cnrs.ReadLine
rsline = server.HTMLEncode(rsline)
Response.Write(rsline & "<br>")
Wend
end Function

　　其实就是通过ReadLine（读取行），通过 While Not cnrs.AtEndOfStream 的条件进行循环读取行，来达到读取文件中所有字符。当然也可以使用ReadAll代替多个ReadLine，但主要缺点是将格式进行换行等问题需要再次解决。

　　引用函数 call FSOFileRead("xxx文件") 即可

　　2，读取文件中某一行中所有字符的函数

Function FSOlinedit(filename,lineNum)
if linenum < 1 then exit function
filename = Server.mappath(filename)
set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.fileExists(filename) then exit function
set f = fso.opentextfile(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
Response.Write(FSOlinedit)
end Function

　　这次即使用了readall方法，通过split函数将读取的内容以换行为条件，进行数组的定义，提取 lineNum-1（数组从0记数） 所对应的数组值即为 读取的该行值 ，也就是该行中所有的字符了。

　　函数的调用 call FSOlinedit("xxx文件",35) 表示显示xxx文件的第35行内容

　　3，读取文件中最后一行内容的函数

Function FSOlastline(filename)
filename = Server.mappath(filename)
set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.fileExists(filename) then exit function
set f = fso.opentextfile(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
Response.Write(FSOlastline)
end function

　　其实和读取某一行的函数类似，主要即是 数组的上界ubound值 就是最末的值 ，故为最后一行。函数的引用也很简单。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有