GB2312 --> UTF8 BY VBSRCIPT

1. '/*=========================================================================   
2. ' * Intro       拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件   
3. ' * FileName    GB2312.To.UTF-8.vbs   
4. ' * Author      yongfa365   
5. ' * Version     v1.0   
6. ' * WEB         http://www.yongfa365.com   
7. ' * Email       yongfa365[at]qq.com   
8. ' * FirstWrite  http://www.yongfa365.com/Item/GB2312.To.UTF-8.vbs.html   
9. ' * LastModify  2007-10-04 10:42:53   
10. ' *==========================================================================*/   
11.   
12. Set objArgs = WScript.Arguments   
13. If objArgs.Count>0 Then  
14.     If MsgBox("本程序仅支持GB2312到UTF-8的转换"&vbCrLf&"如果您所拖动的文件里有别的格式的文件请点“取消”", vbOKCancel + vbExclamation + vbDefaultButton2, "郑重提醒!!!") = vbOK Then  
15.         For I = 0 To objArgs.Count - 1   
16.             FileUrl = objArgs(I)   
17.             Call WriteToFile(FileUrl, ReadFile(FileUrl, "gb2312"), "utf-8")   
18.         Next  
19.     End If  
20. Else  
21.     MsgBox "请将您要转换的“gb2312文件”拖到这个文件上"&vbCrLf&"程序会将它们自动转换为utf-8文件", vbInformation, "柳永法温馨提示："  
22. End If  
23.   
24. '-------------------------------------------------   
25. '函数名称:ReadFile   
26. '作用:利用AdoDb.Stream对象来读取各种格式的文本文件   
27. '----------------------------------------------------   
28.   
29. Function ReadFile(FileUrl, CharSet)   
30.     Dim Str   
31.     Set stm = CreateObject("Adodb.Stream")   
32.     stm.Type = 2   
33.     stm.mode = 3   
34.     stm.charset = CharSet  
35.     stm.Open  
36.     stm.loadfromfile FileUrl   
37.     Str = stm.readtext   
38.     stm.Close  
39.     Set stm = Nothing  
40.     ReadFile = Str   
41. End Function  
42.   
43. '-------------------------------------------------   
44. '函数名称:WriteToFile   
45. '作用:利用AdoDb.Stream对象来写入各种格式的文本文件   
46. '参数:FileUrl-文件相对路径;Str-文件内容;CharSet-编码格式(utf-8,gb2312.....)   
47. '----------------------------------------------------   
48.   
49. Function WriteToFile (FileUrl, Str, CharSet)   
50.     Set stm = CreateObject("Adodb.Stream")   
51.     stm.Type = 2   
52.     stm.mode = 3   
53.     stm.charset = CharSet  
54.     stm.Open  
55.     stm.WriteText Str   
56.     stm.SaveToFile FileUrl, 2   
57.     stm.flush  
58.     stm.Close  
59.     Set stm = Nothing  
60. End Function