将ASCII文件批量转为UTF-8格式

admin

1. on error resume next
   
2. Set WshShell=WScript.CreateObject("Shell.Application")
   
3. dirPath=WshShell.BrowseForFolder(0, "请选择路径", 0, "").items().item().path
   
4. if right(dirPath,1)<>"" then dirPath=dirpath&""
   
5. ma=inputbox("请输入要转换为的编码","","Unicode")
   
6. if ma="" or dirPath="" or msgbox("在使用前请确认已备份文件夹"&dirPath,1)=2 then WScript.Quit
   
7. 
   
8. '遍历文件夹下的文件
   
9. Set FSO = CreateObject("scripting.filesystemobject")
   
10. Set f = FSO.GetFolder(dirPath)
    
11. Set fs = f.files
    
12. For Each fileN in fs
    
13. FN=dirPath&fileN.name&""
    
14. if ".txt"=lcase(right(FN,4)) then Call WriteToFile(FN, ReadFile(FN, CheckCode(FN)), ma)
    
15. Next
    
16. Set FSO = Nothing
    
17. wscript.echo "全部成功"
    
18. 
    
19. '检测文件的编码
    
20. Function CheckCode (FileUrl)
    
21. Dim slz
    
22. set slz = CreateObject("Adodb.Stream")
    
23. slz.Type = 1
    
24. slz.Mode = 3
    
25. slz.Open
    
26. slz.Position = 0
    
27. slz.Loadfromfile FileUrl
    
28. Bin=slz.read(2)
    
29. if AscB(MidB(Bin,1,1))=&HEF and AscB(MidB(Bin,2,1))=&HBB Then
    
30. Codes="UTF-8"
    
31. elseif AscB(MidB(Bin,1,1))=&HFF and AscB(MidB(Bin,2,1))=&HFE Then
    
32. Codes="Unicode"
    
33. else
    
34. Codes="GB2312"
    
35. end if
    
36. slz.Close
    
37. set slz = Nothing
    
38. CheckCode=Codes
    
39. End Function
    
40. 
    
41. '以指定的编码读取文件
    
42. Function ReadFile(FileUrl, CharSet)
    
43. On Error Resume Next
    
44. Dim Str
    
45. Set stm = CreateObject("Adodb.Stream")
    
46. stm.Type = 2
    
47. stm.mode = 3
    
48. stm.charset = CharSet
    
49. stm.Open
    
50. stm.loadfromfile FileUrl
    
51. Str = stm.readtext
    
52. stm.Close
    
53. Set stm = Nothing
    
54. wscript.echo Str
    
55. ReadFile = Str
    
56. End Function
    
57. 
    
58. '以指定的编码写文件
    
59. Function WriteToFile (FileUrl, Str, CharSet)
    
60. On Error Resume Next
    
61. Set stm = CreateObject("Adodb.Stream")
    
62. stm.Type = 2
    
63. stm.mode = 3
    
64. stm.charset = CharSet
    
65. stm.Open
    
66. stm.WriteText Str
    
67. stm.SaveToFile FileUrl, 2
    
68. stm.flush
    
69. stm.Close
    
70. Set stm = Nothing
    
71. End Function

复制代码