vbs脚本:WriteText

最新推荐文章于 2021-03-01 08:32:57 发布

原创最新推荐文章于 2021-03-01 08:32:57 发布 · 254 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个VBS脚本方法WriteText，用于向指定文件写入文本内容，无论是一行还是多行，并会覆盖原有内容。此脚本适用于需要更新文本文件的场景。

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