当前位置：主页 > 查看内容

用asp实现读取文件的最后一行的代码

发布时间：2021-05-25 00:00| 有 位朋友查看

简介：复制代码 代码如下: 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.ma……
复制代码 代码如下:

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

原文链接：https://m.jb51.net/article/21312.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：用asp实现的获取文件夹中文件的个数的代码 下一篇：没有了

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐