文件的打开、读取与写入
1． 打开文件
方法一：使用FileSystemObject 对象的OpenTextFile 方法
语法：fso.OpenTextFile(Filename,Iomode,Create,Format)
用途：FileSystemObject 对象的OpenTextFile 方法可以打开Filename 指定的文字文件，
并传回一个TextStream 对象实例；Iomode 为文本文件的打开方式，1 表示只读，2 表示可写
（清楚文字文件的原始内容），8 表示附加到文本文件的后面（不清除文本文件的原始内容），
默认值为1；Create 表示当文本文件不存在时，是否要加以建立，默认值为False；Format
为文字文件的格式，1-表示Unicode 文本文件,0 表示ASCII 文件，-2 表示采用系统默认值，
这个参数通常不会用到。
范例： Dim fso,ts ‘以只读模式打开 文件，若文件不存在，便建立
set fso=Server.CreateObject(“Scripting.FileSystemObject”)
set ts=fso.OpenTextFile(Server.MapPath(“”),1,true)
方法二：使用File 对象的OpenAsTextStream 方法
语法：objfile.OpenAsTextStream(Iomode,Format)
用途：File 对象的OpenAsTextStream 方法可以返回代表文件的TextStream 对象案例；
Iomode 为文件的打开方式，1 表示只读，2 表示可写，8 表示附加到文本文件的后面，默认
值为1；Format 为文本文件的格式，-1 表示Unicode 文本文件，ASCII 文本文件，-2 表示采
用系统默认值，这个参数通常不会用到。
范例：Dim fso,objfile,ts ‘以只读模式打开，若文件不存在，便建立
Set fso=Server.CreateObject(“Scripting.FileSystemObject”)
Set objfile=fso.GetFile(Server.MapPath(““))
Set ts=objfile.OpenAsTextStream(1,True)
-----------------------------------------------------------
1． 从文件读取Num 个字符
<html>
<head></head>
<body>
<%
writeline方法的作用dim fso,ts,chars
set ateobject(“scripting.filesystemobject”)
set ts=fso.opentextfile(server.mappath(“”),1)
do while not ts.AtEndOfStream ‘检查是否到达文件结尾
ad(6) ‘读取6个字符，再派给字符串变量chars
response.write chars & “<br />” ‘输出chars的值和强制换行
loop
ts.close ‘关闭打开的文件
set ts=nothing ‘释放实例对象
set fso=nothing ‘释放实例对象
%>
</body>
</html>
-----------------------------------------------------------
指针的位置读取一行，然后存放至字符串变量中。
范例：Dim Aline
Aline=ts.ReadLine
Response.Write Aline
<html>
<head></head>
<body>
<%
dim fso,ts,chars
set ateobject(“scripting.filesystemobject”)
set ts=fso.opentextfile(server.mappath(“”),1)
do while not ts.AtEndOfStream ‘检查是否到达文件结尾
ad(6) ‘读取6个字符，再派给字符串变量chars
response.write chars & “<br />” ‘输出chars的值和强制换行
loop
ts.close ‘关闭打
开的文件
set ts=nothing ‘释放实例对象
set fso=nothing ‘释放实例对象
%>
</body>
</html>
<%
dim fso,ts,aline
set fso = ateobject("scripting.filesystemobject")
set ts = fso.opentextfile(server.mappath(""), 1)
do while not ts.atendofstream '检查是否到达文件结尾
aline = ts.readline '读取一行，再指派给字符串变量Aline
response.write aline '输出Aline的值
response.write "<br />" '输出强制换行标记
loop
ts.close '关闭已打开的文件
set ts = nothing '释放Texstream对象
set fso = nothing '释放filesystemobject 对象
%>
----------------------------------------------------------------------------------
3. 从文件读取全部内容
语法：ts.ReadAll
用途：读取整个文件的内容，然后存放至字符串变量
范例：Dim AllLines
AllLines=ts.ReadAll
Response.write AllLines
<html>
<body>
<%
dim fso,ts,alllines,result
set fso = ateobject("scripting.filesystemobject")
set ts = fso.opentextfile(server.mappath(""), 1)
'在读取文件内容之前先使用If语句检查是否到达文件结尾
if not ts.atendofstream then
'读取全部内容，再指派给字符串变量AllLines
alllines = ts.readall
'使用Replace函数将字符串变量中的换行字符置换成强制
result= replace(alllines, vbcrlf, "<br>")
response.write result
end if
ts.close '关闭已打开的文件
set ts = nothing '释放TextStream对象
set fso = nothing '释放FileSystemObject对象
%>
</body>
</html>
--------------------------------------------------------------
4. 写入文件
在您成功地打开文件并取得一个TextStream 对象实例后，您可以分别使用TextStream
对象提供的Write(Sting)、WriteLine(String)、WriteBlankLines(Num)方法，在文件内写
入字符串和换行符、Num 个换行字符。
语法：ts.Write(string)
用途：在文件内写入字符串
范例：ts.Write(“ASP 动态网页设计”)
语法：ts.WriteLine(string)
用途：在文件内写入字符串和换行符
范例：ts.Write(“ASP 动态网页设计”)
语法：ts.WriteBlankLines(num)
用途：在文件内写入Num 个换行字符
范例：ts.WriteBlankLines(“3”)
-----------
<html>
<body>
<%
dim fso, ts, alllines, result
set fso = ateobject("scripting.filesystemobject")
set ts = fso.opentextfile(server.mappath(""), 2, true)
'以只写模式打开，若文件不存在，便建立
ts.write("您学习电脑的最佳伙伴——")
ts.writeline("快快乐乐学系列")
ts.writeblanklines("3")
ts.writeline("◎E时代网页设计")
ts.writeline("◎Linux最新版快速入门")
ts.writeline("◎Flash 5.0网页高手")
ts.writeline("◎ASP与网页数据库设计")
ts.close '关闭已打开的文件
set ts = nothing '释放TextStream对象
set fso = nothing '释放FileSystemObject 对象
%>
</body>
</html>
-----------------

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。