vbs脚本:WriteText

最新推荐文章于 2021-05-18 02:38:18 发布

iteye_1308

最新推荐文章于 2021-05-18 02:38:18 发布

阅读量186

点赞数

本文链接：https://blog.csdn.net/iteye_1308/article/details/82269868

版权

vbs脚本:WriteText
2010年08月09日
　　Rem : =========== 写入多行文本，会覆盖文件中已有的内容 Rem : =========== 文件必须存在 Rem : =========== text 中可以是单行，也可以是多行文本， Sub WriteText( file, text ) Dim f f = Trim( file ) IfRight(f,1) = "\" Then f = Left(f,Len(f) -1 )If fso.fileexists(f) = False ThenErr.Raise vbObjectError+128, "WriteText", f & " does not exists" Dim errMsg OnError Resume NextRem ====== code begin Const ForReading = 1, ForWriting = 2 Dim fi Set fi = fso.OpenTextFile(f, ForWriting, True) fi.Write text fi.close Rem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "WriteText", errMsg & vbNewLine & _ " file:" & vbTab & file & vbNewLine & _ " text:" & vbTab & text ExitSubEndIfEndSub