vbs脚本：WriteText

最新推荐文章于 2022-02-28 06:38:05 发布

原创最新推荐文章于 2022-02-28 06:38:05 发布 · 699 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#脚本 #file

VB & VBS 专栏收录该内容

17 篇文章

订阅专栏

该VBS子程序WriteText用于覆盖现有文件的内容并写入新的多行文本。它首先检查文件是否存在，然后打开文件进行写操作。如果在过程中遇到错误，将返回错误信息。

Rem :  ===========  写入多行文本，会覆盖文件中已有的内容
Rem :  ===========  文件必须存在
Rem :  ===========  text 中可以是单行，也可以是多行文本，
Sub WriteText( file, text )
	Dim f
	f = Trim( file )
	If Right(f,1) = "/" Then f = Left(f,Len(f) -1 )
	If fso.fileexists(f) = False Then Err.Raise vbObjectError+128, "WriteText", f & " does not exists"

	Dim errMsg
	On Error Resume Next
	Rem  ======  code begin
	Const ForReading = 1, ForWriting = 2
	Dim fi
	Set fi = fso.OpenTextFile(f, ForWriting, True)
	fi.Write text
	fi.close
	Rem  ======  code end
	If Err.Number <> 0 Then
		errMsg = Err.Description
		On Error Goto 0
		Err.Raise vbObjectError+128, "WriteText", errMsg & vbNewLine & _
								"                file:" & vbTab & file & vbNewLine & _
								"                text:" & vbTab & text
		Exit Sub
	End If

End Sub