财经热点 > 财经资讯 > FSO使用教程7 - 如何使用FSO写入文件
FSO使用教程7 - 如何使用FSO写入文件
【信息来源】   发布日期：5-8 10:30:00    文章分类：财经资讯   
专题： 【】 【】

如何使用FSO写入文件-FSO使用教程7

写入数据到文件的要领有WriteLine及Write两种，以下详细介绍这两种的使用方法：

七、如何用FSO写入文件：

方法：WriteLine 及 Write

调用格式：(WriteLine会在数据之附加vbCrlf分行符，然后才写入数据，Write则按原数据写入)

Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
Set txt = fs.OpenTextFile(File, 2, True) '打开为只写文件 

'Data为要写入文件的数据变量
txt.WriteLine Data
txt.Write Data

方法2：ReadAll

调用格式：（把文件所有内容一次读出）

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

源码示例：(利用ReadAll及Write方法读取File1.txt内容并将其写入到File2.txt中)

<%
'================================================
'作者：阿里西西
'网址：http://www.alixixi.com/
'源码：FSO读取文件内容并写入另一文件示例
'时间：2005年12月17日
'================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile = Server.MapPath("File1.txt")
WFile = Server.MapPath("File2.txt")
Set txt1 = fs.OpenTextFile(SFile)
Set txt2 = fs.OpenTextFile(WFile, 2, True) '打开为只写文件
If Not txt1.atEndOfStream Then '先确定还没有到达结尾的位置
    Content = txt1.ReadAll '读取整个文件的数据
End If
txt2.Write Content
%>

手机扫码浏览该文章
 ● 相关资讯专题

【 繁体中文 】