如何做一个文本书写器

如何做一个文本书写器

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

%

function WriteToFile(FileName, Contents, Append)

on error resume ne_t

if Append = true then

iMode = 8

else

iMode = 2

end if

set oFs = XXX("XXX")

set oTe_tFile = XXX(FileName, iMode, True)

XXX Contents

XXX

set oTe_tFile = nothing

set oFS = nothing

end function

%

HTML

BODY

%

WriteToFile "C:XXX", "中国XX（.cn）――全国优秀出版社", True

WriteToFile "C:XXX", "中国XX（.cn）――全国优秀出版社", false

WriteToFile "C:XXX", chr(13) chr(10) "随风起舞（）――时尚咨询的个人网站", true

WriteToFile "C:XXX", chr(13) chr(10) "随风起舞（）――时尚咨询的个人网站", false

'XXX contains:

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

'XXX contains:

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

%

Write to File test is complete

/BODY

/HTML