DOS下文本编码批量转换代码

2011-8-25 10:43 870 0

摘要: TXT编码批量转换代码 VBS: 红色处替换成编码格式 gb2312 UTF-8 Unicode Set objArgs = WScript.Arguments ...

关键词： nbsp stm FileUrl CharSet UTF-8 objArgs CreateObject WriteToFile CharSetstm CloseSet

TXT编码批量转换代码 VBS: 红色处替换成编码格式 gb2312 UTF-8 Unicode Set objArgs = WScript.Arguments For I = 0 To objArgs.Count - 1 FileUrl = objArgs(I) Call WriteToFile(FileUrl, ReadFile(FileUrl, "UTF-8"), "Unicode") NextFunction ReadFile(FileUrl, CharSet)Dim StrSet stm = CreateObject("Adodb.Stream")stm.Type = 2stm.mode = 3stm.charset = CharSetstm.Openstm.loadfromfile FileUrlStr = stm.readtextstm.CloseSet stm = NothingReadFile = StrEnd FunctionFunction WriteToFile (FileUrl, Str, CharSet)Set stm = CreateObject("Adodb.Stream")stm.Type = 2stm.mode = 3stm.charset = CharSetstm.Openstm.WriteText Strstm.SaveToFile FileUrl, 2stm.flushstm.CloseSet stm = NothingEnd FunctionCMD： @echo offfor /f "delims=" %%a in ('dir /s /b /a-d D:\test\*.txt') do hacknote.vbs "%%a"pause

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除