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
%>