VBScript把文档修改为UTF-8格式

本篇文章主要介绍了"VBScript把文档修改为UTF-8格式"，主要涉及到方面的内容，对于ASPjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下： 参考文档：http://www.cnblogs.com/waver/articles/1283842.html但是，这位仁兄写的函数，我发现并不能用。于是，做了...

参考文档：http://www.cnblogs.com/waver/articles/1283842.html

但是，这位仁兄写的函数，我发现并不能用。

于是，做了一点小修改。我想，应该是有方法做的更好的。

如果下次我这里再有这样的需求，我便来研究一下。

在改之前，提示我LoadFile有问题。

函数更改：

Function WriteToFile(file, Message)
	Dim Stm1
	Set Stm1 = CreateObject("ADODB.Stream")
	Stm1.Type = 2
	Stm1.Open
	Stm1.Charset = "UTF-8"
	'Stm1.Charset = "Unicode"
	Stm1.Position = Stm1.Size
	Stm1.WriteText Message
	Stm1.SaveToFile file,2
	Stm1.Close
	set Stm1 = nothing
End Function

这个Message是文档里所有的信息，这里我用Readall读取

Set WriteFile = fso.OpenTextFile(“test.txt", 1, True)
Message = WriteFile.ReadAll
WriteFile.Close

以上就介绍了VBScript把文档修改为UTF-8格式，包括了方面的内容，希望对ASPjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。

本文网址链接：http://www.codes51.com/article/detail_230747.html