FSO使用教程6 -- 如何使用FSO读取文件

80酷酷网    80kuku.com

  fso|教程

如何使用FSO读取文件-FSO使用教程6

TextStream对象所提供用来读取文件的方法有三种:ReadLine、Read及ReadAll。在调用这几个方法之前,必须注意文件结尾的问题----当整个文件的内容都被读完时,若再调用ReadLine,Read、ReadAll等方法,则会产生“输入超出文件结尾”的错误(错误编码=62)。

因此比较好的习惯是在调用ReadLine、Read及ReadAll之前,先读取TextStream对象的atEndOfStream属性值,以判断文件是否已到达结尾的位置,其程序大致如下:

'txt为一TextStream对象
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
    '调用txt.ReadLine、Read、ReadAll等方法
End If

六、如何用FSO读取文件:

方法1:ReadLine

调用格式:(从文件中读取一行数据)

'txt为一TextStream对象
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
    Line = txt.ReadLine '读取一行数据
    Response.Write Line & "
"
End If

方法2:ReadAll

调用格式:(把文件所有内容一次读出)

'txt为一TextStream对象
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
    Content = txt.ReadAll '读取整个文件的数据
    Lines = Replace(Content, vbCrlf, "
") '将文本内分行字符vbCrlf换成HTML换行标记"
"
    Response.Write Lines
End If

方法3:Read(N)

调用格式:(从文件中读取N个字节的数据)

'txt为一TextStream对象
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
    Content = txt.Read(30) '读取30个字节的数据
    Response.Write Content
End If

源码示例1:(利用ReadAll方法读取File1.txt内容,并显示出来)

<%
'==================================================
'作者:阿里西西
'网址:http://www.alixixi.com/
'源码:FSO读取文件全部内容示例
'时间:2005年12月17日
'==================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
Set txt = fs.OpenTextFile(File)
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
    Content = txt.ReadAll '读取整个文件的数据
    Lines = Replace(Content, vbCrlf, "
") '将文本内分行字符vbCrlf换成HTML换行标记"
"
    Response.Write Lines
End If
%>

源码示例2:(利用ReadLine方法读取File1.txt一行数据内容,并显示出来)

<%
'================================================
'作者:阿里西西
'网址:http://www.alixixi.com/
'源码:FSO读取文件一行内容示例
'时间:2005年12月17日
'================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
Set txt = fs.OpenTextFile(File)
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
    Line = txt.ReadLine '读取一行数据
    Response.Write Line & "
"
End If
%>

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: