Stream读写文本文件示例

<%
'删除文件
Function delfile(path)
Set fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(path) then
    fso.deletefile path
end if
Set fso=nothing
End function

'创建文件
Function createfile(path)
Set fso=server.createobject("scripting.filesystemobject")
if not fso.fileexists(path) then
    fso.createtextfile path
end if
Set fso=nothing
End function

'写入文件并保存
Function writefile(path,str)
Set mystream=server.createobject("adodb.stream")
    mystream.type=2 '文本模式
    mystream.mode=3 '读写模式
    mystream.charset="gb2312" '字符集
    mystream.open '打开
    createfile(path) '创建文件
    mystream.loadfromfile(path) '从文件加载
    mystream.position=mystream.size
    mystream.writetext str,1 '把数据以"行"模式写入流
    mystream.savetofile path,2 '覆盖原文件保存
    mystream.position=0
    writefile=mystream.readtext()  
    mystream.close
Set mystream=nothing
End function

filename=server.mappath("a.txt")
temp=writefile(filename,"测试文本")
Response.write "成功写入文件！<br /><font color=green>"&filename&"</font>，文件内容为:<br /><pre><font color=red>"&temp&"</font></pre>"
%>

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: StreamStream
相关日志: