安大互联
财经热点 > Asp编程 > FSO使用教程7 - 如何使用FSO写入文件
FSO使用教程7 - 如何使用FSO写入文件
浏览次数:【356】  发布日期:2009-8-13 12:09:22    文章分类:Asp编程   
专题:】 【
 

如何使用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
%>

手机扫码浏览该文章
 ● 相关资讯专题
  • 网络建设业务咨询

   TEl:13626712526