用脚本处理utf8的文本文件

filename="C:UsersAdministratorDesktopsoftx.txt"
filename2="C:UsersAdministratorDesktopsoftx.txt"

Dim txt 
Dim txt2
txt=ReadFromTextFile( filename )
txt=Replace( txt,"xx软件","yy软件" )


WriteToTextFile filename2,txt

Set a = CreateObject("Scripting.FileSystemObject")
a.CopyFile "C:UsersAdministratorDesktopsoftweb.xml","C:",true

msgbox "ok"


 Function ReadFromTextFile(FileUrl)
 dim str
 set stm=CreateObject("adodb.stream")
 stm.Type=2'以本模式读取
 stm.mode=3 
 stm.charset="UTF-8"
 stm.open
 stm.loadfromfile  FileUrl 
 str=stm.readtext
 stm.Close
 set stm=nothing
 ReadFromTextFile=str
End Function

Sub WriteToTextFile(FileUrl,byval Str)
 set stm=CreateObject("adodb.stream")
 stm.Type=2'以本模式读取
 stm.mode=3
 stm.charset="UTF-8"
 stm.open
 stm.WriteText str
 stm.SaveToFile  FileUrl ,2 
 stm.flush
 stm.Close
 set stm=nothing
End Sub