[求助]如何将txt文本文件的utf-8编码转换成unicode

moonofwell

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

注：很多个文件，不能一个一个处理，得批量处理！！！

山风

要是有附件，我也想来做做！

moonofwell

92l8T16p.rar (23.89 KB, 下载次数: 35)

2007-11-29 15:17 上传

点击文件名下载附件
[求助]如何将txt文本文件的utf-8编码转换成unicode

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

aichong

我用Excel打开utf-8编码的文本并不会变成乱码啊！

moonofwell

右键点击(utf-8)test1.txt打开方式选择excel，你看看结果是什么，再看看(utf-8)test1.txt里的内容，字体一样么？？？

锘垮?浣曞皢txt鏂囨湰鏂囦欢鐨剈tf-8缂栫爜杞?崲鎴恥nicode缂栫爜锛侊紒
娉?細寰堝?涓?枃浠讹紝涓嶈兘涓

aichong

在Excel里面打开则没有乱码。

moonofwell

PrfBWtKW.rar (180.3 KB, 下载次数: 48)

2007-11-29 17:08 上传

点击文件名下载附件
[求助]如何将txt文本文件的utf-8编码转换成unicode

你看看吧！！！

aichong

QUOTE:

以下是引用moonofwell在2007-11-29 17:08:16的发言：

moonofwell

是的，我的是2002版的，那有没有办法转换的！！！

moonofwell

搞定了，用bat&vbs

多谢“fastslz”的帮助！！！
http://www.cn-dos.net/forum/viewthread.php?tid=35830&fpage=1

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

bat：
@echo off
for /f "delims=" %%a in ('dir /s /b /a-d D:\test\*.txt') do UTF82Unicode.vbs "%%a"
pause
R3nD94SM.rar (718 Bytes, 下载次数: 125)

2007-11-30 14:11 上传

点击文件名下载附件
[求助]如何将txt文本文件的utf-8编码转换成unicode