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

80酷酷网    80kuku.com

  fso|教程

如何使用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, "
") '将文本内分行字符vbCrlf换成HTML换行标记"
"
    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
%>

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: