FSO使用教程7 -- 如何使用FSO寫入檔案

來源:互聯網
上載者:User
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, "<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
%>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。