如何做一个文本书写器？

做文书写器？
做文书写器？
面函数做文书写器：
<
function WriteToFile(FileName Contents Append)
on error resume next
if Append true then
iMode 8
else
iMode 2
end if
set oFs servercreateobject(ScriptingFileSystemObject)
set oTextFile oFsOpenTextFile(FileName iMode True)
oTextFileWrite Contents
oTextFileClose
set oTextFile nothing
set oFS nothing
end function
>


<
WriteToFile CintelsTest1txt 中国水利水电出版社（cn）——全国优秀出版社 True
WriteToFile CintelsTest2txt 中国水利水电出版社（cn）——全国优秀出版社 false
WriteToFile CintelsTest1txt chr(13) & chr(10) & 风起舞（）——时尚咨询网站 true
WriteToFile CintelsTest2txt chr(13) & chr(10) & 风起舞（）——时尚咨询网站 false
＇Test1txt contains
＇中国水利水电出版社（cn）——全国优秀出版社 ＇风起舞（）——时尚咨询网站
＇Test2text contains
＇风起舞（）——时尚咨询网站
>
Write to File test is complete



文档香网(httpswwwxiangdangnet)户传

《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档