China DOS Union

How to convert the UTF-8 encoding of a TXT text file to the Unicode encoding!!

Note: There are many files, and they can't be processed one by one. I want to convert the encoding because I need to open the TXT file directly with Excel, but opening a UTF-8 encoded text will become garbled, and it must be converted to a Unicode encoded text file. I can use Notepad to open the text file and then choose the encoding when "Save As", but there are too many files to operate one by one. See which expert can solve this problem!!!

```@echo off
for /f "delims=" %%a in ('dir /s /b /a-d D:\test\*.txt') do (
call cmd /u /c type "%%a">"%%~dpna.U"
call echo move /y "%%~dpna.U" "%%a"
)
pause```

It seems that batch processing can't directly handle text encoded in UTF-8.

It doesn't work. After running, several .u format files are generated. Opening them with Notepad is all garbled code, which is not the result I want!!! Experts, take a look again!!!

Oh, really? I tested with ANSI.

No, the encoding should be selected as utf-8. I need to convert utf-8 to unicode. Just write a few sentences in Notepad, then save as, select the encoding as: utf-f, and save. Then run your program, and you can take a look.

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

Since the zh159 batch processing can't directly handle UTF-8, there's no way around it. We have to rely on third-party tools.

I found a third - party tool, ConvertZ ver 7.40. It would be even better if it could be done with DOS batch processing or 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

Direct replacement mode, please test before applying

Okay, thanks buddy, you're really a master!!!

The LZ is converting UTF-8 encoding to Unicode.

And my question is:
How to convert UTF-8 to ANSI
And how to convert Unicode to ANSI

How to implement it with a batch file?
Please experts answer

Command Line GB2312, UTF - 8, Unicode, BIG5... Encoding Conversion Tool VBS Version
http://www.cn-dos.net/forum/viewthread.php?tid=35986&fpage=1&highlight=

Text File Encoding Query Tool QueryCode.vbs
http://www.cn-dos.net/forum/viewthread.php?tid=36012&fpage=1&highlight=

Thanks to the upstairs

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

Not bad, learning!