如何做一个文本书写器？

时间：2024-11-09 12:12:55 阅读全文下载本文

如何做一个文本书写器？

我们有下面的的函数，可做“文本书写器”：

function WriteToFile(FileName, Contents, Append)

on error resume next

if Append = true then

iMode = 8

else

iMode = 2

end if

set oFs = server.createobject("Scripting.FileSystemObject")

set oTextFile = oFs.OpenTextFile(FileName, iMode, True)

oTextFile.Write Contents

oTextFile.Close

set oTextFile = nothing

set oFS = nothing

end function

<HTML>

<BODY>

WriteToFile "C:intelsTest1.txt", "中国水利水电出版社（.cn）——全国优秀出版社", True

WriteToFile "C:intelsTest2.txt", "中国水利水电出版社（.cn）——全国优秀出版社", false

WriteToFile "C:intelsTest1.txt", chr(13) & chr(10) & "随风起舞（）——时尚咨询的个人网站", true

WriteToFile "C:intelsTest2.txt", chr(13) & chr(10) & "随风起舞（）——时尚咨询的个人网站", false

'Test1.txt contains:

'中国水利水电出版社（.cn）——全国优秀出版社 '随风起舞（）——时尚咨询的个人网站

'Test2.text contains:

'随风起舞（）——时尚咨询的个人网站

Write to File test is complete

</BODY>

</HTML>

文档为doc格式