中国DOS联盟

如何将txt文本文件的utf-8编码转换成unicode编码！！

注：很多个文件，不能一个一个处理，得批量处理！！！
我想转换编码的目的是要用Excel直接打开txt文件，但是打开utf-8编码的文本会变成乱码，必须得转换成unicode编码的文本文件才行。可以用记事本打开文本文件，然后“另存为”时选择编码，但是文件太多，不能一个一个操作。看看哪个高手能解决这个问题！！！

好像批处理并不能直接处理utf-8编码的文本

不行啊，运行之后，产生了几个.u格式的文件，用记事本打开也都是乱码，不是我想要的结果欧！！！高手再看看！！！

哦是吗我拿ANSI测试的

不行，编码要选择utf-8，我要转换的是utf-8到unicode。你用记事本随便写几句话，然后另存为，选择编码为：utf-f，保存
然后再运行你的程序，你看看吧。

[ Last edited by moonofwell on 2007-11-30 at 11:46 AM ]

既然zh159批处理并不能直接处理utf-8也就没办法了，借助第三方工具吧

第三方工具我找到了，ConvertZ ver 7.40 ，如果能用dos批处理或vbs搞定就更好了！！！（*^_^*）

UTF82Unicode.vbs
[code]
Set objArgs = WScript.Arguments
For I = 0 To objArgs.Count - 1
FileUrl = objArgs(I)
Call WriteToFile(FileUrl, ReadFile(FileUrl, "UTF-8"), "Unicode")
Next
Function ReadFile(FileUrl, CharSet)
Dim Str
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.loadfromfile FileUrl
Str = stm.readtext
stm.Close
Set stm = Nothing
ReadFile = Str
End Function

Function WriteToFile (FileUrl, Str, CharSet)
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush

UTF82Unicode.vbs
Set objArgs = WScript.Arguments For I = 0 To objArgs.Count - 1 FileUrl = objArgs(I) Call WriteToFile(FileUrl, ReadFile(FileUrl, "UTF-8"), "Unicode") Next Function ReadFile(FileUrl, CharSet) Dim Str Set stm = CreateObject("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = CharSet stm.Open stm.loadfromfile FileUrl Str = stm.readtext stm.Close Set stm = Nothing ReadFile = Str End Function Function WriteToFile (FileUrl, Str, CharSet) Set stm = CreateObject("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = CharSet stm.Open stm.WriteText Str stm.SaveToFile FileUrl, 2 stm.flush stm.Close Set stm = Nothing End Function
@echo off for /f "delims=" %%a in ('dir /s /b /a-d D:\test\*.txt') do UTF82Unicode.vbs "%%a" pause
直接替换模式，请先测试后应用

可以了，多谢了哥们儿，真是高手阿！！！

楼主是utf-8编码转换成unicode
而我的问题是：
如何将UTF-8转成ANSI
还有unicode如何转成ANSI

用批处理文件如何实现？
请高手解答

命令行GB2312,UTF-8,Unicode,BIG5...编码转换工具VBS版
http://www.cn-dos.net/forum/viewthread.php?tid=35986&fpage=1&highlight=

文本文件编码查询工具 QueryCode.vbs
http://www.cn-dos.net/forum/viewthread.php?tid=36012&fpage=1&highlight=

谢谢楼上的

[ Last edited by gameyixiu on 2007-12-10 at 03:45 PM ]

不错，学习中！