您的位置:首页 > 编程语言 > ASP

FSO读取文本文件 ASP函数

2020-03-01 23:40 561 查看

 

 

'[读取文本文件]
  '函数名:ReadTextFile
  '作 用:读取文本文件
  '参 数:Fname ---- 文本文件名称(包括路径)
  '返回值:返回读取的文本内容
  '**************************************************
  Public Function ReadTextFile(ByVal Fname)
   Dim M_fso,FnameN,Fnr
   ReadTextFile=""
   Set M_fso = CreateObject("Scripting.FileSystemObject")
   Set FnameN= M_fso.OpenTextFile(Fname,1,True)
   Fnr=FnameN.ReadAll
   FnameN.Close
   Set M_fso = Nothing
   ReadTextFile=Fnr
  End Function

转载于:https://www.cnblogs.com/okkapai/archive/2011/11/04/2236214.html

  • 点赞
  • 收藏
  • 分享
  • 文章举报
dengweng3431 发布了0 篇原创文章 · 获赞 0 · 访问量 114 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: