FSO使用教程6 -- 如何使用FSO读取文件
日期：2011-12-23 浏览次数：20938 次
如何使用FSO读取文件-FSO使用教程6
TextStream对象所提供用来读取文件的方法有三种：ReadLine、Read及ReadAll。在调用这几个方法之前，必须注意文件结尾的问题----当整个文件的内容都被读完时，若再调用ReadLine，Read、ReadAll等方法，则会产生“输入超出文件结尾”的错误（错误编码=62）。
因此比较好的习惯是在调用ReadLine、Read及ReadAll之前，先读取TextStream对象的atEndOfStream属性值，以判断文件是否已到达结尾的位置，其程序大致如下：
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
'调用txt.ReadLine、Read、ReadAll等方法
End If
六、如何用FSO读取文件：
方法1：ReadLine
调用格式：(从文件中读取一行数据)
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
Line = txt.ReadLine '读取一行数据
Response.Write Line & "<br>"
End If
方法2：ReadAll
调用格式：（把文件所有内容一次读出）
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
Content = txt.ReadAll '读取整个文件的数据
Lines = Replace(Content, vbCrlf, "<br>") '将文本内分行字符vbCrlf换成HTML换行标记"<br>"
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.aiyiweb.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, "<br>") '将文本内分行字符vbCrlf换成HTML换行标记"<br>"
Response.Write Lines
End If
%>
源码示例2：(利用ReadLine方法读取File1.txt一行数据内容，并显示出来)
<%
'================================================
'作者：爱易学习网
'网址：http://www.aiyiweb.com/
'源码：FSO读取文件一行内容示例
'时间：2005年12月17日
'================================================
Set fs = S
