Text文件编码转换vbs版本

*** ANSI2UTF8. BAT ***

 

echo off

rem *** ANSI to UTF-8 ***
ANSI2UTF8.vbs "TMBAR01_bak.txt"

exit

 

*** ANSI2UTF8. VBS ***

 

1. Set objArgs = WScript.Arguments
2.         For I = 0 To objArgs.Count - 1
3.             FileUrl = objArgs(I)
4.             Call WriteToFile(FileUrl, ReadFile(FileUrl, "GB2312"), "UTF-8")
5.         Next
7. Function ReadFile(FileUrl, CharSet)
8.     Dim Str
9.     Set stm = CreateObject("Adodb.Stream")
10.     stm.Type = 2
11.     stm.mode = 3
12.     stm.charset = CharSet
13.     stm.Open
14.     stm.loadfromfile FileUrl
15.     Str = stm.readtext
16.     stm.Close
17.     Set stm = Nothing
18.     ReadFile = Str
19. End Function
21. Function WriteToFile (FileUrl, Str, CharSet)
22.     Set stm = CreateObject("Adodb.Stream")
23.     stm.Type = 2
24.     stm.mode = 3
25.     stm.charset = CharSet
26.     stm.Open
27.     stm.WriteText Str
28.     stm.SaveToFile FileUrl, 2
29.     stm.flush
30.     stm.Close
31.     Set stm = Nothing
32. End Function