VBScript读写UTF-8文件

By | 2013/03/19

最近在用python写一个Opera书签转换器,但是Python默认的编码是UTF-8的,而FSO对象只能读写ANSI编码的文件,无法读写UTF-8编码的文件。。。

 '函数名称:ReadTextFile
 '作用:利用Adodb.Stream对象来读取UTF-8编码的文件
 '示例:Call ReadFromTextFile("File/FileName.htm","UTF-8")
 Function ReadFromTextFile(FileUrl,CharSet)
 Dim str
 Set stm=server.CreateObject("adodb.stream")
 stm.Type=2'以本模式读取
 stm.mode=3
 stm.charset=CharSet
 stm.open
 stm.loadfromfile server.MapPath(FileUrl)
 str=stm.readtext
 stm.Close
 Set stm=Nothing
 ReadFromTextFile=str
 End Function

'函数名称:WriteToTextFile
 '作用:利用Adodb.Stream对象来写入UTF-8编码的文件
 '示例:Call WriteToTextFile("File/FileName.htm",Content,"UTF-8")
 Sub WriteToTextFile(FileUrl,byval Str,CharSet)
 Set stm=server.CreateObject("adodb.stream")
 stm.Type=2'以本模式读取
 stm.mode=3
 stm.charset=CharSet
 stm.open
 stm.WriteText str
 stm.SaveToFile server.MapPath(FileUrl),2
 stm.flush
 stm.Close
 Set stm=Nothing
 End Sub
 

Leave a Reply

Your email address will not be published. Required fields are marked *